==================================================================
Sub CombSh()
Dim i As Integer
Dim eRow As Long
Dim mySh As Worksheet
ActiveWorkbook.Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "統合"
Set mySh = ActiveSheet
mySh.Range("A2:AA2").Value = Sheets(2).Range("A2:AA2").Value
For i = 2 To Sheets.Count
Sheets(i).Select
eRow = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(3, "A"), Cells(eRow, "AA")).Copy Destination:=mySh.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
Next
mySh.Select
Set mySh = Nothing
End Sub
①下記のコード全体をコピーします。
②EXCELを起動し、Altを押しながらF11を押してVBE画面にします。
③メニューの挿入から標準モジュールを選択します。
④中央右側の標準モジュールウィンドウに貼り付けます。
⑤ここでVBE画面上の実行ボタンを押すか
右上の×で閉じ、VBE画面を終了して、シート上でマクロ実行します。
*** シート上でのマクロの実行方法 ***
①Altを押しながらF8を押して、マクロの実行画面を出します。
②実行したいマクロ名CombShを選択した後、実行ボタンを押します。
==================================================================
Sub CombSh()
Dim i As Integer
Dim eRow As Long
Dim mySh As Worksheet
ActiveWorkbook.Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "統合"
Set mySh = ActiveSheet
mySh.Range("A2:AA2").Value = Sheets(2).Range("A2:AA2").Value
For i = 2 To Sheets.Count
Sheets(i).Select
eRow = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(3, "A"), Cells(eRow, "AA")).Copy Destination:=mySh.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
Next
mySh.Select
Set mySh = Nothing
End Sub