excel vba代码，如果自动过滤器不返回任何内容（无数据）

Question

因此，我想编写一个宏来过滤电子表格（通过条件列表），然后为每个条件打印该数据（在我的示例中为帐户）。但是，我的问题是，在过滤帐户“ AAA”时（再次举例说明），过滤器不返回任何数据。我的代码也会打印出来。下面是我的代码（恰好是更大的宏的一部分）。

有人可以提供有关vba代码的帮助，如果自动过滤器什么也不返回？我到处搜索，似乎在vba中没有简单的条件可以表达这一点。

ActiveSheet.Columns(1).AutoFilter field:=1, Criteria1:=Array(account, account2), Operator:=xlFilterValues

'is there a simple line of code for if autofilter returns no data?  (the below)

If AutoFilter = blank Then GoTo nexti     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False