Посчитать количество уникальных символов (чисел)

Sub sortirovka()
Dim g(1 To 20) As Double
Dim i As Integer
Dim d() As Double
Dim j As Integer
Dim count As Integer
 
 
 
'Çàáèâàåì ìàññèâ
For i = 1 To 20
    g(i) = Cells(i, 1)
Next i
 
count = 1
ReDim Preserve d(1 To count)
d(1) = g(1)
 
For i = 1 To 20
    For j = 1 To UBound(d)
        If g(i) <> d(j) Then
            count = count + 1
            d(j) = g(i)
            
        End If
    Next j
Next i
MsgBox (count)
 
End Sub

Option Explicit
 
Sub sortirovka()
    Dim g(), el
 
    'Забиваем массив
    g = [a1:a20].Value
 
    With CreateObject("scripting.dictionary")
        'Забиваем словарь
        For Each el In g: .Item(el) = 0&: Next
        MsgBox (.count)
    End With
 
End Sub

Sub uniqcount()
    Dim el
 
    With CreateObject("scripting.dictionary")
        For Each el In [a1:a20].Value: .Item(el) = 0&: Next
        MsgBox (.count)
    End With
 
End Sub

Sub Counter(A() As double)
Dim uniqA() as Double
      n%=Ubound(A,1)
      cz%=n% \ 10
      cu%=cz%
      Redim uniqA(1 to cz%)
      ptr%=0
      For i%=1 to n%
           Z#=A(i%)
           q%=0
           For j%=1 to ptr%
                if Abs(uniqA(j%)-Z#) <= 1E-15 then
                   q%=-1
                   Exit for
                End if
           Next j%
           if q%=0 then
              if ptr%=cu% then
                 cu%=cu%+cz%
                 Redim Preserve uniqA(1 to cu%) As Double
              End if
              ptr%=ptr%+1
              uniqA(ptr%)=Z#
           End if 
     Next i% 
     Debug.print "Уникальных: "; ptr%; " штук"
End Sub