Macro To Look At Column C, Count Matching Cells and Put In Column D

[Dazzawm]

I have workbooks of 100 of thousands of rows and I need a code please that will count the number of matching cells in column D and put a running count in column D please.

Please note it has to be a code rather than a formula. Thanks

Before

Excel 2010

	C	D
978	AUA520D 1030
979	AUA520D 1030
980	AUA520D 1030
981	AUA520D 1035
982	AUA520D 1035
983	AUA520D 1035
984	AUA520D 1035
985	AUA520D 1035
986	AUA520D 1035

<tbody>
</tbody>

Sheet1​

After

Excel 2010

	C	D
978	AUA520D 1030	1
979	AUA520D 1030	2
980	AUA520D 1030	3
981	AUA520D 1035	1
982	AUA520D 1035	2
983	AUA520D 1035	3
984	AUA520D 1035	4
985	AUA520D 1035	5
986	AUA520D 1035	6

<tbody>
</tbody>

Sheet1​

 

[Akuini]

Try this:

[FONT=lucida console][COLOR=Royalblue]Sub[/COLOR] a1092265a()
[I][COLOR=seagreen]'https://www.mrexcel.com/forum/excel-questions/1092265-macro-look-column-c-count-matching-cells-put-column-d.html[/COLOR][/I]
[I][COLOR=seagreen]'' section group looping[/COLOR][/I]
[COLOR=Royalblue]Dim[/COLOR] i [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR], j [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR], k [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR], n [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR]
[COLOR=Royalblue]Dim[/COLOR] va
va = Range([COLOR=brown]"C1"[/COLOR], Cells(Rows.count, [COLOR=brown]"C"[/COLOR]).[COLOR=Royalblue]End[/COLOR](xlUp))
[COLOR=Royalblue]For[/COLOR] i = [COLOR=crimson]1[/COLOR] [COLOR=Royalblue]To[/COLOR] UBound(va, [COLOR=crimson]1[/COLOR])
    j = i
    [COLOR=Royalblue]Do[/COLOR]
        i = i + [COLOR=crimson]1[/COLOR]
        [COLOR=Royalblue]If[/COLOR] i > UBound(va, [COLOR=crimson]1[/COLOR]) [COLOR=Royalblue]Then[/COLOR] [COLOR=Royalblue]Exit[/COLOR] [COLOR=Royalblue]Do[/COLOR]
    [COLOR=Royalblue]Loop[/COLOR] [COLOR=Royalblue]While[/COLOR] va(i, [COLOR=crimson]1[/COLOR]) = va(i - [COLOR=crimson]1[/COLOR], [COLOR=crimson]1[/COLOR])
    
    i = i - [COLOR=crimson]1[/COLOR]:    n = [COLOR=crimson]0[/COLOR]
        [COLOR=Royalblue]For[/COLOR] k = j [COLOR=Royalblue]To[/COLOR] i
            n = n + [COLOR=crimson]1[/COLOR]:  va(k, [COLOR=crimson]1[/COLOR]) = n
        [COLOR=Royalblue]Next[/COLOR]

[COLOR=Royalblue]Next[/COLOR]

Range([COLOR=brown]"D1"[/COLOR]).Resize(UBound(va, [COLOR=crimson]1[/COLOR]), [COLOR=crimson]1[/COLOR]) = va

[COLOR=Royalblue]End[/COLOR] [COLOR=Royalblue]Sub[/COLOR][/FONT]

 

[Dazzawm]

Thanks

 

[Akuini]

You're welcome.