Excel 对多个工作表执行宏操作，并过滤具有选定日期范围的所有工作表数据

如何筛选日期范围内的多张数据表。我找不到解决办法。单个按钮需要过滤所有工作表数据

Sub ApplyFilter()
    Dim wsDL As Worksheet
    Dim wsABC As Worksheet
    Dim rngAD As Range
    Dim wsO() As Worksheet
    wsO = Array(Google, Bing, Yahoo, Facebook, Amazon)
    Set wsABC = wsO
    Set wsDL = Sheets("DateList")
    Set rngAD = wsABC.Range("AllDates")

    'update the list of dates
    wsDL.Range("A1").CurrentRegion.ClearContents
    'rngAD.Offset(-1, 0).Resize(rngAD.Rows.Count + 1).Select
    rngAD.AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:="", _
        CopyToRange:=wsDL.Range("A1"), Unique:=True
    wsDL.Range("A1").CurrentRegion.Sort _
        Key1:=wsDL.Range("A2"), Order1:=xlAscending, Header:=xlYes

    'filter the list
    wsABC.Range("Database").AdvancedFilter _
        Action:=xlFilterInPlace, _
        CriteriaRange:=wsABC.Range("G1:H2"), Unique:=False  
End Sub

---

激活

Option Explicit

，您将看到您的第一个问题：在VBA编辑器中，转到工具›选项›。如果您发布数据的屏幕截图会有所帮助是的，我添加了一个屏幕截图，请检查图像是否激活了

Option Explicit

？它会显示你的错误。您不能等待我们修复您的代码。请在修复这些错误后更新您的代码。激活

Option Explicit

，您将看到您的第一个问题：在VBA编辑器中转到工具›选项›。如果您发布数据的屏幕截图会有所帮助是的，我添加了一个屏幕截图请检查图像您是否激活了

Option Explicit

？它会显示你的错误。您不能等待我们修复您的代码。请在修复这些错误后更新您的代码。