Combine Unique Columns and sum up different values

[sdnicsm]

How easy is it to filter unique records in one column and have the tota
of another column sum'd up from the unique records:

CLIN Count
0001AA 5
0001AA 1
0001AA 5
0001AB 6
0001AB 38
0001AB 2
0001AB 11
0001AB 15
0004AC 12

End result being

CLIN COunt
0001AA 11
0001AB 72
0004AC 12

Any ideas on how to do with VBA

 

[Frank Kabel]

Hi
easies way (IMHO): use a pivot table for this. See
http://www.cpearson.com/excel/pivots.htm
http://peltiertech.com/Excel/Pivots/pivotstart.htm
http://www.contextures.com/xlPivot02.html
to get some starting information

 

[Bob Phillips]

Here's one way

Sub Totals()
Dim i As Long
Dim prevVal As String

For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A").Value <> prevVal Then
Cells(i, "C").Formula = "=SUMIF($A$1:$A$100,""" & Cells(i,
"A").Value & """,$B$1:$B$100)"
prevVal = Cells(i, "A").Value
End If
Next i

End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)