帮忙修改代码，谢谢

sulli112

要求1.横向标题按照数据汇总表的实际情况自动更新

     2.姓名那一列按照实际要求自动更新人数，将新增姓名行

     3.将每个表中的数据汇总累计相加到对应位置

     

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

以上代码套用数据合并的壳子，但是标红色的不知道要怎么修改成在每个表对中已用行数，特定列数for j =2 to 23进行汇总

sulli112

wodewan

合并计算方法，仅供参考。。。

sulli112

wodewan 发表于 2020-8-2 20:56
合并计算方法，仅供参考。。。

Sub test()
Dim sht As Worksheet, ar(), m, erow
For Each sht In Sheets
    With sht
        If .Name <> "数据汇总" And .Visible = -1 Then想请教一下，这句代码是不是可见才进行合并，非可见不考虑？
            erow = .Range("b65536").End(3).Row
            m = m + 1: ReDim Preserve ar(1 To m)
            ar(m) = .Name & "!" & .Range("b1:x" & erow).Address(ReferenceStyle:=xlR1C1)这句我不是很懂，想请教一下什么意思呢？谢谢
        End If
    End With
Next
    With Sheets("数据汇总").Range("a1")
        .CurrentRegion.ClearContents
        .Value = "姓名"
        .Consolidate Sources:=ar, Function:=xlSum, TopRow:=True, LeftColumn:=True
    End With
End Sub

wodewan

sulli112 发表于 2020-8-2 22:56
Sub test()
Dim sht As Worksheet, ar(), m, erow
For Each sht In Sheets

1.第一句就是你说的那个意思
2.第二句相当于遍历每个表需要合并计算的区域的绝对地址，赋值给一个一维数组ar,因为合并计算的Source接受的就是这个ar，相当于你原先代码Consolidate Sources:后你标红的那一段Array(......)

sulli112

wodewan 发表于 2020-8-2 23:30
1.第一句就是你说的那个意思
2.第二句相当于遍历每个表需要合并计算的区域的绝对地址，赋值给一个一维数 ...

好的，谢谢啦

jjmysjg

wodewan 发表于 2020-8-2 20:56
合并计算方法，仅供参考。。。

收藏了，经典

jjmysjg

wodewan 发表于 2020-8-2 20:56
合并计算方法，仅供参考。。。

收藏了，经典。
数据源在文件夹内，能如此汇总吗？

jjmysjg

wodewan 发表于 2020-8-2 20:56
合并计算方法，仅供参考。。。

带合并单元格的表头，能汇总吗