如果过滤时不存在数据的错误消息

Question

我下面的宏将过滤出以 PB*

但是，如果数据PB*不存在，我希望弹出一个消息框并完全停止宏。

我希望有人可以通过在消息中添加“ If- Else”语句来增强宏 Data does not exist.

这是我当前正在使用的宏...

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

Answer 1

我建议修改download_count方法的某些选项以适合您的需求。可以找到可用的选项和其他有用的信息here

Range.Find

Answer 2

使用工作表的SubTotal函数计算N列中的可见数据。

Input arrays should have the same number of samples as target arrays. Found 50000 input samples and 25000 target samples.