求解：统计不重复数值

zhangcheng6688

学习一下字典，打扰
Sub test()
arr = Range("h4:h5")
brr = [b3].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim crr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
   d(arr(i, 1)) = 0
Next
For j = 2 To UBound(brr)
   s = brr(j, 1)
   s1 = brr(j, 2)
   If Not d.exists(s & "|" & s1) Then
      d(s1) = d(s1) + 1
      d(s & "|" & s1) = ""
   End If
Next
For Each k In d.keys
   If InStr(k, "|") = 0 Then
      m = m + 1
      crr(m, 1) = d(k)
   End If
Next
[i4].Resize(m, 1) = crr
End Sub

无关岁月

zhangcheng6688 发表于 2024-4-10 12:43
学习一下字典，打扰
Sub test()
arr = Range("h4:h5")

查询的话，可以这样