excel - 删除所有“无填充”行

这可以删除黄色（索引6），但是0不能清除“ NO Fill”行，有什么想法吗？

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

最佳答案

怎么样

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