按条件统计个数并去重

ziyaxian · 发表于 2024-1-17 09:48

条件：按单位统计，笔数>=8,金额>=150，并按商品名称去重后的个数，在函数区有人用公式已解决，但我现在的数据超过10000行，运行速度特别慢，还老是提示运算资源不足，不知用VBA是否能解决。谢谢大家！！

去重计数.rar (8.57 KB, 下载次数: 11)

洋务德雷 · 发表于 2024-1-17 09:56

SQL解决问题，右键可以刷新数据。

无关岁月 · 发表于 2024-1-17 11:03

去重计数.7z (17.65 KB, 下载次数: 14)

屏幕截图 2024-01-17 110241.png

ziyaxian · 发表于 2024-1-17 15:06

谢谢，运行正常

gwjkkkkk · 发表于 2024-1-17 19:34

Option Explicit
Sub TEST5()
Dim ar, i&, dic As Object

Set dic = CreateObject("Scripting.Dictionary")

ar = [A1].CurrentRegion
For i = 2 To UBound(ar)
      If ar(i, 3) >= 8 And ar(i, 4) >= 15 Then
         dic(ar(i, 1)) = dic(ar(i, 1)) + 1
      End If
Next i
[G1].CurrentRegion.Offset(1).Clear
[G2].Resize(dic.Count, 2) = Application.Transpose(Array(dic.keys, dic.items))

Set dic = Nothing
Beep
End Sub

gwjkkkkk · 发表于 2024-1-17 19:35

参与一下。。。

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

按条件统计个数并去重

评分