一个Excel工作薄的多个Sheet表汇总到一个Sheet表内

Sub 将多个Sheet表汇总到一个Sheet表内()
   Application.ScreenUpdating = False
   For j = 1 To Sheets.Count
       If Sheets(j).Name <> ActiveSheet.Name Then
          X = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
          Sheets(j).UsedRange.Copy ActiveSheet.Cells(X, 1)
       End If
   Next
   Application.ScreenUpdating = True
   MsgBox "所有Sheet表已汇总完成!"
End Sub