Split֐ŕ𕪊

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


Split̏o͐Xgɂ鎞͓Izɂ鎖

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