Это найдет вашу последнюю строку и последний столбец, а затем разместите средние 2 строки под ней.
Sub GetAverage()
Dim Rws As Long, Col As Integer, r As Range, FrNg As Range
Set r = Range("A1")
Rws = Cells.Find(what:="*", after:=r, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Col = Cells.Find(what:="*", after:=r, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Set FrNg = Range(Cells(Rws + 2, 1), Cells(Rws + 2, Col)) ' range A2 to last cell on sheet
FrNg = "=AVERAGE(A2:A" & Rws & ")"
FrNg.Value = FrNg.Value
End Sub
См. Еще один код выбора. Selection Codes
Просто введите «= AVERAGE (A1: A200)» в 201-й строке или это не то, что вы ищете? – dubafek
@ dubafek вы не внимательно прочитали вопрос: p: p: p ... ok sorry ... отредактировал ... – Rosetta
Есть как 10 столбцов, для которых я должен рассчитать среднее значение, как указано выше. Я хочу, чтобы function/sub в VBA, который делает это для всех таких столбцов. – Sunaina