可以插入控件中命令按钮,再复制如下代码即可把所有工作表汇总到一张总表里
Private Sub CommandButton1_Click()
With ActiveSheet
.Name = "汇总表" & Format(Now, "hhmmss")
For Each s In ThisWorkbook.Sheets
s.UsedRange.Copy .Cells(.UsedRange.Rows.Count , 1)
Next
End With
End Sub
给一个简单明了的答案给你。希望是正解,能帮到你
具体要求是什么,是将相同的数据加到一起,还是将所有的内容放在一个表中?