半角カンマ区切りの文字列を配列に代入する

例えばCSVファイルなどの項目別の分解などに使います。

Sub test()
     Dim line As String
     Dim barabara() As String
     line = "花,鳥,風,月"
     barabara() = Split(line, ",")
     Debug.Print "最初の要素は" + barabara(0)
     Debug.Print "２番目の要素は" + barabara(1)
     Debug.Print "３番目の要素は" + barabara(2)
     Debug.Print "４番目の要素は" + barabara(3)
     Debug.Print "最初の要素番号は"; LBound(barabara)
     Debug.Print "最後の要素番号は"; UBound(barabara)
     Debug.Print "要素数は"; UBound(barabara) - LBound(barabara()) + 1
 End Sub

これを実行すると、

最初の要素は花
２番目の要素は鳥
３番目の要素は風
４番目の要素は月
最初の要素番号は 0 
最後の要素番号は 3 
要素数は 4 

となります。 区切り文字を変える場合、split()関数の２つめのパラメータを変えればOKです。
VBAのお勉強　まとめへ戻る