Function Split(Expression As String, [Delimiter], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare])
Member of VBA.Strings
Split a string into an array
2. 例子
Private Sub Command1_Click()
Dim x As String
x = "a b c"
Dim y
y = Split(x, " ")
For i = 0 To UBound(y)
Debug.Print y(i)
Next
End Sub