我想用宏把多个(200个)Sheet表中的内容合并到一个Sheet表中,手动复制太麻烦,使用宏很方便。下面这段代码能直接复制粘贴使用。
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