关于同一工作表上按月汇总实现的问题

zymwhy

各位老师，遇到如附件附图所示问题，第一次遇到这种实际情况，请老师给帮助，谢谢。

半百

Sub TEST()
Dim B(1 To 1, 1 To 13)
Set D = CreateObject("Scripting.Dictionary")
For I = 2 To Sheets.Count
    ARR = Sheets(I).UsedRange
    For J = 2 To UBound(ARR)
        S = ARR(J, 1) & "+" & ARR(J, 2) & "+" & ARR(J, 3) & "+" & ARR(J, 4)
        If Not D.EXISTS(S) And ARR(J, 1) <> "" Then
            SS = 0
            For K = 1 To 12
                B(1, K + 1) = ARR(J, K + 4)
                SS = SS + ARR(J, K + 4)
            Next
            B(1, 1) = SS
            D(S) = B
        End If
    Next
Next
With Sheets("汇总")
    For Each D1 In D.KEYS
    N = N + 1
    .Cells(N + 1, 1).Resize(1, 4) = Split(D1, "+")
    .Cells(N + 1, 5).Resize(1, 13) = D(D1)
    Next
End With
End Sub

mxwei

1~12月的表怎么也都有每个月的汇总？

zymwhy

半百 发表于 2019-8-5 17:48
Sub TEST()
Dim B(1 To 1, 1 To 13)
Set D = CreateObject("Scripting.Dictionary")

谢谢老师，但是，7月和9月没有数据，为什么运行后有数据了呢？

半百

zymwhy 发表于 2019-8-5 18:04
谢谢老师，但是，7月和9月没有数据，为什么运行后有数据了呢？

你这么一问，我就弄不懂了，你每张月份表里不是都有1－12月的数字吗？

deadzlq

PQ参考解法

zymwhy

deadzlq 发表于 2019-8-5 18:42
PQ参考解法

明明7、9月没有数据，为何汇总数会有数据呢？

zymwhy

半百 发表于 2019-8-5 18:16
你这么一问，我就弄不懂了，你每张月份表里不是都有1－12月的数字吗？

老师，7、9月是没有数据的，可以看一下原表数据

deadzlq

zymwhy 发表于 2019-8-5 22:28
明明7、9月没有数据，为何汇总数会有数据呢？

你上传的附件中其他月份表有7、9月的数据

zymwhy

首选，感谢上面老师的解答。由于着急上传求助，将月份的格式弄错了。实际为以下格式。百度+学习用了，用了下棋法+instr+left 函数，自己弄了出来。详见附件。发出来的目的就是让有类似需求的人看一下，找找思路，另外，如果有更简单的办法的，老师们可以再交流一下，谢谢大家。