如何用VBA实现在同一列将所有有背景色的单元格所在行保留而删除其他行，

Question

如题所述

Answer 1

Sub 删除指定列无背景色单元格所在行()
Dim rng As Range
Dim QuYu As Range
Set QuYu = Range("F1:F20") '指定区域
x = QuYu.Cells.Count
For i = x To 1 Step -1
    Debug.Print QuYu.Cells(i, 1).Value
    If QuYu.Cells(i, 1).Interior.ColorIndex = xlNone Then QuYu.Cells(i, 1).EntireRow.Delete
Next
End Sub