Vba 筛选时数据不存在时的错误消息

下面我的宏将过滤掉从

PB*

但是，如果数据

PB*

不存在，我希望弹出一个消息框并完全停止宏

我希望有人能够通过在宏中添加“If-Else”语句和消息来增强宏

数据不存在。

这是我当前使用的宏

Sub LHEQP()
'
' LHEQP Macro
'

'

Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

ActiveCell.Columns("A:A").EntireColumn.Select
ActiveSheet.Range("$A$1:$P$" & LastRow).AutoFilter Field:=14, Criteria1:="=PB**" _
    , Operator:=xlAnd

End Sub

---

我建议修改

范围中的一些选项。查找
方法以满足您的需要。可以找到可用的选项和其他有用的信息

我建议修改
范围中的一些选项。查找
方法以满足您的需要。可以找到可用的选项和其他有用的信息

使用工作表的小计功能对N列中的可见数据进行计数

Sub LHEQP()

    Dim lastRow As Long

    with ActiveSheet
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row

        with .Range("A1:P" & LastRow)
            .AutoFilter Field:=14, Criteria1:="=PB*"
            if not cbool(application.subtotal(103, .columns(14).offset(1,0))) then
               'zero visible data in filtered column N
                msgbox "bad filter"
                exit sub
            end if
        end with

    end with

End Sub

使用工作表的小计功能对N列中的可见数据进行计数

Sub LHEQP()

    Dim lastRow As Long

    with ActiveSheet
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row

        with .Range("A1:P" & LastRow)
            .AutoFilter Field:=14, Criteria1:="=PB*"
            if not cbool(application.subtotal(103, .columns(14).offset(1,0))) then
               'zero visible data in filtered column N
                msgbox "bad filter"
                exit sub
            end if
        end with

    end with

End Sub