如何用Excel VBA删除指定区域内无ColorIndex=44的行？

需求明确：删除工作表中，指定区域（C9:F303、F9:M303）内不存在ColorIndex=44（橙色）单元格的所有行。

以下是实现该需求的VBA代码，附带逻辑说明：

Sub Delete_line_if_no_color_44()
    Dim NbreLigneMax As Long
    ' 获取M列（第13列）最后一行的行号，确定循环的最大范围
    NbreLigneMax = Cells(Rows.Count, 13).End(xlUp).Row
    ' 从最后一行倒序循环到第9行，避免删除行后导致的索引错乱
    For i = NbreLigneMax To 9 Step -1
       ' 判断当前行的F列和M列单元格背景色都不是橙色（ColorIndex≠44）
       If Range("F" & i).Interior.ColorIndex <> 44 And Range("M" & i).Interior.ColorIndex <> 44 Then
           ' 删除整行
           Rows(i).EntireRow.Delete
       End If
   Next
End Sub

代码关键说明 #

• 倒序循环：删除行操作会改变后续行的索引，从下往上循环能避免漏删或索引越界问题
• 判定逻辑：代码通过检查每行的F列和M列单元格背景色，覆盖了需求指定的区域范围，以此判断是否符合删除条件
• 边界控制：循环从第9行开始，精准匹配需求中指定的起始行位置

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