横竖标题不同的不同表格数据汇总，救救孩子，12个月的数据，快吐了！！！

sulli112

要求1.横向标题按照数据汇总表的实际情况自动更新
      2.姓名那一列按照实际要求自动更新人数，将新增姓名行
      3.将每个表中的数据汇总累计相加到对应位置
      4.附件里面我将要求写的比较请求

sulli112

顶一顶

ddyt3949

感觉你的表太复杂了，还是tb找人帮你设计下表格？  标题行有合并单元格到时查找也不方便的，而且教工最好要有个工号列，不然有重名的也不好搞

ddyt3949

其实也是我技术太菜了，哈哈

zpy2

ddyt3949 发表于 2020-7-31 22:29
其实也是我技术太菜了，哈哈

我也是这么觉得的，虽然我也是菜鸟。。。

sulli112

ddyt3949 发表于 2020-7-31 22:29
其实也是我技术太菜了，哈哈

我只是改了教职工名称用来做模板，正常表格中是没有重复的，我知道OFFIC里面有个数据合并可以实现，但是如果多表就不好操作

184859629

如果只是11月多一列，就先把11月删除了再汇总，如果还有很多表，大小不一，那还是只能把所有表格式化后再一步一步慢慢来，这都是财会软件导出来的吧？没有财会软件？

sulli112

184859629 发表于 2020-8-1 09:03
如果只是11月多一列，就先把11月删除了再汇总，如果还有很多表，大小不一，那还是只能把所有表格式化后再一 ...

不是啊，这是我自己做的工资表，我是用编程进行汇总，将12个月导入同一工作簿中，再想着进行计算汇总

sulli112

标题有合并栏我也修改过来了，姓名我也做了修改，请问这个版本可以数据汇总吗

sulli112

Sub 宏2()
Dim i%, j%
Dim sht As Worksheet
For Each sht In Sheets
If sht.Name <> "数据汇总" Then
    Application.CutCopyMode = False

    Selection.Consolidate Sources:=Array( _
       "'C:\Users\MBENBEN\Desktop\[工资 - 副本.xlsx]2019年1月工资小学'!R1C2:R14C24", _
        "'C:\Users\MBENBEN\Desktop\[工资 - 副本.xlsx]2019年1月工资中学'!R1C2:R14C24", _
        "'C:\Users\MBENBEN\Desktop\[工资 - 副本.xlsx]2019年11月工资小学'!R1C2:R14C24", _
        "'C:\Users\MBENBEN\Desktop\[工资 - 副本.xlsx]2019年11月工资中学'!R1C2:R14C24", _
        "'C:\Users\MBENBEN\Desktop\[工资 - 副本.xlsx]2019年12月工资小学'!R1C2:R14C24", _
        "'C:\Users\MBENBEN\Desktop\[工资 - 副本.xlsx]2019年12月工资中学'!R1C2:R14C24"), Function _
        :=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
   End If
   
End Sub

可以套用数据合并的模板，但是标红色的不知道要怎么修改成合并每一个表中已用行数