Count unique number in a column

[mahmoud-lee]

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

[PcMax]

Hi,

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

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

[snb]

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

[mahmoud-lee]

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