EXCEL VBA 配列の要素を結合・特定の列データを結合・セル同士の結合・文字列を結合する方法（Join関数）

EXCEL VBA 配列の要素を結合・特定の列データを結合・セル同士の結合・文字列を結合する方法（Join関数）

'
'
Sub Join00A()

    Dim Temp(3), Ans As String
    
    Temp(0) = "東京"
    Temp(1) = "神奈川"
    Temp(2) = "埼玉"
    Temp(3) = "千葉"
    
    Ans = join(Temp, ",")

    MsgBox Ans

End Sub
'

EXCEL VBA 配列の要素を結合・数値の配列データ251個をひとつに結合する（Join関数）

'
'
Sub Join01() '数値の配列データ251個を一つに結合する。

    Dim Temp(250), Ans As String
    Dim I As Long
    
    For I = 0 To UBound(Temp) '配列　0～250まで繰り返します。
    
        Temp(I) = I  '各配列に配列番号と同じ番号を格納します。
    Next I

    Ans = join(Temp, ",") '格納した０～250の配列をカンマ区切りでひとつに纏めます。

    MsgBox Ans  'ひとつに纏めたデータをメッセージBoxに表示します。

End Sub
'

EXCEL VBA セル範囲から2つの配列を作成してその配列を結合します。（Join関数）

'
'
Sub Join02()  '2つの配列データをJoin関数で結合する。

    Dim Temp01(), Temp02(), Array01() As Variant
    Dim Ans(), Msg As String
    Dim I,lRow As Long

    lRow = Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終列を取得します。
    Array01 = Range("A1:B" & lRow)  '表の範囲を2次元配列で取り込む
    
    Temp01 = WorksheetFunction.Index(WorksheetFunction.Transpose(Array01), 1)  '１次元配列に分割　（A列）
    Temp02 = WorksheetFunction.Index(WorksheetFunction.Transpose(Array01), 2)  '１次元配列に分割　（B列）

    ReDim Ans(UBound(Temp01))  '配列を再定義する。（A列の配列分）

    For I = 1 To UBound(Temp01)  'A列分の配列を繰り返す。
        Ans(I - 1) = Temp01(I) & Temp02(I)  'A列の配列とB列の配列を結合する。
    Next I

    Msg = join(Ans, "-")  '結合した配列を一つに纏めます。
    
    MsgBox Msg  '結果を表示します。

End Sub
'

EXCEL VBA 複数の列データを一つ列に結合して転記します。（列単位の文字列結合・大量データ処理・高速に結合）
※Join関数は使用していません。

'
'
Sub Join03a()  '大量データの文字列結合(高速)

    Dim Temp01(), Temp02(), Temp03(), Array01(), Str() As Variant
    Dim I, lRow As Long
    
    lRow = Cells(Rows.Count, "C").End(xlUp).Row 'C列の最終列を取得します。
    
    Array01 = Range("A1:C" & lRow) 'A1～C列の最終行までデータを2次元配列で登録します。
    
    Temp01 = WorksheetFunction.Index(WorksheetFunction.Transpose(Array01), 1) 'A列のデータをTemp0１へ分割します。
    Temp02 = WorksheetFunction.Index(WorksheetFunction.Transpose(Array01), 2) 'B列のデータをTemp0１へ分割します。
    Temp03 = WorksheetFunction.Index(WorksheetFunction.Transpose(Array01), 3) 'C列のデータをTemp0１へ分割します。
    
    ReDim Str(UBound(Temp01)) 'Strの配列をA列の配列件数で再定義します。

    For I = 1 To UBound(Temp01)  'A列のデータ分繰り返します。
        Str(I - 1) = Temp01(I) & "-" & Temp02(I) & "-" & Temp03(I)  '分割したA列・B列・C列のデータを結合します。
    Next I
    
    Range("E1:E" & UBound(Temp01)) = WorksheetFunction.Transpose(Str)  'E列に結合したデータを全て転記します。
         

End Sub
'