优化VBA单元格着色循环：提升E列条件格式代码运行效率

原代码遍历整列E:E会处理大量空单元格，这是效率低下的核心原因。下面是优化后的代码，同时加入多项提速措施：

Sub color_status_optimized()
    Dim lastRow As Long
    Dim targetRange As Range
    Dim cell As Range
    
    ' 关闭屏幕更新、事件触发和自动计算，大幅提升速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    ' 获取E列最后一个非空单元格的行号，精准定位有效数据范围
    lastRow = Cells(Rows.Count, "E").End(xlUp).Row
    Set targetRange = Range("E1:E" & lastRow)
    
    ' 遍历有效数据范围，用Select Case替代多ElseIf，代码更清晰
    For Each cell In targetRange
        Select Case cell.Value
            Case "Open"
                cell.Interior.Color = RGB(198, 224, 180)
            Case "In Progress"
                cell.Interior.Color = RGB(169, 208, 142)
            Case "Done"
                cell.Interior.Color = RGB(112, 173, 71)
            Case "On Hold"
                cell.Interior.Color = RGB(226, 239, 218)
            Case Else
                ' 可选：如果需要清空不符合条件的单元格颜色，取消下面注释
                ' cell.Interior.Color = xlNone
        End Select
    Next cell
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub

关键优化点说明： #

• 缩小遍历范围：通过lastRow = Cells(Rows.Count, "E").End(xlUp).Row获取E列实际有数据的最后一行，只遍历E1:E[lastRow]，避免处理成千上万的空单元格。
• 减少Excel交互：关闭屏幕更新、事件和自动计算，避免Excel在代码运行时频繁刷新界面、触发事件或重新计算，这是提升VBA运行速度的常用技巧。
• 代码可读性优化：用Select Case替代连续的ElseIf，逻辑更清晰，后续新增状态时更容易维护。
• 可选的默认处理：如果需要将不符合条件的单元格背景色清空，可以取消Case Else里的注释。

如果你的数据是从E2开始（比如第一行是表头），只需要把Range("E1:E" & lastRow)改成Range("E2:E" & lastRow)即可。

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