【エクセルマクロ】横データを縦データに入れ替える:自動化が便利

エクセルマクロ_横データ縦データに入れ替える_アイキャッチ エクセルマクロで効率化する

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

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

横データを縦データに入れ替える

以下のマクロを実行すると、横データを縦データに入替えます。

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

Dim i As Long
Dim j As Long
Dim Z As Long
Dim YokoLoop As Long
Dim TateLoop As Long

    '横ループ回数(B~E列)
    YokoLoop = 5

    '縦ループ回数(2~6行目)
    TateLoop = 6

    Z = 2
    
    '縦ループ
    For i = 2 To TateLoop
    
        '横ループ
        For j = 2 To YokoLoop
        
            If Cells(i, j) <> "" Then
            
                Cells(Z, 8) = Cells(i, j)
                Cells(Z, 7) = Cells(i, 1)
                Z = Z + 1
        
            End If
        
        Next j
    Next i
    
 End Sub

 

VBAコードの解説

[If Cells(i, j) <> “” Then] にて、「種類」の値が空欄かどうかチェックします。

「種類」の値 が空欄じゃなければ、以下を転記します。

・「種類」の値 → H列へ転記
・「種類」の値 と同じ行にあるA列の「名称」→ G列へ転記


 

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