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

Question

如题所述

Answer 1

假设是A列有填充颜色的

Sub 删除颜色的行()
Dim I%

For I = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(I, "A").Interior.ColorIndex > 0 Then
Rows(I).Delete
End If
Next
MsgBox "完毕........"
End Sub