VBA 文字列を分割する（Split関数）

　実務では、CSVファイルのように、「,」など特定の符号や文字で、文字列を分割したりすることがよくあります。Split関数は、「,」（カンマ）やスペース等で区切られた文字列を分割し、一次元配列を作成することができます。今日は、その基本的な使い方を見て行きましょう。

 

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

 

 

構文

Split(文字列, 区切り文字, 最大分割数, 比較モード)

 

※　青字部分は、省略可能です。

 

 

Sub test1()
　　'　カンマ「,」で分割

    Dim myTmp As Variant
    myTmp = Split("USA,NASA,GPS", ",")
    Cells(2, 1) = myTmp(0)
    Cells(3, 1) = myTmp(1)
    Cells(4, 1) = myTmp(2)
End Sub

 

実行結果

 

 

Sub test2()
　　'　半額スペースで分割

    Dim myTmp As Variant
    myTmp = Split("アジア 日本 東京 八王子市")
    
    Cells(2, 1) = myTmp(0)
    Cells(3, 1) = myTmp(1)
    Cells(4, 1) = myTmp(2)
    Cells(5, 1) = myTmp(3)
End Sub

※　半角スペースで区切られた文字列を分割して配列に変換します。

 

実行結果

 

 

 

 

Sub test3()
    '「県」で分割

    Dim i As Long, myTmp As Variant
    For i = 2 To 6
        myTmp = Split(Cells(i, 1), "県")
        Cells(i, 2) = myTmp(0) & "県"
        Cells(i, 3) = myTmp(1)
    Next i
End Sub

 

実行結果

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

 

関連記事