excel - 使用宏突出显示具有背景颜色的单元格

Question

我需要我的宏来删除包含红色单元格的行。
我首先对包含红色单元格的列进行排序，使空白单元格位于顶部，然后手动单击顶部的红色单元格(第 100 行)并使用 Ctrl-Shift-Down 突出显示其余部分。因此，我的部分代码如下所示:

ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Add2 _
    Key:=Range("Table1[[#All],[First Name]]"), SortOn:= _
    xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:=RGB _
    (255, 0, 0), Operator:=xlFilterCellColor
Rows("100:150").Select

如何修改最后一部分，以便我的宏检测到红色单元格然后突出显示它们，以便无论我的工作表中有多少单元格，它都可以工作？
提前致谢。

Answer 1

下面的代码应该给你你想要的。用途 AutoFilter按单元格颜色 & 整体删除。让我知道你是怎么做的。

Option Explicit
Sub DeleteByColor()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

With ws.ListObjects("Table1").Range
    .AutoFilter 1, RGB(255, 0, 0), 8
    .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
    .AutoFilter
End With

End Sub