双条件求和

LIUZHU

A列和第一行的表头自动生成

LIUZHU

WPS测试，谢谢！

dambcer

参与一下                                                                     

sxbjzjf110

参与一下

supermouse24

逻辑是：
1.把所有类别变为字典，并初始化值都为0；
2.所有类别相同的词条累加；
3.打印

Sub dic_method()
    Set dic = CreateObject("scripting.dictionary")
    With Worksheets("汇总")
    arr = .[a1].CurrentRegion.Value
        For irow = 2 To UBound(arr, 1)
            For icol = 2 To UBound(arr, 2)
                name_ = .Cells(irow, 1) & ":" & .Cells(1, icol)
                dic(name_) = 0
            Next
        Next
    End With
    With Worksheets("表一")
        brr = .[a1].CurrentRegion.Value
        For irow = 2 To UBound(brr, 1)
            name2 = brr(irow, 1) & ":" & brr(irow, 2)
            If dic.exists(name2) Then
                dic(name2) = dic(name2) + brr(irow, 3)
            End If
        Next
    End With
    With Worksheets("汇总")
        For irow = 2 To UBound(arr, 1)
            For icol = 2 To UBound(arr, 2)
                name_ = Worksheets("汇总").Cells(irow, 1) & ":" & .Cells(1, icol)
                .Cells(irow, icol) = dic(name_)
            Next
        Next
    End With
End Sub