如何只对可见单元格进行符合条件的不重复项计数

梦远方

请帮忙看下，应该如何实现表中的效果，想了很久，不知道该用什么函数解决，因为后期需要自动生成报表，希望用VBA或者函数解决，先谢谢各位了~！

梦远方

重新上传了文件，谁能帮忙回复下  怎么用VBA实现呢？~自己想了很久也没能解决。请路过的大神留下宝贵的脚印~

astupig

使用字典，自定义函数。 CountU
新建一个模块，然后把以下代码粘贴在模块里面，在系列结构表 C3 输入： =CountU(B3) 下拉公式。


Function CountU(cs As String)

Dim i, j, m, n, k, h1, h2 As Long
Dim arr(), brr(), s$
Dim d As Object

k = 0


h2 = Sheet2.Range("A65536").End(xlUp).Row

h3 = Application.WorksheetFunction.CountIf(Sheet2.Range("C3:C" & h2), cs)
If h3 = 0 Then
    CountU = 0
    Exit Function
End If


ReDim arr(1 To h3)

Set d = CreateObject("scripting.dictionary")

For i = 3 To h2 ''arr数组存放找到的数据
   
    If Sheet2.Cells(i, "C") = cs Then
        j = j + 1
        arr(j) = Sheet2.Cells(i, "H").Value
        
    End If
Next

For i = 1 To UBound(arr)
    s = arr(i)
    If Not d.exists(s) Then
        d(s) = ""
        k = k + 1
        'brr(k, 1) = arr(i, 1) '装入结果数组
    End If
Next

CountU = k



End Function

梦远方

astupig 发表于 2018-8-30 15:03
使用字典，自定义函数。 CountU
新建一个模块，然后把以下代码粘贴在模块里面，在系列结构表 C3 输入： =C ...

非常感谢回答 ，可是 ，我试了输入自定义函数后数据都为零，不知道是不是我哪里操作不当

astupig

梦远方 发表于 2018-8-30 17:00
非常感谢回答 ，可是 ，我试了输入自定义函数后数据都为零，不知道是不是我哪里操作不当

你是把代码放在模块下面？

xiangbaoan

……2楼附件，仅供参考……

梦远方

xiangbaoan 发表于 2018-8-31 08:30
……2楼附件，仅供参考……

赞！！运行成功！！

梦远方

astupig 发表于 2018-8-31 08:21
你是把代码放在模块下面？

嗯  是的 新建了一个模块 粘贴进去了