根据单元格颜色删除行Excel VBA

Question

我正在尝试根据单元格颜色删除行。 我遇到的问题是我编写的代码不断“跳过行”：

 For i = 2 To lastRow
'MsgBox (Cells(i, 1) & " " & Cells(i, 1).Interior.ColorIndex)
    If Worksheets("Export Worksheet").Cells(i, 1).Interior.ColorIndex <> "4" Then
       'MsgBox ("Row " & i & " will be deleted")
       Rows(i).EntireRow.Delete
       'MsgBox ("i is currently " & i)
       i = i + 1
    'MsgBox ("i is now " & i)
    End If

Next i

有人可以帮忙吗？ 谢谢！！

Answer 1

删除行时应向后循环。

 For i = lastRow to 2 Step -1 'Step --1 tells VBA to loop in reverse
'MsgBox (Cells(i, 1) & " " & Cells(i, 1).Interior.ColorIndex)
    If Worksheets("Export Worksheet").Cells(i, 1).Interior.ColorIndex <> "4" Then
       'MsgBox ("Row " & i & " will be deleted")
       Rows(i).EntireRow.Delete
       'MsgBox ("i is currently " & i)
       i = i + 1
    'MsgBox ("i is now " & i)
    End If

Next i