Countifs和Sumifs 用代码如何提高效率

tspliu

'只有地理表统计区的数据，没有汇总，懒得写了。
Sub aa()
Set d = CreateObject("Scripting.Dictionary")
arr1 = UsedRange
For i = 2 To UBound(arr1)
    d(arr1(i, 3)) = d(arr1(i, 3)) + 1
    d(arr1(i, 3) & "||" & arr1(i, 6) * Int(arr1(i, 6) / 6)) = d(arr1(i, 3) & "||" & arr1(i, 6) * Int(arr1(i, 6) / 6)) + 1
Next
For r = 1 To 10
    arr1(r + 2, 12) = d(r)
    For c = 1 To 6
        arr1(r + 2, c + 12) = d(r & "||" & (11 - c) * Int((11 - c) / 6))
    Next
Next
UsedRange = arr1
End Sub