Sub 合并表()
For i = 2 To Sheets.Count
j = Sheets(i).Range("a65536").End(xlUp).Row
k = Sheets(1).Range("a65536").End(xlUp).Row
If i = 2 Then
Sheets(i).Range("a1:f" & j).Copy Sheets(1).Range("a" & k)
Else
Sheets(i).Range("a2:f" & j).Copy Sheets(1).Range("a" & k)
End If
Next
End Sub
