Excel 运行时错误';5';使用Autofilter使用VBA删除可见行时

Excel 运行时错误';5';使用Autofilter使用VBA删除可见行时,excel,vba,runtime,Excel,Vba,Runtime,当我运行以下代码(设计用于筛选表,然后删除筛选的行)时,我收到一个运行时错误“5”。当我单步执行宏时,不会出现此错误。只有在运行它的时候 Sub delete() Rng.AutoFilter Field:=8, Criteria1:=Array( _ "ROCKFORD DSC", "MATTESON PLANT", "WHEELING PLANT"), _ Operator:=xlFilterValues Rng.Offset(1, 0).Special

当我运行以下代码(设计用于筛选表,然后删除筛选的行)时,我收到一个运行时错误“5”。当我单步执行宏时,不会出现此错误。只有在运行它的时候

Sub delete()
    Rng.AutoFilter Field:=8, Criteria1:=Array( _
    "ROCKFORD DSC", "MATTESON PLANT", "WHEELING PLANT"), _
     Operator:=xlFilterValues

     Rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

End Sub

Rng
的值是多少?你能粘贴你的数据集的截图吗?@eyanosa,如果你在这里加个空格怎么办<代码>“ROCKFORD DSC”、“MATTESON PLANT”、“WHEELING PLANT”),(在coma之后)
Rng
的值为:
Dim Rng As Range Set Rng=Range(“A1”)。CurrentRegion
逗号后的空格在我的代码中。我在这里发布代码时犯了一个错误。
Rng
的值是多少?你能粘贴你的数据集的截图吗?@eyanosa,如果你在这里加个空格怎么办<代码>“ROCKFORD DSC”、“MATTESON PLANT”、“WHEELING PLANT”),(在coma之后)
Rng
的值为:
Dim Rng As Range Set Rng=Range(“A1”)。CurrentRegion
逗号后的空格在我的代码中。我把代码贴在这里是个错误。