0
Good morning, can use the next function that counts the single values:
Public Function CountUnique(rng As Range) As Integer
Dim dict As Dictionary
Dim cell As Range
Set dict = New Dictionary
For Each cell In rng.Cells
If Not dict.Exists(cell.Value) Then
dict.Add cell.Value, 0
End If
Next
CountUnique = dict.Count
End Function
Ever tried using formula? Putting the mark on C15 and the formula
=CONT.SE(B2:B14;C15)
in D15. Where B2:B14 is the range with the marks.– danieltakeshi