Function UniqueCount(Rng As Range) As Long
Dim Cell As Range
With CreateObject("Scripting.Dictionary")
For Each Cell In Rng
If Len(Cell.Value) Then .Item(Cell.Value) = 1
Next
UniqueCount = .Count
End With
End Function
Is there a way to add criteria to the formula?
Example:
Column A has the first five rows that show 86, the sixth row shows 88.
Criteria:
= 86
Expectation:
Count of 1