如何把EXCEL多个工作表的内容合并在一个工作表上

来源：百度知道 编辑：UC知道 时间：2024/06/19 23:06:02
给我一段能直接贴的代码，谢谢！
我想用宏 ，多个，，，200个，怎么复制？？

Sub 汇总数据()
Sheets.Add
With ActiveSheet
.Name = "汇总表" & Format(Now, "hhmmss")
For Each s In ThisWorkbook.Sheets
s.UsedRange.Copy .Cells(.UsedRange.Rows.Count + 1, 1)
Next
End With
End Sub

提问提得简洁，上面的回答更简洁

复制呗