在VBA中分割字符串以获取数值列表

Question

例如，我想分割下面的字符串“2/3/4/4”并获取每个数字并将它们保存为列表。

我可以拆分代码拆分字符串（“2/3/4/4”，“/”），但我无法设法把它们放在一个列表中。

任何帮助表示赞赏。

Answer 1

是的，就像engineersmnky说，你只能分割（）的结果返回到一个String数组，像这样：

Public Sub Test() 

Dim results() As String 
Dim i As Integer 

    results = Split("2/3/4/4", "/") 
    For i = LBound(results) To UBound(results) 
     MsgBox results(i) 
    Next i 

End Sub 

Answer 2

这将拆分"2/3/4/4"，并把号码A1:A4

Sub SplitAndList() 
    Dim nums As Variant, n As Integer 

    nums = Split("2/3/4/4", "/") 

    For n = 0 To UBound(nums) 
     Range("A" & n + 1) = nums(n) 
    Next n 
End Sub