Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在excel vba中在字符串中添加空间?_Excel_Vba - Fatal编程技术网

如何在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
之前?还是在中间?还是在a
C
之后加上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