【エクセルマクロ】複数行を1行にまとめる方法：動画あり

エクセルマクロで、複数行を1行にまとめるVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

複数行を1行にまとめる

以下のマクロを実行すると、2行以上の複数行を1行に並び変えます。

Sub 複数行のデータを1行にまとめる()

Dim i As Long
Dim Last_Clm As Long
Dim Target_Clm As Long

    '転記開始列 B列
    Target_Clm = 2

    '4行分ループ
    For i = 1 To 4
    
        '最終列を取得
        Last_Clm = Cells(i, Columns.Count).End(xlToLeft).Column
    
        'コピ-して貼り付け
        Range(Cells(i, 2), Cells(i, Last_Clm)).Copy Cells(7, Target_Clm)
        
        '転記開始列　取得
        Target_Clm = Cells(7, Columns.Count).End(xlToLeft).Column + 1

    Next i

End Sub

マクロ実行前

複数の行にデータが入力されている状態です。

マクロ実行後

1～4行目の値を、一括で7行目に転記しました。

 
 
この記事がお役に立ちますと幸いです。
 

・【エクセルマクロ】データ並べ替えを自動化まとめ
 

【エクセルマクロ】データ並べ替えを自動化する：超便利7選

エクセルマクロで、データ並べ替えを自動化するVBAコードをご紹介します。どのマクロコードも、コピペで使用できます。ぜひお試しください！

kirinote.com

2022.11.12