如何在excel vba中在字符串中添加空间?
如何在此示例字符串中添加空格如何在excel vba中在字符串中添加空间?,excel,vba,Excel,Vba,如何在此示例字符串中添加空格 单元格A1中的输入值为ABCDEFGHIJK,将以ABCDE FG HIJK格式粘贴到另一单元格B1中,一个公式用于插入空格: =左(A1,5)和“&右(A1,LEN(A1)-5)在第5个位置后插入空格。(ABCDE FGHIJK) 一个用于插入2个空格,如示例所示: =左(A1,5)和“&中(A1,6,2)和“&右(A1,LEN(A1)-7) 输入ABCDEFGHIJK,结果ABCDE FG HIJK 简而言之:使用=LEFT()、=RIGHT()和=MID()获
单元格A1中的输入值为
ABCDEFGHIJK
,将以ABCDE FG HIJK
格式粘贴到另一单元格B1中,一个公式用于插入空格:
=左(A1,5)和“&右(A1,LEN(A1)-5)
在第5个位置后插入空格。(ABCDE FGHIJK
)
一个用于插入2个空格,如示例所示:
=左(A1,5)和“&中(A1,6,2)和“&右(A1,LEN(A1)-7)
输入ABCDEFGHIJK
,结果ABCDE FG HIJK
简而言之:使用=LEFT()
、=RIGHT()
和=MID()
获取字符串的部分,并将部分和空格连接起来
编辑:
在VBA中:
这取决于您是否总是希望它位于
E
之后,或位于第6位?^^^^或F
之前?还是在中间?还是在aC
之后加上3个字符?或(哦,我刚刚注意到“output”字符串中有两个空格,这意味着我所有的理论都是错误的。)你需要VBA解决方案还是公式?嗨,Rik,谢谢你的回答。我需要的是vba解决方案。请参见编辑。在VBA中,它与正则公式的完全相同。
Public Function StringWithSpaces(inpStr As String) As String
StringWithSpaces = Left(inpStr, 5) & " " & Mid(inpStr, 6, 2) & " " & Right(inpStr, Len(inpStr) - 7)
End Function