Excel多表格汇总怎么做
发布网友
发布时间：2022-04-22 08:18
共4个回答
热心网友
时间：2023-01-21 19:09
前段时间帮客户做的一个汇总程序，供你参考。
Sub main()
Dim zz As Integer
Dim bj As Boolean
Dim wjmArr(1 To 100) As String
Dim ksHh As Integer
Dim 检测列 As Integer
Dim hzBook As Workbook, zhBook As Workbook
Dim jsHH As Integer
Dim 子表名称 As String
Dim WIND1 As String, WIND2 As String
Dim hhZD
Application.DisplayAlerts = False
ksHh = Cells(3, 2).Value: maxHH = Cells(3, 4).Value
检测列 = Cells(3, 3).Value
Set hhZD = CreateObject("SCRIPTING.DICTIONARY")
Call 读取文件名(wjmArr, bj, zz)
Set hzBook = Workbooks.Open(ThisWorkbook.Path & "\" & wjmArr(1))
WIND1 = hzBook.Name
'清空汇总表
For Each mys In hzBook.Sheets
Range(mys.Cells(ksHh, 1), mys.Cells(maxHH, 100)).Clear
hhZD.Add mys.Name, ksHh
Next mys
'复制支行子表到总表
For i = 2 To zz
Set zhBook = Workbooks.Open(ThisWorkbook.Path & "\" & wjmArr(i))
WIND2 = zhBook.Name
For Each mys In zhBook.Sheets
jsHH = ksHh
Do While mys.Cells(jsHH, 检测列) <> ""
jsHH = jsHH + 1
Loop
If jsHH > ksHh Then
子表名称 = mys.Name
Range(mys.Cells(ksHh, 1), mys.Cells(jsHH - 1, 100)).Copy
Windows(WIND1).Activate
Sheets(子表名称).Activate
ActiveSheet.Cells(hhZD(子表名称), 1).Select
ActiveSheet.Paste
hhZD(子表名称) = hhZD(子表名称) + jsHH - ksHh
End If
Next mys
zhBook.Close
Next i
Application.DisplayAlerts = True
End Sub
热心网友
时间：2023-01-21 20:43
付费内容限时免费查看回答您好，我是百度咨询的合作律师，已经收到您的问题了，目前咨询的人比较多哈~请稍等2分钟的哦，亲亲，正在帮您解决问题。
首先打开需要编辑的excel，鼠标左键选中要进行分类汇总的单元格。
然后在“数据”菜单中点击“排序和筛选”选项进行排序数据。之后在该页面中点击“分类汇总”选项。然后在该页面中在分类字段下方方框中点击选择“性别”，在汇总方式下方方框中点击选择“平均分”，在选定汇总项下方方框中点击勾选“总分”，然后点击“确定”选项即可完成汇总了。
总公司报表的表格结构要统一，统一的表格结构（行列标题名称及位置），有助于我们快速地使用函数提取出我们想要的数据。函数公式计算区域与数据源区域要明确区分，由于数据可能是需要长期更新的，因此，设计表格格式时，函数计算公司的区域最好不要与添加数据的区域重叠，以免造成计算出错。
总公司报表的名称要与汇总表一致。我们经常会使用INDIRECT函数进行跨工作表Sheet的查询，如果工作表Sheet名称与汇总表格中的名称不一致，是无法查询出正确的结果的。可以借助定义名称+数据有效性来进行动态查询。先定义一个名称"分公司名称"，引用区域为各分公司的名称所在区域。
亲亲，按照这个去做就可以啦~
弘扬社会正义，彰显法律价值，维护个人尊严，很高兴能为您服务，有问题再来平台咨询哦~祝您一切顺利！生活愉快！
热心网友
时间：2023-01-21 22:35
vba 来做。。。。。。。。。
热心网友
时间：2023-01-22 00:43
多文件？多工作表？
