Count certain value

[elmnas]

Hello people,

I have got a column that contains loads different order numbers like my example below:

(COLUMN A)
ORDERNR:
123
123
123
123
124
124
124
124
125
125
125
126
126
126

I need a script that make strings and loop through all numbers how many time each number been repeated
result
123= 4

next time function loops
124= 4

next time function loops
125 = 3

etc.

Could someone help me ?


Thank you in advance

 

[oldbrewer]

a pivot table would list the totals for all numbers in a neat table - any reason why you are not using one ?

 

[Special-K99]

Use Pivot Table

 

[elmnas]

Use Pivot Table

that is not really what I am looking for I guess,

I posted this thread to make step by step and can get help from you

the original thread is:

http://www.mrexcel.com/forum/excel-questions/855702-loop-throughs-rows-make-value-sum.html

 

[oldbrewer]

I looked at original thread and do not understand. Easy to count repetitions in a column - but what do you want to do then ?
a......67
b......54
c......101
a......99

a repeats twice - then what?

 

[dilipgr]

use the below code

Dim Unique As New Collection
Dim LastRow As Long
Dim A As Long
Dim Cnt As Long
Dim FirstAddress As String
Dim Msg As String
Dim c As Range
Sheets("sheet1").Select
With Worksheets(1)
LastRow = .Cells(Rows.Count, "B").End(xlUp).Row

For A = 2 To LastRow
On Error Resume Next
Unique.add CStr(.Range("B" & A)), CStr(.Range("B" & A))
On Error GoTo 0
Next

For A = 1 To Unique.Count
With .Range("B1:B" & LastRow)
Set c = .Find(Unique(A), LookIn:=xlValues)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
Cnt = Cnt + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
Msg = Msg & Unique(A) & "-" & Cnt & vbCr
Cnt = 0
End If
End With
Next
End With
MsgBox Msg, vbOKOnly, "Report"

 

[elmnas]

When I run this function I dont see anything in the report. msg why?
I also replaced Sheet1 to the one we use.

 

[elmnas]

I want for each repetition make a condition.

Thank you in advance