Excel VBA运行时错误1004：无法获取Range类Interior属性问题求助

首先咱们先定位错误根源：原代码里的If Cells.Interior.Color <> RGB(255, 0, 0) Then这一行有问题——Cells没有指定具体的单元格对象，直接调用Interior.Color会触发1004错误，因为VBA不知道你要引用哪个单元格的填充色。另外，依赖条件格式的填充色来判断单元格是否为空也不太可靠，因为Interior.Color获取的是单元格本身的填充色，而条件格式应用的颜色需要用DisplayFormat.Interior.Color来读取，不过更直接的方式是直接检查必填列是否为空，毕竟你的条件格式就是基于空值设置的。

除此之外，原代码的分组求和逻辑还有几个可以优化的地方：

• 固定大小的数组c(5000)可以换成动态数组，避免空间浪费或溢出
• 重复嵌套遍历行效率较低，用字典分组存储相同关键字的行号，逻辑更清晰、运行更快
• 原代码中sum1的初始化逻辑容易导致重复计算，需要梳理

下面是修正并优化后的代码，既解决了错误，又提升了逻辑清晰度和运行效率：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim key As String
    Dim rowDict As Object
    Dim rowList As Collection
    Dim i As Long
    Dim sumVal As Double
    
    Set ws = Me
    ' 用第4列获取实际最后一行，可根据你的数据分布调整
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    Set rowDict = CreateObject("Scripting.Dictionary")
    
    Application.EnableEvents = False
    ' 增加错误处理，确保出错时能恢复事件触发
    On Error GoTo Cleanup
    
    ' 先重置BG列已填充的颜色为白色（空值的条件格式不受影响）
    ws.Range("BG5:BG" & lastRow).Interior.Color = RGB(255, 255, 255)
    
    ' 遍历行，按5列的组合值分组存储行号
    For i = 5 To lastRow
        ' 检查必填列是否都不为空
        If Not IsEmpty(ws.Cells(i, 4)) And Not IsEmpty(ws.Cells(i, 5)) And _
           Not IsEmpty(ws.Cells(i, 8)) And Not IsEmpty(ws.Cells(i, 36)) And _
           Not IsEmpty(ws.Cells(i, 37)) Then
           
            ' 用分隔符生成唯一关键字，避免不同列值拼接后产生歧义
            key = ws.Cells(i, 4).Value & "|" & ws.Cells(i, 5).Value & "|" & _
                  ws.Cells(i, 8).Value & "|" & ws.Cells(i, 36).Value & "|" & _
                  ws.Cells(i, 37).Value
            
            ' 字典中无此关键字则创建新集合
            If Not rowDict.Exists(key) Then
                Set rowList = New Collection
                rowDict.Add key, rowList
            End If
            ' 将当前行号加入对应分组
            rowDict(key).Add i
        End If
    Next i
    
    ' 遍历每个分组，计算求和并设置单元格颜色
    For Each key In rowDict.Keys
        Set rowList = rowDict(key)
        sumVal = 0
        
        ' 计算当前组BG列的总和
        For Each i In rowList
            sumVal = sumVal + ws.Cells(i, 59).Value
        Next i
        
        ' 总和不等于100时，设置对应单元格为红色
        If sumVal <> 100 Then
            For Each i In rowList
                ws.Cells(i, 59).Interior.Color = RGB(255, 0, 0)
            Next i
        End If
    Next key

Cleanup:
    Application.EnableEvents = True
    ' 释放对象内存
    Set rowDict = Nothing
    Set rowList = Nothing
    Set ws = Nothing
End Sub

关键修改点说明： #

• 修复错误引用：去掉原代码中无意义的Cells.Interior.Color判断，改为直接检查必填列是否为空，彻底解决1004错误
• 字典分组优化：通过字典将相同关键字的行号集合在一起，避免嵌套循环的混乱，大幅提升运行效率
• 动态行范围：不再固定遍历到5000行，而是根据实际数据行数遍历，减少不必要的计算
• 错误安全机制：添加错误处理分支，确保即使代码出错也能恢复工作表事件触发，避免后续功能失效
• 关键字防歧义：生成关键字时加入|分隔符，避免不同列的值拼接后被误判为相同关键字

额外提示： #

如果需要BG列的空值也保持红色提示，可以保留原有的ISBLANK条件格式，它会优先覆盖代码设置的填充色，不影响必填项提示功能。

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