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

我爱EHO · 发表于 2024-1-13 11:21

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 · 发表于 2024-1-13 22:45

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

我爱EHO · 发表于 2024-1-14 08:13

谢谢，jsa看不懂啊

3190496160 · 发表于 2024-1-14 09:14

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 · 发表于 2024-1-14 09:15

3190496160 · 发表于 2024-1-14 09:15

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

我爱EHO · 发表于 2024-1-14 10:51

谢谢大佬，这个看懂了。

QAZ1234ab · 发表于 2024-1-14 11:16

简单写了写

我爱EHO · 发表于 2024-1-14 21:29

看懂了，非常感谢大佬

LIUZHU · 发表于 2024-1-15 10:39

我也是JSA的方案

		自动登录	找回密码
密码			免费注册

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

评分