删除所有“无填充”行

这工作删除黄色（索引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