运行下面的宏
Sub 汇总()
For i = 2 To Worksheets.Count'从第2开始到最后一个工作表
With Worksheets(i).UsedRange
.Copy Worksheets(1).Range("b65536").End(xlUp).Offset(1, -1)'将表i中的所有内容复制到第1个工作表
.ClearContents'清除表i的内容
End With
Next
End Sub
Sub 汇总()
For i = 2 To Worksheets.Count'从第2开始到最后一个工作表
With Worksheets(i).UsedRange
.Copy Worksheets(1).Range("b65536").End(xlUp).Offset(1, -1)'将表i中的所有内容复制到第1个工作表
.ClearContents'清除表i的内容
End With
Next
End Sub






