vba 中split函数及数组搭配for循环的应用

split函数可以分割字符串，并保存到数组中，通过for循环可以逐个调取数组中的数据，此例通过将多个字符串合并为一个字符串，并用split函数分割成原始字符串存放到数组中，搭配for循环可以逐一取出原始字符串。实例代码如下：

Sub getversion()
Dim a As String, b As String, c As String
Dim d As String
Dim e As String
Dim ee As String
Dim f As String
Dim ff As String
a = "武松"
b = "大郎"
c = "林冲"
d = "李逵"
e = a & "," & b & "," & c & "," & d
f = Split(e, ",")

For i = 1 To 4
    ee = ee & f(i - 1) & ","
Next i
MsgBox ee
ff = Split(ee, ",")
For i = 1 To 4
    MsgBox f(i - 1)
Next i

End Sub