汇总个人全年某项工资总额

dede的饭碗

想把每个月的个人某项工资项目下的数据汇总求和，请大神帮解决一下。图例只做了三个月的，每个月的人会有差别，但工资项目不变。详见下图：

dede的饭碗

补充说明：图四的B、C栏为需要公式的地方。

3190496160

Sub 汇总()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Dim ar As Variant, br As Variant
Dim sh As Worksheet
ReDim br(1 To 10000, 1 To 3)
For Each sh In Sheets
    If sh.Name <> "全年汇总" Then
        ar = sh.[a1].CurrentRegion
        For i = 2 To UBound(ar)
            If Trim(ar(i, 1)) <> "" Then
                t = d(Trim(ar(i, 1)))
                If t = "" Then
                    k = k + 1
                    d(Trim(ar(i, 1))) = k
                    t = k
                    br(k, 1) = ar(i, 1)
                End If
                br(t, 2) = br(t, 2) + ar(i, 2)
                br(t, 3) = br(t, 3) + ar(i, 3)
            End If
        Next i
    End If
Next sh
With Sheets("全年汇总")
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(k, 3) = br
End With
MsgBox "ok!"
End Sub

3190496160

人员有多少无所谓，而且，人员每个月如何变化也无所谓，你也不必事先在汇总中列出姓名，代码自动获取

dede的饭碗

3190496160 发表于 2020-10-16 09:58
人员有多少无所谓，而且，人员每个月如何变化也无所谓，你也不必事先在汇总中列出姓名，代码自动获取

能用函数公式解决吗？

3190496160

dede的饭碗 发表于 2020-10-19 11:31
能用函数公式解决吗？

呵呵呵呵，你得跨多个工作表汇总，vba是最佳选择，
用公式来做的话，可能公式写的好了，每次打开文件会让你崩溃，

dede的饭碗

3190496160 发表于 2020-10-19 11:35
呵呵呵呵，你得跨多个工作表汇总，vba是最佳选择，
用公式来做的话，可能公式写的好了，每次打开文件会 ...

主要是我对VBA不熟悉。

3190496160

dede的饭碗 发表于 2020-10-19 14:15
主要是我对VBA不熟悉。

vba已经帮你写好了呀，你只要会用就行了吧，点击一下按钮，瞬间完成

123-456789

PQ做的汇总表，一键刷新。

dede的饭碗

3190496160 发表于 2020-10-19 15:44
vba已经帮你写好了呀，你只要会用就行了吧，点击一下按钮，瞬间完成

非常感谢。