Count unique number in a cell

I want to collect the number of unique numbers in cell
I use Office 2003

Hi

Define ;

Select A2 and hit CTRL + F3

Name: StrNum
Refers to: =EVALUATE("{"&SUBSTITUTE(Sheet1!$A2,",",";")&"}")


Click OK

and use the formula

=SUM(IF(FREQUENCY(StrNum,StrNum)>0,1))

Wonderful
Thank you very much

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