如何用vba数组和字典模拟E列和F列公式

我爱EHO

E2=COUNTIFS($A$2:A2,A2,$B$2:B2,B2,$C$2:C2,C2)
F2=SUMIFS($D$2:D2,$A$2:A2,A2,$B$2:B2,B2,$C$2:C2,C2)
如何用vba数组和字典模拟E列和F列公式。

xd3210

不知理解是否正确，供参考

我爱EHO

谢谢，jsa看不懂啊

3190496160

Sub 计算()
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
With Sheets("sheet1")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "数据源为空！": End
    .Range("e2:f" & r) = Empty
    ar = .Range("a1:f" & r)
    For i = 2 To UBound(ar)
        If ar(i, 1) <> Empty And ar(i, 2) <> Empty And ar(i, 3) <> Empty Then
            zd = ar(i, 1) & "|" & ar(i, 2) & "|" & ar(i, 3)
            d(zd) = d(zd) + 1
            dc(zd) = dc(zd) + ar(i, 4)
            ar(i, 5) = d(zd)
            ar(i, 6) = dc(zd)
        End If
    Next i
    .Range("a1:f" & r) = ar
End With
MsgBox "ok!"
End Sub

3190496160

3190496160

用vba数组和字典模拟E和F列公式.rar (19.29 KB, 下载次数: 11)

2024-1-14 09:15 上传

点击文件名下载附件

我爱EHO

谢谢大佬，这个看懂了。

QAZ1234ab

简单写了写

我爱EHO

看懂了，非常感谢大佬

LIUZHU

我也是JSA的方案