Subtotal
Joel,
Not quite...may I send you and exel-sheet where I better explained?
where to:
thanks
Helmut
"Joel" wrote:
Sub combinerows()
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Set sortRange = Rows("1:" & LastRow)
sortRange.Sort _
key1:=Range("A1"), _
order1:=xlAscending, _
key2:=Range("B1"), _
order2:=xlAscending, _
Header:=xlNo
RowCount = 1
Do While Range("A" & RowCount) < ""
If Range("A" & RowCount) = Range("A" & (RowCount + 1)) And _
Range("B" & RowCount) = Range("B" & (RowCount + 1)) Then
Range("C" & RowCount) = Range("C" & RowCount) + _
Range("C" & (RowCount + 1))
Rows(RowCount + 1).Delete
Else
RowCount = RowCount + 1
End If
Loop
End Sub
Columns("A").Insert
RowCount = 1
StartRow = RowCount
Do While Range("B" & RowCount) < ""
If Range("B" & RowCount) < Range("B" & (RowCount + 1)) Then
Rows(RowCount + 1).Insert
Range("A" & (RowCount + 1)) = Range("B" & RowCount) & _
" Total"
Range("C" & (RowCount + 1)).Formula = _
"=Sum(C" & StartRow & ":C" & RowCount & ")"
RowCount = RowCount + 2
StartRow = RowCount
Else
If Range("B" & (RowCount + 1)) < "" Then
Range("A" & RowCount) = "Total"
End If
RowCount = RowCount + 1
End If
Loop
End Sub
"Helmut" wrote:
Joel, sorry I was not quite explicit enough:
total go no 5
total go wa 10
total go ni 9
gtotal go 24 <---- I missed this part
thanks
"Joel" wrote:
Sub combinerows()
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Set sortRange = Rows("1:" & LastRow)
sortRange.Sort _
key1:=Range("A1"), _
order1:=xlAscending, _
key2:=Range("B1"), _
order2:=xlAscending, _
Header:=xlNo
RowCount = 1
Do While Range("A" & RowCount) < ""
If Range("A" & RowCount) = Range("A" & (RowCount + 1)) And _
Range("B" & RowCount) = Range("B" & (RowCount + 1)) Then
Range("C" & RowCount) = Range("C" & RowCount) + _
Range("C" & (RowCount + 1))
Rows(RowCount + 1).Delete
Else
RowCount = RowCount + 1
End If
Loop
End Sub
"Helmut" wrote:
I have: A B C
go no 5
go wa 7
go wa 3
go ni 9
an op 8
an yu 4
an yu 8
an ss 9
I need total by A and total by B within A
total go no 5
total go wa 10
total go ni 9
Is this possible within a macro?
thanks
|