VBA Macro для вставки Среднее значение в последней строке каждого столбца с динамическими диапазонами

Question

У меня есть несколько столбцов (в файле Excel), которые представляют месяцы года; каждый столбец имеет несколько записей, и я хотел бы иметь возможность запускать макрос, который будет вставлять ячейку в последнюю строку каждого столбца со средним значением. Первая ячейка каждого столбца - это заголовок, поэтому мне нужно включать ячейки из строки 2 вниз в последнюю запись в столбце. Количество столбцов и строк будет различным при каждом использовании макроса. Я был бы очень признателен за вашу помощь. Благодаря!

Answer 1

Вот решение, которое будет работать из коробки для вас. Требуется среднее значение для каждого столбца, начиная со строки 2.

Sub AverageColumn() 
    Dim count As Integer 
    Dim sum As Integer 
    Dim lastCol As Integer 
    lastCol = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.count).Column 
    For c = 1 To lastCol 
     sum = 0 
     count = 0 
     ActiveSheet.Cells(2, c).Select 
     Do While ActiveCell.Value <> "" 
      sum = sum + ActiveCell.Value 
      count = count + 1 
      ActiveCell.Offset(1, 0).Activate 
     Loop 
     ActiveCell.Value = sum/count 
    Next c 
End Sub