Count unique number in a column

What if we wanted to collect the unique values ​​in the entire column

Hi,

I propose the following file
Use a matrix to test each value

Code:

---

{=(SUM(LEN(tbl))-SUM(LEN(SUBSTITUTE(tbl;$B$9;""))))/LEN($B$9)}

---

Code:

---

Sub M_unique()
    sn = Split(Join([transpose(A1:A10)], ","), ",")
    With CreateObject("scripting.dictionary")
      For j = 1 To UBound(sn)
        If sn(j) <> "" Then x0 = .Item(sn(j))
      Next
      MsgBox .Count
      MsgBox Join(.keys)
    End With
End Sub

---

Unfortunately, I do not want it like this
I want it by formulas and in one step
And thanks for all