怎样将多人填的excel表汇总到一个表格里

怎样将多人填的excel表汇总到一个表格里

1.启动软件，打开需要汇总的文档，我可以看到在文档的下面有几个不同的明细表。


2.在表格的下面，重命名一个表格，我们暂且命名为“汇总”，然后选择单元格中左上角的第一个单元格。

3.在菜单栏中选择，：数据——合并计算。

4.再出现的对话框中函数中选择求和。

5.选择表格一，把表格一中的数据全部选中。

6.点击右侧的添加，将选中的表格一添加到所有引用位置。

7.参照第六步，将其余的需要汇总的表格都添加进去。

8.点击确定，就得到了汇总的结果。

表格内容剪切 粘贴

N个人，我们取个代号吧，1 2 3*********
放入一个文件夹里
设置个循环
分别把每个表格里的数据放入对应编号的数据里就可以

我做的类似的VBA如下
Sub hy()
Dim a, b, i
Dim x As String
For b = 5001 To 5210

For a = 10 To 16

x = Dir("C:\Documents and Settings\Administrator\桌面\数据\" & b & ".xls")
If x = "" Then
Exit For
End If

Cells(b - 4998, a - 8) = "='C:\Documents and Settings\Administrator\桌面\数据\[" & b & ".xls]Sheet1'!$D$" & a

Cells(b - 4998, a - 1) = "='C:\Documents and Settings\Administrator\桌面\数据\[" & b & ".xls]Sheet1'!$F$" & a

Cells(b - 4998, a + 6) = "='C:\Documents and Settings\Administrator\桌面\数据\[" & b & ".xls]Sheet1'!$G$" & a

Cells(b - 4998, a + 13) = "='C:\Documents and Settings\Administrator\桌面\数据\[" & b & ".xls]Sheet1'!$I$" & a
Next
' Sheets(1).Cells.SpecialCells(xlCellTypeFormulas) = Sheets(1).Cells.SpecialCells(xlCellTypeFormulas).Value
Next

Sheets(1).Cells.SpecialCells(xlCellTypeFormulas) = Sheets(1).Cells.SpecialCells(xlCellTypeFormulas).Value
End Sub
我的是吧N个测试报告放入一个数据报告里。和你的比较类似追问忒复杂了,看不懂啊追答我那个去，我的数据是从编号5001开始到5210，这么多个测试数据，每个都是一个EXCEL表格，中间有缺的，然后就是判断中间那个数据缺了，缺了的跳过。然后就是分别把一个表格的数据放入自己想要的表格里，循环N个这么多数据次数

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息