Split関数

2025年10月20日にメンテナンス済み

Split 関数は、指定した区切り文字で文字列を分割し、配列として返す VBA の関数です。CSV データの処理や、区切り文字付き文字列の解析に非常に便利です。

基本構文

Split(文字列, [区切り文字], [分割数], [比較方法])

引数

引数	型	必須	説明
文字列	String	○	分割する文字列
区切り文字	String	×	区切り文字（省略時はスペース）
分割数	Long	×	分割する最大数（省略時は制限なし）
比較方法	VbCompareMethod	×	文字列比較の方法

戻り値

文字列の配列（0 から始まるインデックス）

基本的な使い方

シンプルな分割

split_basic.bas

Sub SplitBasicExample()
    Dim text As String
    Dim parts() As String

    ' カンマ区切りの文字列を分割
    text = "りんご,バナナ,オレンジ,ぶどう"
    parts = Split(text, ",")

    ' 結果を表示
    Dim i As Long
    For i = LBound(parts) To UBound(parts)
        Debug.Print i & ": " & parts(i)
    Next i

    ' 出力:
    ' 0: りんご
    ' 1: バナナ
    ' 2: オレンジ
    ' 3: ぶどう
End Sub

チェック

Split関数の戻り値は0から始まるインデックスの配列です。LBound(parts)は常に0を返します。

CSV データの処理

split_csv.bas

Sub ProcessCSVData()
    Dim csvLine As String
    Dim fields() As String

    ' CSV行（実際にはファイルから読み込む）
    csvLine = "山田太郎,営業部,東京都,[email protected]"

    ' カンマで分割
    fields = Split(csvLine, ",")

    ' セルに出力
    Range("A1").Value = fields(0)  ' 名前
    Range("B1").Value = fields(1)  ' 部署
    Range("C1").Value = fields(2)  ' 住所
    Range("D1").Value = fields(3)  ' メール
End Sub

分割数の制限

split_limit.bas

Sub SplitWithLimit()
    Dim text As String
    Dim parts() As String

    text = "2025-10-20-Monday-Holiday"

    ' 最初の3つだけ分割（4つ目以降は結合された状態）
    parts = Split(text, "-", 3)

    Debug.Print parts(0)  ' 2025
    Debug.Print parts(1)  ' 10
    Debug.Print parts(2)  ' 20-Monday-Holiday
End Sub

チェック

第3引数で分割数を制限できます。これにより、最後の要素に残りの文字列がまとめられます。

スペース区切りの分割

split_space.bas

Sub SplitBySpace()
    Dim text As String
    Dim words() As String

    text = "Hello World from VBA"

    ' スペースで分割（区切り文字省略）
    words = Split(text)

    Dim i As Long
    For i = LBound(words) To UBound(words)
        Debug.Print words(i)
    Next i

    ' 出力:
    ' Hello
    ' World
    ' from
    ' VBA
End Sub

実践的な活用例

URL からクエリパラメータを抽出

split_url_params.bas

Sub ParseURLParameters()
    Dim url As String
    Dim queryStart As Long
    Dim queryString As String
    Dim params() As String
    Dim param As Variant
    Dim keyValue() As String

    url = "https://example.com/search?q=VBA&lang=ja&page=1"

    ' ?の位置を検索
    queryStart = InStr(url, "?")

    If queryStart > 0 Then
        ' クエリ文字列を抽出
        queryString = Mid(url, queryStart + 1)

        ' &で分割
        params = Split(queryString, "&")

        ' 各パラメータを処理
        For Each param In params
            ' =で分割
            keyValue = Split(param, "=")

            If UBound(keyValue) >= 1 Then
                Debug.Print keyValue(0) & " = " & keyValue(1)
            End If
        Next param
    End If
End Sub

メールアドレスの分解

split_email.bas

Sub ParseEmail()
    Dim email As String
    Dim parts() As String
    Dim userName As String
    Dim domain As String

    email = "[email protected]"

    ' @で分割
    parts = Split(email, "@")

    If UBound(parts) = 1 Then
        userName = parts(0)
        domain = parts(1)

        Debug.Print "ユーザー名: " & userName  ' user.name
        Debug.Print "ドメイン: " & domain      ' example.com

        ' さらにドメインを分割
        Dim domainParts() As String
        domainParts = Split(domain, ".")

        Debug.Print "トップレベルドメイン: " & domainParts(UBound(domainParts))  ' com
    End If
End Sub

