全部删除＆＃34;不填写＆＃34;行

Question

这可以删除黄色（索引6），但0不会清除＆＃34; NO Fill＆＃34;行，任何想法？

Sub deleterow()
Dim i As Long, j As Long
Dim delRange As Range

With ActiveSheet
    For i = 7 To 1200 '<~~ Row 7 to 1200
        For j = 1 To 180 '<~~ Col A to end of last dealer
            If .Cells(i, j).Interior.ColorIndex = 0 Then '0=No Fill
                If delRange Is Nothing Then
                    Set delRange = .Cells(i, j)
                Else
                    Set delRange = Union(delRange, .Cells(i, j))
                End If
                Exit For
            End If
        Next j
    Next i
End With

If Not delRange Is Nothing Then delRange.EntireRow.Delete
End Sub

Answer 1

如何尝试

.Cells(i, j).Interior.ColorIndex = -4142