合并工作表

Sub Combine()

Sheets(1).Name = "Combine"
Application.ScreenUpdating = False

For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Combine" Then
      k = Range("A65536").End(xlUp).Row + 1
      Sheets(i).UsedRange.Offset(1, 0).Copy Sheets("Combine").Cells(k, 1)
    End If
Next

Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Complete!"

End Sub

Sub Combine()

Sheets(1).Name = "Combine"
Application.ScreenUpdating = False

For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Combine" Then
      k = Range("A65536").End(xlUp).Row + 1
      Sheets(i).UsedRange.Offset(1, 0).Copy Sheets("Combine").Cells(k, 1)
    End If
Next

Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Complete!"

End Sub