比如一行文本
91719.043 251636.734 0.364 1074.587 0.650
中间用空格隔开(但是空格的数量不一样),请问如何把这一行文本变成一个数组,
数组第0个数据是91719.043
数组第1个数据是251636.734
数组第2个数据是0.364
稍等哈，就是按空格拆分
Sub 字符串()
Dim K
For i = 1 To [a65536].End(xlUp).Row
K = Split(Cells(i, 1), " ")
For j = 0 To UBound(K)
Cells(i, j + 2).Value = K(j)
Next
Next
End Sub
其实用数据--分列，最简单
Sub 字符串()
Dim K
For i = 1 To [a65536].End(xlUp).Row
K = Split(Cells(i, 1), " ")
For j = 0 To UBound(K)
Cells(i, j + 2).Value = K(j)
Next
Next
End Sub
其实用数据--分列，最简单
温馨提示：答案为网友推荐，仅供参考
第1个回答 2018-08-09
Sub mm()
s = "91719.043 251636.734 0.364 1074.587 0.650"
s = Trim(s)
m = ""
k = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = " " Then
If k = 0 Then
k = i
m = m & Mid(s, i, 1)
End If
Else
m = m & Mid(s, i, 1)
k = 0
End If
Next
nn = Split(m, " ")
End Sub本回答被提问者采纳
s = "91719.043 251636.734 0.364 1074.587 0.650"
s = Trim(s)
m = ""
k = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = " " Then
If k = 0 Then
k = i
m = m & Mid(s, i, 1)
End If
Else
m = m & Mid(s, i, 1)
k = 0
End If
Next
nn = Split(m, " ")
End Sub本回答被提问者采纳
