MSDNのSplit関数を見てください。以下は2つのセクションに分かれています。
- 次のコードは、最初に文字列を分割し、コンマで区切られた各値をstrSplitに割り当てます。
- 次に、サブ文字列を「」でさらに分割し、各ピースをpieceSplit()に割り当てます。これは、イミディエートウィンドウに出力されます。
プロジェクトに変更して適用できる最後の部分。
Dim str As String, piece As Variant
Dim strSplit() As String, pieceSplit() As Variant
Dim i As Double, j As Double
str = "XX 99999 - X99, XX 99999 - X99, XX 99999 - X99"
strSplit = Split(str, ",")
ReDim pieceSplit(UBound(strSplit)) As Variant
For i = 0 To UBound(strSplit)
pieceSplit(i) = Split(strSplit(i), " ")
Next
For Each piece In pieceSplit
For j = 0 To UBound(piece, 1)
Debug.Print piece(j)
Next j
Next