下面给出了名字，空格和最后的首字母。我希望名字和姓氏之间不要有空格。
Sub FNLI()
Dim cell
For Each cell In Selection
cell.Offset(0, 1) = Mid$(cell.Value2, 1, InStr(cell.Value2, Chr(32)) + 1)
Next
End Sub
这是目前的功能-
Data Before:
Margaret Hicks
After Script:
Margaret H
What I need:
MHicks
尝试
For Each cell In Selection
cell.Offset(0, 1) = trim(left(cell.Value2,1)&Mid(cell.Value2, InStr(cell.Value2, Char(32)) + 1,len(cell.Value2)-InStr(cell.Value2,Char(32))))
Next
尝试＃2
cell.Offset（0，1）= trim（left（cell.Value2,1）＆Mid（cell.Value2，search（char（32），cell.Value2）+ 1，len（cell.Value2）-search（Char（ 32），cell.Value2）））
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句