日付文字列の解析

split_date.bas

Sub ParseDate()
    Dim dateText As String
    Dim parts() As String
    Dim year As String
    Dim month As String
    Dim day As String

    dateText = "2025-10-20"

    ' ハイフンで分割
    parts = Split(dateText, "-")

    If UBound(parts) = 2 Then
        year = parts(0)
        month = parts(1)
        day = parts(2)

        Debug.Print "年: " & year    ' 2025
        Debug.Print "月: " & month   ' 10
        Debug.Print "日: " & day     ' 20

        ' Date型に変換
        Dim actualDate As Date
        actualDate = DateSerial(CInt(year), CInt(month), CInt(day))
        Debug.Print "日付: " & Format(actualDate, "yyyy年mm月dd日")
    End If
End Sub

ファイルパスの分解

split_path.bas

Sub ParseFilePath()
    Dim filePath As String
    Dim pathParts() As String
    Dim fileName As String
    Dim folderPath As String

    filePath = "C:\Users\Username\Documents\report.xlsx"

    ' バックスラッシュで分割
    pathParts = Split(filePath, "\")

    ' ファイル名は最後の要素
    fileName = pathParts(UBound(pathParts))
    Debug.Print "ファイル名: " & fileName  ' report.xlsx

    ' フォルダパスを再構築
    Dim i As Long
    For i = LBound(pathParts) To UBound(pathParts) - 1
        If i = LBound(pathParts) Then
            folderPath = pathParts(i)
        Else
            folderPath = folderPath & "\" & pathParts(i)
        End If
    Next i

    Debug.Print "フォルダ: " & folderPath  ' C:\Users\Username\Documents
End Sub

注意点と Tips

空文字列の処理

split_empty.bas

Sub SplitEmptyString()
    Dim text As String
    Dim parts() As String

    ' 連続する区切り文字
    text = "a,,b,,,c"
    parts = Split(text, ",")

    ' 空文字列も配列に含まれる
    Dim i As Long
    For i = LBound(parts) To UBound(parts)
        Debug.Print i & ": [" & parts(i) & "]"
    Next i

    ' 出力:
    ' 0: [a]
    ' 1: []
    ' 2: [b]
    ' 3: []
    ' 4: []
    ' 5: [c]
End Sub

チェック

連続する区切り文字は、空文字列として配列に含まれます。データ処理時には空文字列のチェックが必要です。

空文字列のフィルタリング

split_filter_empty.bas

Sub FilterEmptyStrings()
    Dim text As String
    Dim parts() As String
    Dim filtered() As String
    Dim count As Long
    Dim i As Long

    text = "a,,b,,,c"
    parts = Split(text, ",")

    ' 空文字列でない要素をカウント
    For i = LBound(parts) To UBound(parts)
        If parts(i) <> "" Then
            count = count + 1
        End If
    Next i

    ' フィルタリングした配列を作成
    If count > 0 Then
        ReDim filtered(count - 1)
        Dim j As Long
        j = 0

        For i = LBound(parts) To UBound(parts)
            If parts(i) <> "" Then
                filtered(j) = parts(i)
                j = j + 1
            End If
        Next i

        ' 結果表示
        For i = LBound(filtered) To UBound(filtered)
            Debug.Print filtered(i)
        Next i
    End If
End Sub

大文字小文字を区別しない分割

split_case_insensitive.bas

Sub SplitCaseInsensitive()
    Dim text As String
    Dim parts() As String

    text = "HelloWORLDhelloWORLD"

    ' 大文字小文字を区別しない（vbTextCompare）
    parts = Split(text, "world", , vbTextCompare)

    Dim i As Long
    For i = LBound(parts) To UBound(parts)
        Debug.Print i & ": " & parts(i)
    Next i

    ' 出力:
    ' 0: Hello
    ' 1: hello
    ' 2: （空文字列）
End Sub

まとめ

Split 関数は、VBA で文字列を分割する際の基本的かつ強力な関数です。

重要なポイント：

指定した区切り文字で文字列を配列に分割
戻り値は 0 から始まるインデックスの配列
分割数を制限可能
空文字列も配列の要素として含まれる
CSV データ処理や URL 解析などに最適

関連関数：

Split 関数をマスターすることで、様々な文字列処理が効率的に行えるようになります。

#VBA #Split #文字列操作 #配列

VBAにおけるSleep関数の使い方と具体例

文字列の空白を削除する方法(Trim/LTrim/RTrim関数)