x
• Status: Solved
• Priority: Medium
• Security: Public
• Views: 372

# would like to creat a relatively easy macro in excell

i have 5 columns of numbers listed in excell

would like to create a macro that gets the count of numbers in the first column

the remaining columns, i would like to calculate the average of each column

tried to record a macro to do this many times and it didnt work. One of the problems it wouldnt work was because the number of column entries will vary from spreadsheet to spreadsheet. The macro I created kept the column count the same.

If this doesnt explain the problem well enough, i can send a file
0
1 Solution

Commented:
With the description you gave I tried to come up with a solution.  It may not be the best way to do it, but it seemed to work for my testing.

You didn't say what you wanted to do with the count and the averages so I just set this to put that data on the last row of each line with bold text and a pink cell color with your values

Go to the Developer Tab and click Visual Basic, double click "ThisWorkbook" and past the following code.  Then try to run the "Calculate" macro and see if you get the desired results.

Also in the future, please add Microsoft Excel to the Topics portion so that the Excel Experts can assist.

``````Dim cAverage As Double

Sub Calculate()
'LastRow for column A
ALastRow = Sheets(1).Cells(Sheets(1).Rows.Count, "A").End(xlUp).Row

Dim rRng As Range
'If you have a header row change to A1 to A2
Set rRng = Range("A1:A" & ALastRow)

Sheets(1).Cells(ALastRow + 1, "A").Value = ALastRow
'Set font to bold
Sheets(1).Cells(ALastRow + 1, "A").Font.Bold = True
'Set cell color
Sheets(1).Cells(ALastRow + 1, "A").Interior.ColorIndex = 22

'For Columns B to E
For i = 2 To 5
'Last Row for column i
LastRow = Sheets(1).Cells(Sheets(1).Rows.Count, i).End(xlUp).Row
CellAverage (Sheets(1).Range(Cells(1, i), Cells(LastRow, i)))
Sheets(1).Cells(LastRow + 1, i).Value = cAverage
'Set font to bold
Sheets(1).Cells(LastRow + 1, i).Font.Bold = True
'Set cell color
Sheets(1).Cells(LastRow + 1, i).Interior.ColorIndex = 22
Next i
End Sub

Sub CellAverage(rng As Range)
cAverage = 0
cAverage = Application.WorksheetFunction.Average(rng)
End Sub
``````
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.