複数シートのデータ統合

Sub 複数シートのデータ統合()



For i = 2 To Worksheets.Count
With Worksheets(i)
lRow = .Cells(Rows.Count, 1).End(xlUp).Row
lCol = .Cells(1, Columns.Count).End(xlToLeft).Column
If lRow >= 1 Then
lRow2 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
.Activate
.Range(Cells(1, 1), Cells(lRow, lCol)).Copy Worksheets(1).Cells(lRow2 + 1, 1)
End If
End With
Next i
Worksheets(1).Activate
Range("A1").Select
Application.ScreenUpdating = True

End Sub