View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
don lloyd don lloyd is offline
external usenet poster
 
Posts: 15
Default group cells.......

The following VBA code will do what you want

Sub STots()
Dim Rw 'Row being evaluated
Dim Var 'The value in column A
Dim Srw 'the 1st row containing VAR
Dim Stot 'sub-total of values in column B
Rw = 1: Srw = 1
Var = Cells(Rw, 1)
Do
Do
Stot = Stot + Cells(Rw, 2)
Rw = Rw + 1
Loop While Cells(Rw, 1) = Var
Cells(Srw, 3) = Stot
Stot = 0: Srw = Rw: Var = Cells(Rw, 1)
Loop Until Cells(Rw, 1) = ""
End Sub

The above assumes that your data list starts in cell A1.
If not, adjust as necessary.

regards,
Don
--

"R-M" wrote in message
...
Hi

I've following information wanted to group by first
column and show the sum of quantities:


a b c
---- ----- ------
123 10.8
123 20.2
123 44
124 2
124 11
124 45


The desired result:

a b c
---- ----- ------
123 10.8 75 - sum(10.8+20.2+44)
123 20.2
123 44
124 2 58 - sum(2+11+45+0)
124 11
124 45
124 0


note: I don't want to write sum(a1:a3) , ... because
it depends on the number of rows has the same value.

any help would greatly appricieted.


--
Using M2, Opera's revolutionary e-mail client: http://www.opera.com/m2/