【エクセルマクロ】縦データを横データに並べる：3倍高速化する手法

エクセルマクロで、縦データを横データに並べるVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。

縦データを横データに並べる

以下のExcelVBAを実行すると、縦データを横データに並べます。


Sub 縦リストを横リストに変換()

Dim i As Long
Dim Q As Long
Dim Z As Long
Dim LastRow As Long
Dim myList As Variant
           
    'A列のデータを配列に格納
    myList = Range("A1", Range("A" & Rows.Count).End(xlUp))
    
    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Z = 1
    
    '配列をループ
    For i = 1 To LastRow / 3
        
        '配列を3つ分ループ
        For Q = 0 To 2
            
            'D~F列に配列を転記
            Cells(i, Q + 4) = myList(Z, 1)
            Z = Z + 1
            
        Next Q
    Next i

 End Sub