Question

我是宏的新手，我希望删除D列中包含“不适用”文本的行。我在下面附加了代码。编译时，出现错误“应用程序或对象定义的错误”。请让我知道正确的方法。该代码的第一部分是运行良好的过滤功能。我要添加此行删除部分，多数民众赞成在错误即将到来时。

 Sub Advanced_Filtering()
    If Worksheets("Engagement Sheet").Range("B2") = 2 Then
    Range("C2") = Null
    ElseIf Worksheets("Engagement Sheet").Range("B2") = 1 Then
    Range("C2") = 1
    End If
    Range("A7:G1500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A1:G2"), CopyToRange:=Sheets("Sheet3").Range("L1:R1")


BeginRow = 5
    EndRow = 120
    ChkCol = 4
    For Rowcnt = EndRow To BeginRow Step -1
        If ThisWorkbook.ActiveSheet.Cells(Rowcnt, ChkCol).Value = "Not Applicable" Then
           ThisWorkbook.ActiveSheet.Cells(Rowcnt, ChkCol).EntireRow.Delete

        End If
    Next Rowcnt

ActiveSheet.Copy

End Sub

根据单元格值删除行

0 个答案: