如何基于Sheet B单元格值筛选Sheet A的City列？

要实现仅在Sheet B中修改单元格值就能切换Sheet A的City列筛选状态，我们可以使用Excel的VBA宏来自动完成这个操作。以下是具体步骤：

步骤1：打开Sheet B的代码编辑器 #

• 右键点击Sheet B的工作表标签，选择「查看代码」，这会打开VBA编辑器的Sheet B代码窗口。

步骤2：粘贴VBA代码 #

将以下代码粘贴到代码窗口中：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义Sheet B中触发筛选的单元格（这里假设是A1，可根据需要修改）
    Dim 触发单元格 As Range
    Set 触发单元格 = Me.Range("A1")
    
    ' 检查是否修改了触发单元格
    If Not Intersect(Target, 触发单元格) Is Nothing Then
        Dim SheetA As Worksheet
        Set SheetA = ThisWorkbook.Worksheets("Sheet A")
        
        ' 清除Sheet A中City列的现有筛选（假设City列是A列，需根据实际列调整）
        SheetA.Range("A:A").AutoFilter Field:=1
        
        ' 如果触发单元格有值，则应用筛选
        If 触发单元格.Value <> "" Then
            SheetA.Range("A:A").AutoFilter Field:=1, Criteria1:=触发单元格.Value
        End If
    End If
End Sub

步骤3：根据你的表格调整参数 #

• 触发单元格：如果不想用Sheet B的A1作为输入，修改Me.Range("A1")为你需要的单元格（比如Me.Range("B2")）。
• City列位置：如果Sheet A的City列不是A列，比如是C列，那么把SheetA.Range("A:A")改成SheetA.Range("C:C")，同时把Field:=1改成Field:=3（因为C是第3列）。

使用方法 #

1. 保存工作簿为「启用宏的工作簿（.xlsm）」格式，否则宏无法保存。
2. 打开工作簿时，确保启用宏（Excel会提示，选择「启用内容」）。
3. 在Sheet B的触发单元格中输入城市名称（比如「Hong Kong」），Sheet A的City列会自动筛选出对应内容；清空触发单元格，Sheet A的筛选会自动取消，显示所有数据。

示例效果 #

• 当Sheet B的A1单元格输入「Hong Kong」时，Sheet A的City列只会显示「Hong Kong」的行；
• 清空Sheet B的A1，Sheet A恢复显示所有City数据。

内容的提问来源于stack exchange，提问作者ic_93