Как вычислить несколько ячеек в одном столбце?

Question

Есть ли способ найти среднее значение для блока данных в том же столбце?

Это код, который я использую, перед которым не работал так, как я понадеялся для данных с меньшим количеством цифр:

Sub Macro1() 
'Macro1 
Do Until ActiveCell.Value = "" 
    'Selection.End(xlDown).Select 
    ActiveCell.Offset(1, 0).Range("A1").Select 
    Selection.FormulaR1C1 = "=AVERAGE(R[-13]C:R[-1]C)" 
    Selection.End(xlDown).Select 
Loop 
End Sub 

Пример: изображение файл я работаю. У меня есть тысячи строк этих данных, и все они разделены тремя пустыми строками. Есть ли способ найти средние значения для каждого блока данных и отобразить его в первой пустой строке непосредственно под данными?

Answer 1

Попробуйте это: (для Columna с учетом 3 пробелов после каждого блока, включая последний блок)

Sub DoAvginColumn() 
Dim i as long, q as long, avgBlock 
Dim lastrow as Range, firstrow as Range, rngcolA as Range, rngBlock as Range 

Set lastrow = Range("A:A").Find(What:="*", After:=[A1], SearchDirection:=xlPrevious) 
Set firstrow = Range("A:A").Find(What:="*", After:=[A1], SearchDirection:=xlNext) 
Set rngcolA = Range("A" & firstrow.Row & ":" & "A" & lastrow.Row) 

q = 1 
For i = 1 To rngcolA.Rows.Count + 1 

    If rngcolA(i).Value = "" And rngcolA(i + 1).Value = "" And rngcolA(i + 2).Value = "" Then 
    Set rngBlock = Range(rngcolA(q), rngcolA(i - 1)) 
    avgBlock = WorksheetFunction.Average(rngBlock) 
    rngcolA(i).Value = avgBlock 
    rngcolA(i).Font.Bold = True 
    q = i + 3 
    End If 

Next 
End Sub 

прилагаемых: Шаги я следовал: От верхней части к нижней части соответствующего диапазона:

1. поиск 3 последовательный бланк.

2. Если найдено, определите соответствующий диапазон для каждого блока, начиная с 1-й ячейки этого блока и заканчивая последней ячейкой этого блока.

3. Затем применил функцию avg на этом блоке и положил результат под блок.