1行ずつ意味を教えてほしいです。 Sub CombSheets() Dim i As Integer Dim eRow As Long Dim mySh As Worksheet ActiveWorkbook.Sheets.Add before:=Sheets(1) http://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 http://mySh.Select Set mySh = Nothing
Visual Basic