如果B列中的单元格处于红色填充，则删除行

我正在寻找可以删除行，如果B列中的单元格包含红色填充颜色的VBA。

感谢你的帮助！

Answer 1

这使用一个特定的红色（ColorIndex＃3）

Sub BetterDeadThanRed() Dim N As Long N = Cells(Rows.Count, "B").End(xlUp).Row For i = N To 1 Step -1 If Cells(i, "B").Interior.ColorIndex = 3 Then Cells(i, "B").EntireRow.Delete End If Next i End Sub 

注意

我们从底部向上运行循环。
这个子不是很快