EXCEL VBA セルの文字列結合・選択文字列の結合（高速化・テクニック）

EXCEL VBA セルの文字列結合・選択文字列の結合（高速化・テクニック）

Sub Mojiretuketugou01()

    For I = 1 To 10000   
        Cells(I, "G") = Cells(I, "A") & Cells(I, "B") & Cells(I, "C")
    Next I

End Sub

EXCEL VBA セルの文字列結合・選択文字列の結合（配列を利用した高速化結合）

Sub Mojiretuketugou02()

    Dim array01, array02 As Variant  '配列の宣言をします。
    Dim I As Long
    
    array01 = WorksheetFunction.Transpose(Range("A1:C10000"))  '配列01にA1：C10000のデータを登録します。
        
    ReDim array02(10000) '配列の再定義

    For I = LBound(array02) To UBound(array02) - 1    '再定義した配列分ループします。

         array02(I) = array01(1, I + 1) & array01(2, I + 1) & array01(3, I + 1)  '配列01：A列＆B列＆C列を配列02に入れます。
    
    Next I
        
    Range("G1:G10000") = WorksheetFunction.Transpose(array02)  '配列02のデータをG列に表示させます。


End Sub