VBA 使用分割从字符串创建数组
示例
分割功能
返回从零开始的一维数组，其中包含指定数量的子字符串。
语法
拆分（表达式[，分隔符[，限制[，比较]]]）
设定值
该比较参数可以有以下值：
例
在此示例中，通过显示几种样式演示了Split是如何工作的。注释将显示每个执行的拆分选项的结果集。最后，演示了如何循环返回的字符串数组。
Sub Test
Dim textArray() as String
textArray = Split("Tech on the Net")
'Result: {"Tech", "on", "the", "Net"}
textArray = Split("172.23.56.4", ".")
'Result: {"172", "23", "56", "4"}
textArray = Split("A;B;C;D", ";")
'Result: {"A", "B", "C", "D"}
textArray = Split("A;B;C;D", ";", 1)
'Result: {"A;B;C;D"}
textArray = Split("A;B;C;D", ";", 2)
'Result: {"A", "B;C;D"}
textArray = Split("A;B;C;D", ";", 3)
'Result: {"A", "B", "C;D"}
textArray = Split("A;B;C;D", ";", 4)
'Result: {"A", "B", "C", "D"}
'You can iterate over the created array
Dim counter As Long
For counter = LBound(textArray) To UBound(textArray)
Debug.PrinttextArray(counter)
Next
End Sub