vba求指定条件不重复值次数

zwf211314

各位大神：
如图，根据D列指定的条件，查找A列符合条件的数据在B列出现不重复值的次数，由于数据量比较大，需要VBA执行，请高手指点！感谢！

zjzyj

供参考

Sub ttt()

Set ds = CreateObject("Scripting.Dictionary")
arr = Sheet1.Range("D1").CurrentRegion
For i = 2 To UBound(arr)
    If arr(i, 1) <> "" Then Set ds(arr(i, 1)) = CreateObject("Scripting.Dictionary")
Next

brr = Sheet1.Range("A1").CurrentRegion
For i = 1 To UBound(brr)
    If brr(i, 1) <> "" Then
        If ds.exists(brr(i, 1)) Then ds(brr(i, 1))(brr(i, 2)) = ""
    End If
Next

For i = 2 To UBound(arr)
    If arr(i, 1) <> "" Then arr(i, 2) = ds(arr(i, 1)).Count
Next

Sheet1.Range("D1").Resize(UBound(arr), 2) = arr

End Sub

zwf211314

zjzyj 发表于 2021-2-28 23:03
供参考

Sub ttt()

高手！拜谢！
再麻烦一下老师，帮我实际应用一下，我参照着改动了2个小时都没改好。

zwf211314

麻烦老师！

lmgz007

没看懂需求。
何为“查找A列符合条件的数据在B列出现不重复值的次数”

zwf211314

lmgz007 发表于 2021-3-1 21:29
没看懂需求。
何为“查找A列符合条件的数据在B列出现不重复值的次数”

老师，可以看一下我发的图片，例：以指定1为条件，去查找A列，求A列中值1相对应的B列出现了几次不重复值

消灭零公里

考虑PQ解法吗？

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     重排序的列 = Table.ReorderColumns(源,{"机号", "批号", "落号"}),
   
4.     合并的列 = Table.CombineColumns(重排序的列,{"机号", "批号"},Combiner.CombineTextByDelimiter("", QuoteStyle.None),"机号+批号"),
   
5.     分组的行 = Table.Group(合并的列, {"机号+批号"}, {{"计数", each Table.RowCount(Table.Distinct(_)), type number}})
   
6. in
   
7.     分组的行

复制代码

lmgz007

zwf211314 发表于 2021-3-1 21:34
老师，可以看一下我发的图片，例：以指定1为条件，去查找A列，求A列中值1相对应的B列出现了几次不重复值

就是没看懂呀，为什么1的不重复次数为2，而2的确是1？

消灭零公里

单纯看图片的话，数据透视表最省事(加载到数据模型，汇总选“不重复计数”）。
论坛的审核机制是什么？这几天好几次都需要审核。其实用PQ解决也不错，鼠标点击几下就行

zwf211314

lmgz007 发表于 2021-3-1 21:37
就是没看懂呀，为什么1的不重复次数为2，而2的确是1？

那个图片黄底色的值不对，1和2都应该是1次，误导了，嘿嘿