第1个回答 2018-07-05
Sub 合并工作表()
For i = 2 To Sheets.Count
Sheets(i).UsedRange.Copy Destination:=Sheets("汇总").Range("A" & Sheets("汇总").UsedRange.Rows.Count + 1)
Next
End Sub
ALT+F11,打开代码窗口.粘贴代码
回到工作表中.按ALT+F8,运行这段代码就可以了
保证第一个工作表名称为 汇总
合并后如果有多余的标题行,自己筛选来删除就OK了本回答被网友采纳