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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/fxyv3y7vfx7fverye3.html