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))

然后添加其余的代碼。