Excel VBA代码报错1004求助：循环高亮单元格异常终止

可能的原因及对应解决方案 #

1. 工作表处于保护状态 #

Excel 2007中，若目标工作表被保护，直接修改单元格内部颜色会触发1004错误。解决方法：
在代码开头解除工作表保护，操作完成后按需重新保护：

Sub COL_Hilight()
   Dim i As Long, r1 As Range, r2 As Range
   
   ' 解除工作表保护，有密码则添加参数，例：Sheets("Sheet1").Unprotect "yourpassword"
   Sheets("Sheet1").Unprotect
   
   Application.ScreenUpdating = False ' 关闭屏幕更新提升运行效率
   
   For i = 5 To 5000
      Set r1 = Sheets("Sheet1").Range("B" & i)
      Set r2 = Sheets("Sheet1").Range("A" & i)
      If r1.Value = 1 Then r2.Interior.Color = RGB(255, 153, 255)
    Next i
    
    Application.ScreenUpdating = True ' 恢复屏幕更新
    Sheets("Sheet1").Protect ' 重新保护工作表，有密码则添加参数
End Sub

2. 未明确指定工作表，导致引用错误 #

原代码未指定具体工作表，若运行过程中切换了激活工作表，会导致Range引用到错误的工作表，触发错误。解决方法：
始终明确指定操作的工作表（例如Sheets("Sheet1")），避免依赖当前激活工作表。

3. 循环效率低导致资源耗尽 #

原代码每次循环都创建新的Range对象，Excel 2007资源管理能力弱于高版本，多次运行后易耗尽资源。优化代码提升效率：

Sub COL_Hilight()
   Dim i As Long
   Dim ws As Worksheet
   
   Set ws = Sheets("Sheet1")
   ws.Unprotect ' 解除保护
   Application.ScreenUpdating = False
   Application.EnableEvents = False ' 关闭事件触发进一步减少资源占用
   
   For i = 5 To 5000
      ' 直接引用单元格，避免重复创建Range对象
      If ws.Cells(i, "B").Value = 1 Then
          ws.Cells(i, "A").Interior.Color = RGB(255, 153, 255)
      End If
    Next i
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    ws.Protect ' 重新保护工作表
End Sub

4. 单元格格式损坏（少见但需排查） #

若A列某单元格格式损坏，设置颜色时会触发错误。可尝试：
选中A5:A5000区域，通过「开始」选项卡→「清除」→「清除格式」重置格式后，再运行代码。

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