Join関数

Join 関数は、配列の要素を指定した区切り文字で結合して、1 つの文字列を作成する VBA の関数です。Split 関数の逆操作として機能し、データの出力や整形に非常に便利です。

基本構文

Join(配列, [区切り文字])

引数

戻り値

結合された文字列（String 型）

基本的な使い方

シンプルな結合

Sub JoinBasicExample()
    Dim fruits() As Variant
    Dim result As String

    ' 配列を定義
    fruits = Array("りんご", "バナナ", "オレンジ")

    ' カンマで結合
    result = Join(fruits, ",")
    Debug.Print result  ' りんご,バナナ,オレンジ

    ' スペースで結合
    result = Join(fruits, " ")
    Debug.Print result  ' りんご バナナ オレンジ

    ' 改行で結合
    result = Join(fruits, vbCrLf)
    Debug.Print result
    ' 出力:
    ' りんご
    ' バナナ
    ' オレンジ
End Sub

区切り文字の省略

Sub JoinDefaultDelimiter()
    Dim words() As Variant
    Dim sentence As String

    words = Array("Hello", "World", "from", "VBA")

    ' 区切り文字を省略（スペースで結合）
    sentence = Join(words)
    Debug.Print sentence  ' Hello World from VBA
End Sub

Split と Join の組み合わせ

データの加工と再結合

Sub SplitJoinCombo()
    Dim text As String
    Dim parts() As String
    Dim result As String

    ' CSVデータを読み込んで加工
    text = "りんご,バナナ,オレンジ"

    ' 分割
    parts = Split(text, ",")

    ' 各要素を加工（例：前に番号を付ける）
    Dim i As Long
    For i = LBound(parts) To UBound(parts)
        parts(i) = (i + 1) & ". " & parts(i)
    Next i

    ' 再結合
    result = Join(parts, vbCrLf)
    Debug.Print result
    ' 出力:
    ' 1. りんご
    ' 2. バナナ
    ' 3. オレンジ
End Sub

CSV データの生成

Sub CreateCSVLine()
    Dim data() As Variant
    Dim csvLine As String

    ' データ配列を作成
    data = Array("山田太郎", "営業部", "東京都", "[email protected]")

    ' CSV形式に変換
    csvLine = Join(data, ",")
    Debug.Print csvLine
    ' 出力: 山田太郎,営業部,東京都,[email protected]

    ' ファイルに書き込む場合
    Dim fileNum As Integer
    fileNum = FreeFile
    Open "C:\output.csv" For Append As #fileNum
    Print #fileNum, csvLine
    Close #fileNum
End Sub

実践的な活用例

SQL の IN 句を生成

Sub GenerateSQLIN()
    Dim ids() As Variant
    Dim sqlCondition As String

    ids = Array(1, 5, 10, 15, 20)

    ' IN句用の文字列を生成
    sqlCondition = "id IN (" & Join(ids, ", ") & ")"
    Debug.Print sqlCondition
    ' 出力: id IN (1, 5, 10, 15, 20)

    ' 実際のSQL文
    Dim sql As String
    sql = "SELECT * FROM users WHERE " & sqlCondition
    Debug.Print sql
End Sub

パンくずリストの生成

Sub GenerateBreadcrumb()
    Dim path() As Variant
    Dim breadcrumb As String

    path = Array("ホーム", "製品", "カテゴリ", "商品詳細")

    ' パンくずリストを生成
    breadcrumb = Join(path, " > ")
    Debug.Print breadcrumb
    ' 出力: ホーム > 製品 > カテゴリ > 商品詳細

    ' HTMLバージョン
    breadcrumb = Join(path, " > ")
    Debug.Print breadcrumb
End Sub

タグのリスト表示

Sub DisplayTags()
    Dim tags() As Variant
    Dim tagList As String

    tags = Array("VBA", "Excel", "自動化", "プログラミング")

    ' ハッシュタグ形式
    Dim i As Long
    For i = LBound(tags) To UBound(tags)
        tags(i) = "#" & tags(i)
    Next i

    tagList = Join(tags, " ")
    Debug.Print tagList
    ' 出力: #VBA #Excel #自動化 #プログラミング
