如题所述
Private Function MyFunction()
Dim s As String, Arr
s = "1,2,3,4,5,6,7,8,9,0"
Arr = Split(s, ",") '以逗号分割文本并放入数组,注意这个数组定义时候不能带括号,
For i = 0 To UBound(Arr)
MsgBox Arr(i)
Next
End Function
Dim s As String, Arr
s = "1,2,3,4,5,6,7,8,9,0"
Arr = Split(s, ",") '以逗号分割文本并放入数组,注意这个数组定义时候不能带括号,
For i = 0 To UBound(Arr)
MsgBox Arr(i)
Next
End Function
温馨提示:答案为网友推荐,仅供参考