Đếm giá trị duy nhất trong vùng filter

[jusend]

Tôi sưu tầm được công thức UDF đếm giá trị duy nhất trong vùng filter, nhưng gặp vấn đề là nếu vùng chọn lớn thì lại đếm luôn cả khoảng trắng. Nhờ các anh chị chỉnh sửa lại giúp. Ví dụ trong file đính kèm, kết quả phải trả về là 4 mới đúng. Tks các ACE.

 

[johnnylinhanh]

Bạn thêm đoạn màu vàng là được nhé

 

[Phuocam]

Tôi sưu tầm được công thức UDF đếm giá trị duy nhất trong vùng filter, nhưng gặp vấn đề là nếu vùng chọn lớn thì lại đếm luôn cả khoảng trắng. Nhờ các anh chị chỉnh sửa lại giúp. Ví dụ trong file đính kèm, kết quả phải trả về là 4 mới đúng. Tks các ACE.

Xài thử UDF này:

Function CountUniqueVisible_V2(Rng As Range)
'2022/3/11
    Dim c As Range, dic As Object, j As Long
 
    Set dic = CreateObject("Scripting.Dictionary")
        For Each c In Rng
            If Not (dic.Exists(c.Value) Or c.EntireRow.Hidden) And c.Value <> "" Then
                j = j + 1
                dic.Add c.Value, j
            End If
        Next c
        CountUniqueVisible_V2 = j
End Function