如何用函数或者VBA在excel单元格里产生缩写?
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/05/02 13:10:12
如何用函数或者VBA在excel单元格里产生缩写?
A列为这些名称
Stachybotrys
Staphylococcus
Staphylococcus aureus
Staphylococcus epidermidis
某个单元格出现两个词的时候,在下面增加相同的一行内容,同时使加的这一行的首个单词缩写为第一个字母,并加一个小点,例如
Stachybotrys
Staphylococcus
Staphylococcus aureus
S.aureus
Staphylococcus epidermidis
S.epidermidis
如果用VBA处理也可以.
感谢fjmxwrs和ZhouFfett、wjp456789的帮助.我想补充下.B列还有相应的中文解释,这个中文解释在加的那行有缩写时要加上去,内容不变.
A列为这些名称
Stachybotrys
Staphylococcus
Staphylococcus aureus
Staphylococcus epidermidis
某个单元格出现两个词的时候,在下面增加相同的一行内容,同时使加的这一行的首个单词缩写为第一个字母,并加一个小点,例如
Stachybotrys
Staphylococcus
Staphylococcus aureus
S.aureus
Staphylococcus epidermidis
S.epidermidis
如果用VBA处理也可以.
感谢fjmxwrs和ZhouFfett、wjp456789的帮助.我想补充下.B列还有相应的中文解释,这个中文解释在加的那行有缩写时要加上去,内容不变.
有两个单词就增行并缩写?
代码如下
Sub test()
Dim arr,brr(),x&,i&,j&
arr = Range("A1:A" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(arr)
i = InStr(arr(x,1)," ")
If i > 0 Then
j = j + 1
ReDim Preserve brr(1 To j)
brr(j) = arr(x,1)
j = j + 1
ReDim Preserve brr(1 To j)
brr(j) = UCase(Left(arr(x,1),1)) & "." & Mid(arr(x,1),i + 1,Len(arr(x,1)))
Else
j = j + 1
ReDim Preserve brr(1 To j)
brr(j) = arr(x,1)
End If
Next x
Range("C1").Resize(UBound(brr)) = Application.Transpose(brr)
End Sub
有B列修改一下就可以了
Sub test()
Dim arr,brr(),x&,i&,j&
arr = Range("A1:B" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(arr)
i = InStr(arr(x,1)," ")
If i > 0 Then
j = j + 1
ReDim Preserve brr(1 To 2,1 To j)
brr(1,j) = arr(x,1)
brr(2,j) = arr(x,2)
j = j + 1
ReDim Preserve brr(1 To 2,1 To j)
brr(1,j) = UCase(Left(arr(x,1),1)) & "." & Mid(arr(x,1),i + 1,Len(arr(x,1)))
brr(2,j) = arr(x,2)
Else
j = j + 1
ReDim Preserve brr(1 To 2,1 To j)
brr(1,j) = arr(x,1)
brr(2,j) = arr(x,2)
End If
Next x
Range("C1").Resize(UBound(brr,2),2) = Application.Transpose(brr)
End Su
代码如下
Sub test()
Dim arr,brr(),x&,i&,j&
arr = Range("A1:A" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(arr)
i = InStr(arr(x,1)," ")
If i > 0 Then
j = j + 1
ReDim Preserve brr(1 To j)
brr(j) = arr(x,1)
j = j + 1
ReDim Preserve brr(1 To j)
brr(j) = UCase(Left(arr(x,1),1)) & "." & Mid(arr(x,1),i + 1,Len(arr(x,1)))
Else
j = j + 1
ReDim Preserve brr(1 To j)
brr(j) = arr(x,1)
End If
Next x
Range("C1").Resize(UBound(brr)) = Application.Transpose(brr)
End Sub
有B列修改一下就可以了
Sub test()
Dim arr,brr(),x&,i&,j&
arr = Range("A1:B" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(arr)
i = InStr(arr(x,1)," ")
If i > 0 Then
j = j + 1
ReDim Preserve brr(1 To 2,1 To j)
brr(1,j) = arr(x,1)
brr(2,j) = arr(x,2)
j = j + 1
ReDim Preserve brr(1 To 2,1 To j)
brr(1,j) = UCase(Left(arr(x,1),1)) & "." & Mid(arr(x,1),i + 1,Len(arr(x,1)))
brr(2,j) = arr(x,2)
Else
j = j + 1
ReDim Preserve brr(1 To 2,1 To j)
brr(1,j) = arr(x,1)
brr(2,j) = arr(x,2)
End If
Next x
Range("C1").Resize(UBound(brr,2),2) = Application.Transpose(brr)
End Su
如何用函数或者VBA在excel单元格里产生缩写?
如何用vba在excel中自定义一个函数
在excel中,如何用lookup函数或者if函数筛选范围值并返回?
excel 想在一列单元格里产生一位字母加一位数字的随机数 怎么设计
EXCEL中单元格里输入字母,但字母代表一个数字,如何用字母进行求和运算
excel IF函数怎么判断单元格里是数字,再用SUM公式求和.如:A1=1,要判断A2,是数字就在B1显示A1A2之和
请问在EXCEL中如何用函数或者公式来多条件查找并引用返回的条件数据
求在Excel里面用VBA做函数.
Excel单元格里的计算式怎么在另外的单元格里求和
excel函数在一个单元格里取2个或3个数字怎么办 比如12345678我要123
excel如何用if函数(或者其他)综合判断数据并返回指定结果?
如何用excel函数来计算增长率?