VBA関数：指定文字で分割して配列にする（Split）

Split

Split関数は文字列を区切り文字で分割して配列に変換した結果を返します。CSVファイルの読み込み時にはお世話になる関数です。

基本的な使い方は単純で、分割したい文字列と、どの文字で分割するのかを引数で渡して、Variant型か動的配列の戻り値として受け取ります。

Dim v
v = Split("111,2222,33333", ",")

1 2	Dim v v = Split("111,2222,33333", ",")

このようにカンマ区切りの文字列を、カンマで分割すると以下のように配列化されます。通常の配列と同じため、配列の先頭は0から始まります。

Degug.Print v(0) '// "111"
Degug.Print v(1) '// "2222"
Degug.Print v(2) '// "33333"

Degug.Print v(0) '// "111"

Degug.Print v(1) '// "2222"

Degug.Print v(2) '// "33333"

また、配列化に変換したあとにループして入れるの要素を１つずつ処理したい場合があります。その場合に配列の添え字の最大値までループすることがほとんどです。上の場合であれば「v(2)」の「2」が知りたい場合ですね。このような場合はUBound関数を使います。

    Dim v
    Dim i
    v = Split("111,2222,33333", ",")
    
    For i = 0 To UBound(v)
        Debug.Print v(i)
    Next

Dim v

Dim i

v = Split("111,2222,33333", ",")

For i = 0 To UBound(v)

Debug.Print v(i)

UBound関数の詳細については「配列の要素数を取得する（UBound、LBound）」をご参照ください。

構文

Function Split(Expression As String, [Delimiter As String = " "], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare])

1	Function Split(Expression As String, [Delimiter As String = " "], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare])

戻り値

戻り値は内部処理形式がStringのVariant型の一次元配列になります。

「Dim v As Variant」のようにVariant型の変数を宣言してもいいですし、「Dim v() As String」のようにString型の動的配列として変数宣言しても構いません。

Expression

分割したい文字列を指定します。長さが0の””の文字列を指定した場合は空配列を返します。

Delimiter

省略可能です。区切り文字列を指定します。省略時は半角スペース1文字が区切り文字になります。

カンマ「”,”」を指定することが多いと思いますが、タブ文字を表すvbTabなどの定数や、「”@@”」のような２文字以上での指定も可能です。

長さが0の””の文字列を指定した場合は空配列を返します。

Limit

省略可能です。何分割するのかを指定します。

省略時は-1が指定され、全ての要素の配列が返却されます。”1,2,3″をカンマで区切る場合に2を指定すると”1″と”2,3″の２つの要素の配列が返却されます。

Compare

省略可能です。分割対象文字列に含まれる区切り文字の識別方法をVbCompareMethod列挙型の定数で指定します。

省略時はバイナリモードになります。

定数	値	内容
vbBinaryCompare	0	バイナリモード。大文字と小文字、全角と半角、ひらがなとカタカナをそれぞれ区別して比較します。
vbTextCompare	1	テキストモード。大文字と小文字、全角と半角、ひらがなとカタカナをそれぞれ区別せず同じものとして比較します。
vbDatabaseCompare	2	Access用の定数のため通常は使う必要はありませんが指定可能です。指定した場合はテキストモードと同様に動作します。

サンプルコード

よくあるCSVファイル形式や、その他のパターンでのSplit関数の使い方のサンプルコードです。

Sub SplitTest()
    Dim s
    Dim v() As String
    Dim c
    
    '// CSVファイル形式
    Debug.Print "CSVファイル形式"
    s = "1,2,3,4,5"
    v = Split(s, ",")
    For Each c In v
        Debug.Print c
    Next
    
    '// CSVファイル形式（Limit=3）
    Debug.Print "CSVファイル形式（Limit=3）"
    s = "1,2,3,4,5"
    v = Split(s, ",", Limit:=3)
    For Each c In v
        Debug.Print c
    Next
    
    '// タブ区切り形式
    Debug.Print "タブ区切り形式"
    s = "1" & vbTab & "2" & vbTab & "3"
    v = Split(s, vbTab)
    For Each c In v
        Debug.Print c
    Next
    
    '// 文字区切り形式
    Debug.Print "文字区切り形式"
    s = "1A2A3A4"
    v = Split(s, "A")
    For Each c In v
        Debug.Print c
    Next
        
    '// 文字区切り形式（テキストモード）
    Debug.Print "文字区切り形式（テキストモード）"
    s = "1A2A3A4"
    v = Split(s, "ａ", Compare:=vbTextCompare)
    For Each c In v
        Debug.Print c
    Next
    
    '// 複数文字区切り形式
    Debug.Print "複数文字区切り形式"
    s = "1＠＠＠2＠＠＠3＠＠＠4"
    v = Split(s, "＠＠＠")
    For Each c In v
        Debug.Print c
    Next
End Sub

Sub SplitTest()

Dim s

Dim v() As String

Dim c

'// CSVファイル形式

Debug.Print "CSVファイル形式"

s = "1,2,3,4,5"

v = Split(s, ",")

For Each c In v

Debug.Print c

'// CSVファイル形式（Limit=3）

Debug.Print "CSVファイル形式（Limit=3）"

