I have a row of numbers that can be repeated multiple times.

I would like to be able to count how many times the first number is listed
and continue all the way through until no more numbers a left to check.

eg
6
32
32
7
45
23
23
7
54

how do I write a program to go through each number and check how many times
that number is listed in the row.
The numbers always very so I cannot use a set value.

Thanks
Noemi

this is a rudimentary solution, i'm sure someone can streamline it, but it
will put how many times a number is listed in the range, next to it in
column b

Option Explicit
Dim mg As Range
Dim LastRow As Long
Dim TestFor As Long
Dim cell As Range
Dim CurRow As Long
Sub test()
LastRow = Range("a1").End(xlDown).End(xlDown).Row
CurRow = LastRow
Set mg = Range("a1:a" & LastRow)

For Each cell In mg
TestFor = Range("a" & CurRow).Value
Range("b" & CurRow).Formula = "=CountIf(a1:a" & LastRow & "," & "" & TestFor
& "" & ")"
CurRow = CurRow - 1
Next cell

End Sub



--


Gary


"Noemi" wrote in message
...
I have a row of numbers that can be repeated multiple times.

I would like to be able to count how many times the first number is listed
and continue all the way through until no more numbers a left to check.

eg
6
32
32
7
45
23
23
7
54

how do I write a program to go through each number and check how many
times
that number is listed in the row.
The numbers always very so I cannot use a set value.

Thanks
Noemi

Why not just use a formula

=COUNTIF(A:A,A1)

and copy down

--
HTH

Bob Phillips

"Noemi" wrote in message
...
I have a row of numbers that can be repeated multiple times.

I would like to be able to count how many times the first number is listed
and continue all the way through until no more numbers a left to check.

eg
6
32
32
7
45
23
23
7
54

how do I write a program to go through each number and check how many
times
that number is listed in the row.
The numbers always very so I cannot use a set value.

Thanks
Noemi