恳请大神们帮忙看下这个统计的能否用vba算出来

yynrzwh

Sub test()

Set d = New Dictionary
arr = Sheets("工资汇总").UsedRange
    For i = 3 To UBound(arr)
        s = arr(i, 2) & arr(i, 3) & arr(i, 14)
        d(s) = d(s) + 1
    Next i

With Sheets("报表")
    .Range("ax1").CurrentRegion.Offset(2, 1) = ""
    brr = .Range("ax1").CurrentRegion
    For i = 3 To UBound(brr)
        For j = 2 To UBound(brr, 2)
            s = brr(i, 1) & brr(1, 2) & brr(2, j)
            brr(i, j) = d(s)
        Next
    Next
    .Range("ax1").CurrentRegion = brr
End With
Set d = Nothing
End Sub
汇总.rar (28 KB, 下载次数: 3)

2024-2-2 15:50 上传

点击文件名下载附件