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

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