VBA删除指定范围黄色高亮单元格上移时触发1004错误如何解决

原代码错误原因 #

• 循环变量使用错误：你遍历的是cell对象，但判断和操作的是ActiveCell（当前选中单元格），两者完全不对应
• 判断逻辑写反：需求是删除黄色填充单元格，代码里判断的是Interior.Color <> RGB(255,255,0)（非黄色才删除），和需求完全相反
• 参数拼写错误：单元格上移的常量是xlUp（首字母x后面是小写L），你写成了x1ToUp（把L写成了数字1，还多余了To字段）
• 遍历逻辑错误：正向遍历删除单元格时，删除后下方单元格上移，会导致下一轮循环跳过刚移上来的单元格，出现漏检
• 多余的Exit For：执行一次删除就直接退出循环，根本不会遍历所有单元格

最优实现代码 #

优先选择批量收集+一次性删除的方案，效率更高且不会漏检：

Sub DeleteHighlight()
    Dim targetRng As Range, delRng As Range, cell As Range
    ' 定义要遍历的范围
    Set targetRng = ThisWorkbook.ActiveSheet.Range("A6:O3863")
    
    ' 遍历收集所有要删除的黄色单元格
    For Each cell In targetRng
        If cell.Interior.Color = RGB(255, 255, 0) Then
            If delRng Is Nothing Then
                Set delRng = cell
            Else
                ' 合并要删除的单元格范围
                Set delRng = Union(delRng, cell)
            End If
        End If
    Next cell
    
    ' 批量删除所有符合条件的单元格，下方单元格上移
    If Not delRng Is Nothing Then
        delRng.Delete Shift:=xlUp
    End If
End Sub

代码说明 #

• 先遍历全范围收集所有符合条件的单元格，统一执行一次删除操作，比逐次删除效率高10倍以上，也不会出现漏检问题
• 直接操作循环变量cell，不依赖选中状态，避免ActiveCell带来的逻辑混乱
• 增加了空判断，没有符合条件的单元格时不会执行删除操作，避免触发报错

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