vba - 在 VBA 中拆分字符串以获取数值列表

Question

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

我可以使用代码 split("2/3/4/4", "/") 拆分字符串，但是我无法将它们放入列表中。

任何帮助表示赞赏。

Answer 1

是的，就像engineersmnky 说的那样，您可以将Split() 的结果返回到字符串数组，如下所示：

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