10/01/11 02:42:57
俺は複乳と戦うぜ
てめえのコードは無駄が多いんだよっ
Sub Macro111()
Sheets("集計").Select
Cells.Clear
[A1].Select
For i = 1 To 12
Sheets(Format(i, "00")).Select
Range([A1], [A1].End(xlDown).Offset(0, 1)).Copy
Sheets("集計").Select
ActiveSheet.Paste
Selection.End(xlDown).Offset(1, 0).Select
Next
End Sub