尝试了很多事情,但还没有找到简单的解决方案。
我有一张工作表,工作表 A,其中有一个名为“城市”的列。我希望能够沿着“城市”列过滤工作表 A。但是,我希望能够根据工作表 B 中的单元格值来过滤工作表 A。本质上,我希望能够复制工作表 A 城市列中的筛选按钮并将其放入工作表 B 中,并且能够切换工作表 B 中的过滤器。我不想从工作表 A 中提取数据;我想要过滤工作表 A。
表A
City
Jamestown
Cape-Town
Hong Kong
Hong Kong
B 片
Hong Kong
结果:
表A
City
Hong Kong
Hong Kong
将此代码放入 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
[
[
[
[
У меня был такой же вопрос。 При помощи макросов решить не удалось。 Очень близкое решение получилось при помощи использования срезов, в самом эксель. 在此输入链接描述