基于下拉的自动过滤

Question

我正在尝试创建一个自动过滤器，该过滤器采用“sheet1”的 A2 中的内容，并在 F2 及以下更改“Sheet2”上的过滤器；

这是目前为止的代码，我只需要让它查看不同的工作表

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$2" Then
        If Range("F2") = "All" Then
            Range("A2").AutoFilter
        Else
            Range("A2").AutoFilter Field:=6, Criteria1:=Range("F2")
        End If
    End If
End Sub

Answer 1

您需要指定您的范围在哪个工作簿/工作表中。否则 VBA 无法知道这一点。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$2" Then
        If ThisWorkbook.Worksheets("Sheet1").Range("F2") = "All" Then
            ThisWorkbook.Worksheets("Sheet2").Range("A2").AutoFilter
        Else
            ThisWorkbook.Worksheets("Sheet2").Range("A2").AutoFilter Field:=6, Criteria1:=ThisWorkbook.Worksheets("Sheet1").Range("F2")
        End If
    End If
End Sub

在没有指定它们所在的工作簿和工作表的情况下，切勿使用Range、Cells、Rows 或Columns。否则 Excel 会“猜测”并可能会猜错。