need help with stock control

[123456890]

hi
can any one help me i need a way of taking a col of bar codes deleting duplicates and all so adding them up like this

<table border="1" cellpadding="0" cellspacing="0" width="368"><colgroup><col style="mso-width-source:userset;mso-width-alt:6436;width:132pt" width="176"> <col style="width:48pt" span="3" width="64"> </colgroup><tbody><tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;width:132pt" height="20" width="176">barcode</td> <td class="xl67" style="border-left:none;width:48pt" width="64">
</td> <td class="xl67" style="border-left:none;width:48pt" width="64">
</td> <td class="xl67" style="border-left:none;width:48pt" width="64">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">6521439870123</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">5421547812451</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">5421547812451</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">4123456123453</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">5421547812451</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">4123456123453</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">5421547812451</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> </tbody></table>
into this

<table border="1" cellpadding="0" cellspacing="0" width="368"><colgroup><col style="mso-width-source:userset;mso-width-alt:6436;width:132pt" width="176"> <col style="width:48pt" width="64"> <col style="width:48pt" span="2" width="64"> </colgroup><tbody><tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;width:132pt" height="20" width="176">barcode</td> <td class="xl68" style="border-left:none;width:48pt" width="64">QT</td> <td class="xl67" style="border-left:none;width:48pt" width="64">
</td> <td class="xl67" style="border-left:none;width:48pt" width="64">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">6521439870123</td> <td class="xl68" style="border-top:none;border-left:none">1</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">5421547812451</td> <td class="xl68" style="border-top:none;border-left:none">4</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">4123456123453</td> <td class="xl68" style="border-top:none;border-left:none">2</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">
</td> <td class="xl68" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">
</td> <td class="xl68" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">
</td> <td class="xl68" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> <tr style="height:15.0pt" height="20"> <td class="xl66" style="height:15.0pt;border-top:none" height="20">
</td> <td class="xl68" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> <td class="xl67" style="border-top:none;border-left:none">
</td> </tr> </tbody></table>

 

[Kyle123]

The easiest way would be to use a pivot table

 

[123456890]

this does not do what i was looking for i would like some sort of macro to do this there is one on here but it put the number in the same cell can any one help change it to put it in the next cell thanks ian

Sub test() Dim a(), e, i As Long, x, y With Range("a1").CurrentRegion.Resize(,1)     a = .Value     With CreateObject("Scripting.Dictionary")         .CompareMode = vbTextCompare         For Each e In a             If Not IsEmpty(e) Then                 If Not .exists(e) Then .add e, 0                 .item(e) = .item(e) + 1             End If         Next         Erase a : x = .keys : y = .items : Redim a(1 To .count, 1 To 1)     End With     For i = 0 To UBound(x)         a(i + 1, 1) = Format$(y(i), "00000") & "-" & x(i)     Next     .Value = a End With End Sub</pre>

 

[Kyle123]

What's wrong with a pivot table, much more simple