如何计算指定年份月份的客户新增数？

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   s = arr(i, 1) & arr(i, 2)
   If Not d.exists(s) Then
      Set d(s) = CreateObject("scripting.dictionary")
   End If
   d(s)(arr(i, 3)) = ""
Next
brr = [e1].CurrentRegion
For i = 2 To UBound(brr)
   s = brr(i, 1) & brr(i, 2)
   If d.exists(s) Then
      brr(i, 3) = d(s).Count
   Else
      brr(i, 3) = 0
   End If
Next
[e1].CurrentRegion = brr
End Sub
正确结果是6对吧？

sturay11

zhangcheng6688 发表于 2024-7-19 13:13
学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion

计算结果是4            

我的城市你来过

=COUNTA(UNIQUE(FILTER($C$2:$C$28,$A$2:$A$28&$B$2:$B$28=$E$2&$F$2)))

zhangcheng6688

学习一下字典，打扰了，刚才会错题了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   s = arr(i, 1) & arr(i, 2)
   If Not d1.exists(arr(i, 3)) Then
      d(s) = d(s) + 1
      d1(arr(i, 3)) = ""
   End If
Next
brr = [e1].CurrentRegion
For i = 2 To UBound(brr)
   s = brr(i, 1) & brr(i, 2)
   If d.exists(s) Then
      brr(i, 3) = d(s)
   Else
      brr(i, 3) = 0
   End If
Next
[e1].CurrentRegion = brr
End Sub

jivy1212

1. =COUNT(FREQUENCY(ROW(A:A),(A2:A666&B2:B666=E2&F2)*MATCH(C2:C666,C2:C666,))^0)-1

复制代码

飞天篮球猪

shaowu459

飞天篮球猪 发表于 2024-7-20 07:18

炉火纯青啊

飞天篮球猪

shaowu459 发表于 2024-7-20 07:47
炉火纯青啊

借宝地练习一下