s = "1,2,3,4,5"

v = Split(s, ",", Limit:=3)

For Each c In v

Debug.Print c

'// タブ区切り形式

Debug.Print "タブ区切り形式"

s = "1" & vbTab & "2" & vbTab & "3"

v = Split(s, vbTab)

For Each c In v

Debug.Print c

'// 文字区切り形式

Debug.Print "文字区切り形式"

s = "1A2A3A4"

v = Split(s, "A")

For Each c In v

Debug.Print c

'// 文字区切り形式（テキストモード）

Debug.Print "文字区切り形式（テキストモード）"

s = "1A2A3A4"

v = Split(s, "ａ", Compare:=vbTextCompare)

For Each c In v

Debug.Print c

'// 複数文字区切り形式

Debug.Print "複数文字区切り形式"

s = "1＠＠＠2＠＠＠3＠＠＠4"

v = Split(s, "＠＠＠")

For Each c In v

Debug.Print c

End Sub

実行結果

CSVファイル形式
1
2
3
4
5
CSVファイル形式（Limit=3）
1
2
3,4,5
タブ区切り形式
1
2
3
文字区切り形式
1
2
3
4
文字区切り形式（テキストモード）
1
2
3
4
複数文字区切り形式
1
2
3
4

CSVファイル形式

CSVファイル形式（Limit=3）

3,4,5

タブ区切り形式

文字区切り形式

文字区切り形式（テキストモード）

複数文字区切り形式

分割対象文字列と戻り値の変数を同じ変数にはしないようにする

分割対象文字列と戻り値用の変数を同じ変数で使いまわすことは可能ですが、プログラミングの作法として止めておいた方がいいです。

このような書き方ですね。

Sub SplitSameParam()
    Dim s
    
    s = "1,2,3"
    s = Split(s, ",")
End Sub

Sub SplitSameParam()

Dim s

s = "1,2,3"

s = Split(s, ",")

End Sub

変数の用途が途中で変わってしまうようなプログラミングは混乱の元になります。ちゃんと変数を分けて書くようにしましょう。

ご自身が書かないとしてもSplit関数においてはこういう書き方をする方が結構おられますので注意しましょう。

戻り値の変数宣言でよくある間違い

Split関数の戻り値は上でも書いたとおりVariant型の一次元配列です。

そのため、Variant型ということから変数宣言時に型を宣言せずに以下の３行目のように暗黙Variantや As Variantと書いている方がおられます。

Sub SplitTest()
    Dim s
    Dim v
    
    s = "1,,2,,3"
    v = Split(s, ",,")
End Sub

Sub SplitTest()

Dim s

Dim v

s = "1,,2,,3"

v = Split(s, ",,")

End Sub

いやいや、

    Dim v As String

3	Dim v As String

って書くとエラーになるじゃん、という話があるのですが、この書き方では文字列変数に過ぎず、戻り値が配列であることを考慮できていないためエラーになっているのであって、

    Dim v() As String

3	Dim v() As String

とString型の配列として書けばエラーになりません。

ちなみに私はそれらを分かった上でSplit関数を使う場合は「Dim v」しか書かず暗黙のVariantにしていることがほとんどです。理由は特にないです。強いて言えば、Split＝文字列分割、というのが分かっているので使うときに間違わないしそれでよくね？って感じですかね？

Split関数はFor Eachと相性がいい

そもそもの話として、Split関数を使うということは元の文字列をバラして１つずつ処理したい、という理由がほとんどです。

そのため、Split関数を使う場合はそのあとに分割した配列をループ処理することが多くなります。そこでループ処理をどのように書くか、ということになるのですがFor Eachで書くことをお勧めします。

以下はFor Eachで書いた場合の例です。

Sub SplitLoop1()
    Dim v
    Dim s
    v = Split("a,b,c", ",")
    
    For Each s In v
        Debug.Print s
    Next
End Sub

Sub SplitLoop1()

Dim v

Dim s

v = Split("a,b,c", ",")

For Each s In v

Debug.Print s

End Sub

For Eachを使うと1行で配列の値も取得できるためループカウンタが不要になります。

以下のようにFor文などでループカウンタを使ってもいいですけどFor Eachに慣れると面倒に感じます。

Sub SplitLoop2()
    Dim v
    Dim s
    Dim i
    v = Split("a,b,c", ",")
    
    For i = 0 To UBound(v)
        s = v(i)
        Debug.Print s
    Next
End Sub

Sub SplitLoop2()

Dim v

Dim s

Dim i

v = Split("a,b,c", ",")

For i = 0 To UBound(v)

s = v(i)

Debug.Print s

End Sub

ループの書き方は好みの差もあるとは思いますが、配列の要素値の取得とループの記述が１行で書けるため、個人的には圧倒的にFor Eachで書くことがほとんどです。ForやDo Loopで書く場合は「配列の何番目の場合は特殊な処理が必要」などの場合でない限ります。それ以外はループカウンタは必要なくなります。

Split

構文

サンプルコード

分割対象文字列と戻り値の変数を同じ変数にはしないようにする

戻り値の変数宣言でよくある間違い

Split関数はFor Eachと相性がいい

関連記事