GroupBy and Sum rows using multiple columns in Excel - excel

Question

I am trying to groupby and sum the rows of an Excel file and sum the amount.
Sample Data:
Name
Age
NetPay
Gross Value
Manz
36
260
1200
Nerz
26
760
1480
Manz
36
140
1290
Nerz
26
160
1495
Manz
36
880
1140
Manz
16
260
1200
Kiks
24
470
1700
Rats
31
290
1760
Manz
36
260
1200
Expected Output:
Name
Age
NetPay
Gross Value
Manz
36
1540
4830
Nerz
26
920
2975
Manz
16
260
1200
Kiks
24
470
1700
Rats
31
290
1760
Sub Output_Final_Validation(strval As String)
Dim wrkbokval As Workbook
Dim shtval As Worksheet
Dim shterror As Worksheet
Dim Lastrow As Long
Dim LastCol As Long
Set wrkbokval = Workbooks.Open(strval)
Set shtval = wrkbokPRval.Sheets("Sheet4")
Lastrow = shtval.Cells(Rows.Count, 1).End(xlUp).Row
shtval.Range("A2:AP" & Lastrow).Value = shtval.Range("A2:Z" & Lastrow).Value
Please suggest how we can resolve it,
I need to groupby on column Name and Age and ̀ Sum NetPayandGross Value`.
I have tried using Pivot as well but couldn't worked.

Answer 1

You can do it using a Dictionary to store name concatenaded with age (it looks like it's your unique ID, but consider using something else because 2 people can share name AND age easily) and then apply SumIfs to get your calculus:
Sub test()
Dim rngSource As Range
Dim i As Long
Dim Dict As Object
Dim LR As Long
Dim MyStr As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Set Dict = CreateObject("Scripting.Dictionary")
Set rngSource = Range("A2:D" & LR)
For i = 2 To LR Step 1
If Dict.Exists(Range("A" & i).Value & "|" & Range("B" & i).Value) = False Then
Dict.Add Range("A" & i).Value & "|" & Range("B" & i).Value, 0
End If
Next i
'destination. I'm pasting in cell G2
Range("G2").Resize(Dict.Count, 1) = Application.WorksheetFunction.Transpose(Dict.Keys)
Dict.RemoveAll
Set Dict = Nothing
i = 2
Do Until Range("G" & i).Value = ""
Range("H" & i).Value = Split(Range("G" & i).Value, "|")(1) 'age
Range("G" & i).Value = Split(Range("G" & i).Value, "|")(0) 'name
With Application.WorksheetFunction
Range("I" & i).Value = .SumIfs(rngSource.Columns(3), rngSource.Columns(1), Range("G" & i).Value, rngSource.Columns(2), Range("H" & i).Value) 'NetPay
Range("J" & i).Value = .SumIfs(rngSource.Columns(4), rngSource.Columns(1), Range("G" & i).Value, rngSource.Columns(2), Range("H" & i).Value) 'Gross Value
End With
i = i + 1
Loop
Set rngSource = Nothing
End Sub