Question

vba如何分割字符串成数组?

比如一行文本
91719.043 251636.734 0.364 1074.587 0.650
中间用空格隔开(但是空格的数量不一样),请问如何把这一行文本变成一个数组,
数组第0个数据是91719.043
数组第1个数据是251636.734
数组第2个数据是0.364

Answer 1

稍等哈，就是按空格拆分
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
其实用数据--分列，最简单

Answer 2

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