FilterData宏

Question

我正在尝试在Excel工作表中实现过滤系统。

但是，我正忙于显示数据：

Sub FilterData()
    Sheets("App").Select
    Range("B12").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Clear

    Sheets("RawData").Range("Table1[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Sheets("RawData").Range("M1:P2"), CopyToRange:=Sheets("App").Range("B12"), Unique:=True
    Columns.AutoFit
    Range("B12").Select

End Sub

该功能取自：

See Link!

错误如下：

有什么建议可能出错吗？我可以检查什么来获得更深入的信息？

感谢您的回答！

更新

请看看我的命名范围：

更新2 错误：

Answer 1

我希望this article会帮助你

特别是这部分

  

错误启动器

     

本节调用错误处理程序：

     

错误GoTo PROC_ERR

     

如果程序中出现错误，则代码   跳转到定义标签“PROC_ERR”的行。对于   一致性，在每个过程中使用相同的标签名称。

     

错误处理程序

     

此部分是代码在发生错误时所在的位置   过程：

     

PROC_ERR：MsgBox＆＃34;错误：（＆＃34;＆amp; Err.Number＆amp;＆＃34;）＆＃34; ＆安培; Err.Description，   vbCritical

     

在这里，您可以管理错误并确定要执行的操作   下一个。检查错误对象（Err）以查看发生的情况。对于   实例，Err.Number是错误编号，Err.Description是错误   描述等。

如果将其添加到代码中，您将能够看到发生了什么类型的错误。