删除全部“无填充”行

Question

这可以删除黄色（索引6），但0不会清除“无填充”行，有什么想法？

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