VBA计算Excel时间列平均值时遇运行时错误6（溢出）求助

问题场景 #

需求为：计算Excel工作表mapa_cargas中T列（时间格式）的平均值，需排除E列为空或R列为“PC”的行，仅对黄色单元格求平均。现有VBA代码运行时触发错误6（溢出），错误发生在语句averageHours = totalHours / count2。

错误原因分析 #

1. 判断逻辑完全颠倒：原代码的If条件筛选的是E、R、T列全为空的行，和需求完全不符，导致有效数据未被统计，最终count2可能为0，触发除以0的溢出错误。
2. 缺少黄色单元格判断：原代码未对单元格填充色做校验，不符合“仅对黄色单元格求平均”的要求。
3. 未声明循环变量：循环变量i未显式声明，可能引发类型匹配问题。

修正后的代码 #

Sub CalculateYellowCellAverage()
    Dim ws As Worksheet
    Set ws = Worksheets("mapa_cargas")
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "T").End(xlUp).Row
    
    Dim totalHours As Double
    totalHours = 0
    
    Dim count2 As Long
    count2 = 0
    
    Dim i As Long ' 显式声明循环变量
    For i = 1 To lastRow
        ' 符合条件的行：E列非空、R列不等于"PC"、T列单元格为黄色
        If Not IsEmpty(ws.Cells(i, 5)) And _
           ws.Cells(i, 18).Value <> "PC" And _
           ws.Cells(i, 20).Interior.ColorIndex = xlColorIndexYellow Then
           
            ' 时间格式转小时数累加
            totalHours = totalHours + ws.Cells(i, 20).Value * 24
            count2 = count2 + 1
        End If
    Next i
    
    Dim averageHours As Double
    ' 避免除以0错误
    If count2 > 0 Then
        averageHours = totalHours / count2
        Worksheets("indicadores").Cells(4, 7).Value = averageHours
    Else
        Worksheets("indicadores").Cells(4, 7).Value = "无有效数据"
    End If
End Sub

关键修改点 #

• 修正筛选条件：改为判断E列非空、R列不是"PC"、单元格为黄色，匹配需求。
• 增加除以0防护：当没有符合条件的单元格时，输出提示而非触发错误。
• 规范变量声明：显式声明循环变量i，避免隐式类型问题。
• 颜色判断：使用xlColorIndexYellow（对应颜色索引6）精准识别黄色单元格。

内容的提问来源于stack exchange，提问作者André Lopes