Excel宏自动筛选和删除行

Question

我正在尝试使下面的代码正常工作，但出现错误。

编码选择另一个工作表，然后自动过滤列并删除行。

遇到麻烦的行是.AutoFilter 1，“ NoNo ”

运行时错误'1004'：Range clas的AutoFilter方法失败。

请给我一些帮助。

Private Sub Project()
Worksheets("YesYes").Select
With ActiveSheet
.AutoFilterMode = False
 With Range("y1", Range("y" & Rows.Count).End(xlUp))
    .AutoFilter 1, "*NoNo*"
    On Error Resume Next
    .Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With
End Sub

Answer 1

选择不一定“激活”工作表。 代替：

Worksheets("YesYes").Select
With ActiveSheet

做这个：

Worksheets("YesYes").Activate
With ActiveSheet

Answer 2

不需要99％的时间使用“ Select或“ Activate 。

在您的情况下，请使用完全合格的对象：

With Worksheets("YesYes")

并嵌套在下面使用：

With .Range("y1", .Range("y" & .Rows.Count).End(xlUp))

然后添加其余的代码。