End Sub

ファイルパスの構築

Sub BuildFilePath()
    Dim pathParts() As Variant
    Dim filePath As String

    pathParts = Array("C:", "Users", "Username", "Documents", "report.xlsx")

    ' バックスラッシュで結合
    filePath = Join(pathParts, "\")
    Debug.Print filePath
    ' 出力: C:\Users\Username\Documents\report.xlsx
End Sub

複数列のデータを結合

Sub JoinMultiColumnData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim rowData() As Variant
    Dim combined As String

    Set ws = ActiveSheet
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

    ' 各行のA〜C列を結合
    For i = 2 To lastRow
        ReDim rowData(2)
        rowData(0) = ws.Cells(i, 1).Value
        rowData(1) = ws.Cells(i, 2).Value
        rowData(2) = ws.Cells(i, 3).Value

        ' スペースで結合してD列に出力
        combined = Join(rowData, " ")
        ws.Cells(i, 4).Value = combined
    Next i
End Sub

パフォーマンス最適化

文字列連結との比較

Sub ComparePerformance()
    Dim items() As String
    Dim i As Long
    Dim result As String
    Dim startTime As Double

    ' 10000個の要素を持つ配列を作成
    ReDim items(9999)
    For i = 0 To 9999
        items(i) = "item" & i
    Next i

    ' 方法1: &演算子でループ連結（遅い）
    startTime = Timer
    result = ""
    For i = 0 To 9999
        result = result & items(i) & ","
    Next i
    Debug.Print "&演算子: " & Format(Timer - startTime, "0.000") & "秒"

    ' 方法2: Join関数（速い）
    startTime = Timer
    result = Join(items, ",")
    Debug.Print "Join関数: " & Format(Timer - startTime, "0.000") & "秒"
End Sub

注意点と Tips

空文字列の処理

Sub JoinWithEmptyStrings()
    Dim data() As Variant
    Dim result As String

    ' 空文字列を含む配列
    data = Array("a", "", "b", "", "", "c")

    ' 空文字列も結合される
    result = Join(data, ",")
    Debug.Print result  ' a,,b,,,c

    ' 空文字列を除外する場合
    Dim filtered() As String
    Dim count As Long
    Dim i As Long, j As Long

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

    ' フィルタリング
    If count > 0 Then
        ReDim filtered(count - 1)
        j = 0
        For i = LBound(data) To UBound(data)
            If data(i) <> "" Then
                filtered(j) = data(i)
                j = j + 1
            End If
        Next i

        result = Join(filtered, ",")
        Debug.Print result  ' a,b,c
    End If
End Sub

数値配列の結合

Sub JoinNumbers()
    Dim numbers() As Variant
    Dim result As String

    ' 数値の配列
    numbers = Array(1, 2, 3, 4, 5)

    ' Join関数は数値も文字列として結合
    result = Join(numbers, ", ")
    Debug.Print result  ' 1, 2, 3, 4, 5

    ' 計算式の生成
    result = Join(numbers, " + ")
    Debug.Print result & " = " & Evaluate(result)
    ' 出力: 1 + 2 + 3 + 4 + 5 = 15
End Sub

まとめ

Join 関数は、配列を文字列に結合する際の標準的な方法です。

重要なポイント：

• 配列の要素を指定した区切り文字で結合
• 区切り文字を省略するとスペースで結合
• Split 関数の逆操作
• &演算子のループより高速
• CSV 生成や SQL 文の構築に最適

関連関数：

• Split関数
  VBAのSplit関数を使って、文字列を区切り文字で分割して配列に変換する方法を詳しく解説します。CSVデータの処理や文字列の解析に必須の関数です。
  ：文字列を配列に分割

Join 関数を活用することで、効率的な文字列生成と、読みやすいコードを実現できます。