Этот макрос обнаружит последнюю строку в первом и последнем столбцах, а затем проведет l oop через данные, начиная со столбца 2.
Открыть Excel VBA (ALT-F11)
Щелкните правой кнопкой мыши VBAPпроект и вставьте> Модуль
Скопируйте следующий код во вновь созданный модуль
Прикрепите горячую клавишу (ALT-F8> Опции) к макросу.
Sub avgcol()
Dim lRow, lCol, i As Long
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.Worksheets("Sheet2")
lRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
lCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
For i = 2 To lCol
ws.Cells(lRow + 1, i).Value = Application.WorksheetFunction.Average(Range(Cells(1, i), Cells(lRow, i)))
Next i
End Sub