Split関数で文字列を分割する

http://officetanaka.net/excel/vba/tips/tips62.htm


Splitの出力先をリストにする時は動的配列にする事

Sub Sample2()
    Dim tmp As Variant, i As Long
    tmp = Split("123,田中,tanaka", ",")
    For i = LBound(tmp) To UBound(tmp)
        MsgBox tmp(i)
    Next i
End Sub
