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