如何用Excel VBA自动识别空白行分隔的数据组并计算平均值？

不用再靠ActiveCell挪来挪去了，直接操作Range对象定位数据块，既高效又不容易出错，思路和代码如下：

核心思路 #

直接定位每一组数据的起始行和结束行：

1. 先找到数据区域的最后一行，避免循环超出范围
2. 从第一个数据行开始，用End(xlDown)定位当前组的最后一行（下一个空白行的前一行）
3. 直接调用Excel的Average函数计算该组的平均值，写入指定列
4. 跳过空白行，直接跳转到下一组的起始行，循环直到处理完所有数据

完整VBA代码 #

Sub CalculateMachineAverages()
    Dim dataSheet As Worksheet
    Dim firstDataRow As Long, currentGroupEndRow As Long
    Dim lastDataRow As Long
    Dim avgAvailabilityCol As Integer, avgPerformanceCol As Integer
    
    ' 指定工作表，改成你实际的工作表名称
    Set dataSheet = ThisWorkbook.Worksheets("机器数据")
    ' 设置平均值写入的列：这里D列存可用性平均值，E列存性能平均值
    avgAvailabilityCol = 4
    avgPerformanceCol = 5
    ' 获取第一列的最后一行数据（假设第一列是机器标识，不会空白）
    lastDataRow = dataSheet.Cells(dataSheet.Rows.Count, 1).End(xlUp).Row
    
    ' 假设第一行是表头，数据从第二行开始，根据实际情况调整
    firstDataRow = 2
    
    Do While firstDataRow <= lastDataRow
        ' 定位当前数据组的最后一行
        currentGroupEndRow = dataSheet.Cells(firstDataRow, 1).End(xlDown).Row
        
        ' 特殊处理：如果当前组是最后一组，下一行不是空白行，直接把最后一行设为组结束行
        If dataSheet.Cells(currentGroupEndRow + 1, 1) <> "" Then
            currentGroupEndRow = lastDataRow
        End If
        
        ' 计算可用性（B列）的平均值，写入对应行的平均值列
        dataSheet.Cells(firstDataRow, avgAvailabilityCol).Value = _
            Application.Average(dataSheet.Range(dataSheet.Cells(firstDataRow, 2), dataSheet.Cells(currentGroupEndRow, 2)))
        
        ' 计算性能（C列）的平均值，写入对应行的平均值列
        dataSheet.Cells(firstDataRow, avgPerformanceCol).Value = _
            Application.Average(dataSheet.Range(dataSheet.Cells(firstDataRow, 3), dataSheet.Cells(currentGroupEndRow, 3)))
        
        ' 跳转到下一个数据组的起始行（跳过中间的空白行）
        firstDataRow = currentGroupEndRow + 2
    Loop
End Sub

关键说明 #

• 完全避开ActiveCell和Select操作，彻底消除选区变动导致的错误
• 直接通过Range对象定位数据范围，比存数组再计算快得多
• 自动处理最后一组数据（没有后续空白行的情况），避免循环报错

自定义调整点 #

1. 把"机器数据"改成你实际的工作表名称
2. 如果表头行不是第一行，修改firstDataRow的值
3. 如果可用性/性能不在B/C列，调整Average函数里的列号（比如改成4代表D列）
4. 如果平均值要写到其他列，修改avgAvailabilityCol和avgPerformanceCol的数值

内容的提问来源于stack exchange，提问作者ryanrusch