【Day21】文系オタクのエンジニア道～複数シートを一つにまとめる～
こんにちは
安田です
今回は複数のシートのデータをひとつにまとめる方法を学習しました
アウトプットイメージは下記のとおりです
Sub シートを一つに() Dim a For i = 2 To Sheets.Count 'まとめシートのA列の一番下にデータ1～3のデータを入れる Set a = Sheets("まとめ").Cells(Rows.Count, "A").End(xlUp) 'データ1～3のシートの情報をまとめシートに転記する
