我有20个单位报过来的表格，内容庞杂，但格式完全一样，现在需要将这20张表的每一单元格的数字加总起来造一张汇总表（汇总表的格式和各单位的表一样），有什么函数可以解决，怎样用？？
（每张表里都有8个sheet）
有没有跨文件引用数据的函数？
excel表格数据汇总问题－急！
答案:4 mip版
解决时间 2021-03-03 23:52
- 提问者网友：安分守己的小青春
- 2021-03-03 13:40
最佳答案
- 二级知识专家网友：云朵有点甜
- 2021-03-03 13:58
先把所有的表合并在一起，然后做分类汇总不是方便点。
由于表格较多可以用宏来解决
宏命令如下：
Application.ScreenUpdating = False
Dim MyPath
Dim MyName
Dim AWbName
Dim Wb
Dim WbN
Dim NUM As Long
Dim G As Long
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
NUM = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
NUM = NUM + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Unload frm按键集
Application.ScreenUpdating = True
MsgBox "共合并了" & NUM & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
所有文件都必须放在一个文件夹下。
由于表格较多可以用宏来解决
宏命令如下：
Application.ScreenUpdating = False
Dim MyPath
Dim MyName
Dim AWbName
Dim Wb
Dim WbN
Dim NUM As Long
Dim G As Long
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
NUM = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
NUM = NUM + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Unload frm按键集
Application.ScreenUpdating = True
MsgBox "共合并了" & NUM & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
所有文件都必须放在一个文件夹下。
全部回答
- 1楼网友：妳旳笑魅惑了涐旳瞳
- 2021-03-03 16:31
应该有个调用工作表的功能；财务人员一般常用的分类汇总，也许可以借鉴一下
- 2楼网友：过不去的回忆
- 2021-03-03 15:44
可以用vba遍历文件汇总。
也可以用vba将所有文件中的工作表移动到同一文件中。
然后用
=sum(sheet1:sheet100!a1)
这样的公式累计100个工作表A1单元格中的数据。
- 3楼网友：你可以浪但我不會等
- 2021-03-03 15:14
、如果当前单元格不在数据清单中，选定数据清单中的任一单元格。 2、单击数据菜单中的分类汇总命令。 这时将弹出分类汇总对话框。 分类字段：下拉框中选定； 汇总方式：下拉框中选定； 选定汇总项：下拉框中中选定，可复选； 分类汇总：顾名思义按照类别分别汇总数量 分类汇总 把所有记录根据要求条件进行汇总 汇总条件有计数,求和,最大最小或方差等 比如选择的条件是计数,目标关键字是日期 那么汇总结果就是把所有记录按日期进行排列,然后每个日期里统计有多少个记录 http://tech.sina.com.cn/s/2004-10-22/0907444841.shtml 这个地址应该能给你解释怎么操作
我要举报
如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！
点此我要举报以上问答信息
推荐资讯