如何在VBA中批量处理sumif公式

Sherlmi

如何使用sumif求出A1:A10的各个尺码的和，运行完代码后只显示数值
实际工作中，A1:A100000，计算量很大

hasyh2008

不是太理解你的意思，试试看行不行吧！

hasyh2008

Sub tt()
    Dim d, ar, r, c
    Set d = CreateObject("scripting.dictionary")
    ar = [n1].CurrentRegion
    For r = 2 To UBound(ar)
        For c = 2 To UBound(ar, 2)
            d(ar(r, 1) & "-" & ar(1, c)) = d(ar(r, 1) & "-" & ar(1, c)) + ar(r, c)
        Next c
    Next r
    ar = [a1].CurrentRegion
    For r = 2 To UBound(ar)
        For c = 2 To UBound(ar, 2)
            ar(r, c) = d(ar(r, 1) & "-" & ar(1, c))
        Next c
    Next r
    [a1].CurrentRegion = ar
End Sub


Sub clear()
    [b2:k10000] = ""
End Sub

哥儿-

Sub 分类汇总()
    Dim arr, brr, i&, j&, k&
    [b2:k10000].ClearContents
    arr = Range("a1").CurrentRegion
    brr = Range("n1").CurrentRegion
    For i = 2 To UBound(arr)
        For j = 2 To UBound(brr)
            If arr(i, 1) = brr(j, 1) Then
                For k = 2 To UBound(arr, 2)
                    arr(i, k) = arr(i, k) + brr(j, k)
                Next k
            End If
        Next j
    Next
    Range("A1").CurrentRegion = arr
End Sub

哥儿-

hasyh2008 发表于 2022-8-14 18:59
不是太理解你的意思，试试看行不行吧！

他可能是想在vba中调用工作表求和，然后选择性粘贴为值。我猜的

hasyh2008

哥儿- 发表于 2022-8-14 22:22
他可能是想在vba中调用工作表求和，然后选择性粘贴为值。我猜的

不知道他的求和区域， n：p列不像啦。

林木水

1. Sub DOME()
   
2. With Sheet1
   
3.     .Range("B2") = "=SUMIFS(O:O,$N:$N,$A2)"
   
4.     .Range("B2").Copy
   
5.     .Range("B2").Resize(.Range("A2").End(xlDown).Row - 1, 10).PasteSpecial (xlPasteFormulas)
   
6.     .Range("B2").Resize(.Range("A2").End(xlDown).Row - 1, 10) = .Range("B2").Resize(.Range("A2").End(xlDown).Row - 1, 10).Value
   
7. End With
   
8. End Sub

复制代码