VBA编程：字符串定位后截取

Question

字符串“2 3 4 5 6 7”，其中2可能会是22，222的数字。如何写代码： 1、找出第一个空格在字符串中的位置； 2、用MID函数截取第一个空格以后的字符串

Answer 1

找第一个空格的位置
=FIND("
",A1)
提取第一个空格以后的字符串
=MID(A1,FIND("
",A1)+1,LEN(A1))
用VBA提取代码如下
Sub
提取第一个空格后的字符串()
Dim
T1
As
String
Dim
i
As
Long
T1
=
Range("A1").Value
i
=
InStr(T1,
"
")
'查找第一个空格的位置
Range("B1")
=
Mid(T1,
i
+
1,
Len(T1))
'提取第一个空格后的字符串到B1单元格
End
Sub
此代码如果原数据没有空格，会提取全部。
如果是一列数据，加个循环搞定，如果数据量大，建议用数组完成，可以提高运行速度