Excel：从另一个工作表中的值过滤工作表

Question

尝试过很多东西，但没有找到解决方案。

我有一张工作表，工作表A，其中包括名为＆＃34; City＆＃34;的专栏。我希望能够在此城市列中过滤工作表A.但是，我希望能够根据Sheet B中单元格的值过滤Sheet A.本质上，我希望能够复制Sheet A City列中的过滤器按钮并将其放入Sheet B中并且能够切换工作表B中的过滤器。我不想从工作表A中提取数据;我希望过滤工作表A.

工作表A

City
Jamestown
Cape-Town
Hong Kong
Hong Kong

工作表B

Hong Kong

结果：

工作表A

City
Hong Kong
Hong Kong

Answer 1

将此代码放在VBA中的ThisWorkBook选项卡中：

Private Sub workbook_Sheetchange(ByVal ws As Object, ByVal target As Range)
    If target.Address = "$A$2" And ws.Name = "Sheet7" Then
        Sheets("Sheet6").Range("A2:A6").AutoFilter field:=1, Criteria1:=Sheets("Sheet7").Range("A2"), VisibleDropDown:=True
    End If

    If Sheets("Sheet7").Range("A2") = "" Then
        Sheets("Sheet6").ShowAllData
    End If
End Sub

[

[

[

[