如果表格格式一模一样(只是具体数字不一样),想汇总所有数据,方法如下:
右键点第一张表,移动或复制,选中下面的建立复制,确定。在新出来的表中,点数字的格子,比如B2,输入 =sum(1月:12月!B2),注意把1月改为你原来第一个工作表的名字,12月改为原来最后一个的名字。
然后将B2复制到其他数字的地方就可以了。
如果原来的12张表示流水账,只是想把12张表简单地放到一起,方法如下:
同时按Alt和F11,进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub tt()
Application.ScreenUpdating = False
Dim i As Byte
Sheets(1).Select
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).UsedRange.Offset(1, 0).Copy
Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select
ActiveSheet.Paste
Next i
Application.ScreenUpdating = True
End Sub
按F5执行此宏,其他表格的数据都合并到了第一张。
温馨提示:答案为网友推荐,仅供参考