This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button
Solved
excel how to add group by average to bottom of the page
Posted on 2016-10-28
I have excel sheet where I want to group by Location at bottom of page
ProductID, Product, Location, price
1 Product1, NY , 10
2 Product2, NY , 20
3 Product3, NJ , 10
3 Product3, NJ , 20
3 Product3, NJ , 30
Out put should be
ProductID, Product, Location, price
1 Product1, NY , 10
2 Product2, NY , 20
3 Product3, NJ , 10
4 Product3, NJ , 20
5 Product3, NJ , 30
Average NY 15
Average NJ 20
Grand Average 18
ProductID, Product, Location, price
1 Product1, NY , 10
2 Product2, NY , 20
3 Product3, NJ , 10
3 Product3, NJ , 20
3 Product3, NJ , 30
Out put should be
ProductID, Product, Location, price
1 Product1, NY , 10
2 Product2, NY , 20
3 Product3, NJ , 10
4 Product3, NJ , 20
5 Product3, NJ , 30
Average NY 15
Average NJ 20
Grand Average 18
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2 Comments
Active today
Hi,
pls try
pls try
Sub macro()
Dim Res() As Variant
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
For Each c In Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
If Not dict.exists(c.Offset(, 2).Value) Then
dict.Add c.Offset(, 2).Value, c.Offset(, 2).Value
End If
Next
Res = dict.Items()
For Idx = 0 To UBound(Res)
lastRow = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & lastRow).Offset(Idx + 1, 1) = "Average"
Range("A" & lastRow).Offset(Idx + 1, 2) = Res(Idx)
Range("A" & lastRow).Offset(Idx + 1, 3).FormulaR1C1 = "=averageIF(R2C3:R" & lastRow & "C3,RC[-1],R2C4:R" & lastRow & "C4)"
Next
Range("B" & Rows.Count).End(xlUp).Offset(1) = "Grand Average"
Range("D" & Rows.Count).End(xlUp).Offset(1).Formula = "=average(R2C4:R" & lastRow & "C4)"
Application.ScreenUpdating = True
End Sub
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents. The steps to find the Templates folder path are …
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.
Suggested Courses
Course of the Month10 days, 3 hours left to enroll
722 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.