基于另一个工作簿中的单元格值自动筛选

Question

我正在尝试过滤位于不同工作簿上的表。

场景：我有 2 个工作簿。 WB1 有几个下拉菜单来过滤 WB2 上的数据。

我想根据 WB1 上的多个标准过滤和复制 WB2 中的数据，并将其粘贴到 WB1 上的现有选项卡上

我已经为此工作了大约 8 或 9 个小时，但没有成功。

到目前为止，这就是我所拥有的：

Sub filter_by_cell_value()

    Dim WB1 As Workbook
    Dim WB2 As Workbook
    
    Set WB1 = ActiveWorkbook
    
    Workboooks.Open Filename = "C:\Users\name\Documents\jbl\Extract.xlsb"
    'Capture new workbook
    Set WB2 = ActiveWorkbook
    
    With ActiveWorkbook.Sheets("AU06").AutoFilterMode = False
        'Workbook("Extract.xlsb").Sheets ("AU06")
    .AutoFilter Field = 2, Criteria1:="=" & ThisWorkbook.Sheets("Appendix 2").Cells(2, 9).Value
    .SpecialCells(xlCellTypeVisible).Copy
    End With
    
    WB1.Activate
    
    ThisWorkbook.Sheets("AU06").Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Range("A1").CurrentRegion.Columns.AutoFit

End Sub

在这一点上的任何帮助将不胜感激。

Answer 1

我可以猜测，没有看过您的工作簿，代码可能如下所示：

Sub filter_by_cell_value()
    Dim WS1 As Worksheet, WS2 As Worksheet
    
    Set WS1 = ThisWorkbook.Sheets("AU06")
    Set WS2 = Workbooks.Open("C:\Users\name\Documents\jbl\Extract.xlsb").Sheets("AU06")
    
    With WS2
        .AutoFilterMode = False
        With .Range("A1").CurrentRegion ' your own range
            .AutoFilter Field:=2, Criteria1:=WS1.Parent.Sheets("Appendix 2").Cells(2, 9).Text
            .SpecialCells(xlCellTypeVisible).Copy
        End With
    End With
    
    With WS1.Range("A1")
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        .CurrentRegion.Columns.AutoFit
    End With
End Sub