用于删除过滤数据的VBA代码

Question

我有以下代码，用于过滤和删除行。 但是我担心，它会提示ok / cancel选项。 当我按下＆＃34; ok＆＃34;它会删除行。但是，我不需要提示。

Range("B1").Select
    Selection.AutoFilter
        ActiveSheet.Range("A1").End(xlDown).AutoFilter Field:=2, Criteria1:="=*jpn*" _
            , Operator:=xlOr, Criteria2:="=*promo*"
        ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete

请帮我修改代码。基本上，我已经过滤了包含jpn或promo的数据并删除了整行。

Answer 1

您应该检查以确保在尝试删除它们之前删除可见的行。

ProjectLevel1Repository