Question

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

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

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
此代码如果原数据没有空格，会提取全部。
如果是一列数据，加个循环搞定，如果数据量大，建议用数组完成，可以提高运行速度