[已解决]多条件不重复数据统计

cennacenna

问题1：按村统计身份证号不重复的操作员为网贷的户数，公式怎么写运行更快
问题2：在VBA代码中对Sheet1的F列整列进行单元格格式转换为通用格式，在F2输入公式="S"&MID(C2,7,12)，并自动向下填充
问题3：把所有公式全部写进VBA代码，统计时自动运行

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-2-4 11:20

E3 數組公式:
=COUNT(0/(MATCH(Sheet1!C$1:C$1785&B3,Sheet1!C$1:C$1785&Sheet1!E$1:E$1785,)=ROW($1:$1785)))

H3 數組公式:
=COUNT(0/(MATCH(Sheet1!C$1:C$1785&B3,IF(Sheet1!D$1:D$1785="网贷",Sheet1!C$1:C$1785&Sheet1!E$1:E$1785),)=ROW($1:$1785)))

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

E3 數組公式:
=COUNT(0/(MATCH(Sheet1!C$1:C$1785&B3,Sheet1!C$1:C$1785&Sheet1!E$1:E$1785,)=ROW($1:$1785)))

H3 數組公式:
=COUNT(0/(MATCH(Sheet1!C$1:C$1785&B3,IF(Sheet1!D$1:D$1785="网贷",Sheet1!C$1:C$1785&Sheet1!E$1:E$1785),)=ROW($1:$1785)))

祝順心，南無阿彌陀佛！

爱疯

信息表2.rar (112.8 KB, 下载次数: 4)

2021-2-4 16:41 上传

点击文件名下载附件

cennacenna

爱疯 发表于 2021-2-4 16:41

你这个统计的是笔数，而不是户数，同 一人有的有几笔，有的只有一笔

cennacenna

cutecpu 发表于 2021-2-4 14:24
E3 數組公式:
=COUNT(0/(MATCH(Sheet1!C$1:C$1785&B3,Sheet1!C$1:C$1785&Sheet1!E$1:E$1785,)=ROW($1:$17 ...

，谢谢，数组公式运行太慢了，还有运行更快的吗？

cennacenna

cutecpu 发表于 2021-2-4 14:24
E3 數組公式:
=COUNT(0/(MATCH(Sheet1!C$1:C$1785&B3,Sheet1!C$1:C$1785&Sheet1!E$1:E$1785,)=ROW($1:$17 ...

还有就是我这数据不一定只是这1785条，我要先把公式设定按列统计，使用时只要把数据粘过来就能统计出来

cutecpu

cennacenna 发表于 2021-2-6 12:53
，谢谢，数组公式运行太慢了，还有运行更快的吗？

您好，因為速度的問題，可以不用公式，直接用 VBA 統計嗎？

cennacenna

cutecpu 发表于 2021-2-4 11:20
E3 數組公式:
=COUNT(0/(MATCH(Sheet1!C$1:C$1785&B3,Sheet1!C$1:C$1785&Sheet1!E$1:E$1785,)=ROW($1:$17 ...

能解决我的基本问题，要设置一个数据区域，换为整列就卡死心。这个数组可以写进VBA里不

cutecpu

cennacenna 发表于 2021-2-6 21:52
能解决我的基本问题，要设置一个数据区域，换为整列就卡死心。这个数组可以写进VBA里不

Sub demo()

   Set d = CreateObject("scripting.dictionary")

   arr = Sheets("Sheet1").[a1].CurrentRegion

   For i = 2 To UBound(arr)
      If Not d.exists(arr(i, 5)) Then
         Set d(arr(i, 5)) = CreateObject("scripting.dictionary")
         Set d(arr(i, 5) & "網貸") = CreateObject("scripting.dictionary")
      End If
      d(arr(i, 5))(arr(i, 3)) = ""
      If arr(i, 4) = "網貸" Then d(arr(i, 5) & "網貸")(arr(i, 3)) = ""
   Next

   With Sheets("Sheet2")

      r = .[B65536].End(xlUp).Row

      For i = 3 To r
         .Cells(i, 5).Value = d(.Cells(i, 2).Value).Count
         .Cells(i, 8).Value = d(.Cells(i, 2).Value & "網貸").Count
      Next

   End With

End Sub

祝順心，南無阿彌陀佛！