Excel/PowerQuery：如何基于Table A可见行同步过滤跨工作表的Table B

我来给你梳理两个靠谱的方案，不管你想用无代码的公式法，还是需要删除非可见行的VBA法，都能搞定这个跨表同步的需求：

方案一：用动态公式自动同步（无需VBA） #

适合不想碰代码的场景，Table B会实时跟随Table A的过滤结果更新：

1. 给Table A加辅助列识别可见行
   在Table A的最后新增一列，命名为IsVisible，输入公式：

   =SUBTOTAL(103,[@[任意一列]])
   

   这里103是忽略隐藏行的COUNTA功能，Table A的可见行会返回1，隐藏行返回0，帮我们标记哪些行是过滤后显示的。

2. 在Table B中用FILTER函数提取可见行数据
   假设Table B需要显示Table A的「姓名」「部门」「业绩」三列，直接在Table B的第一个数据单元格（比如A2）输入：

   =FILTER(CHOOSECOLS(TableA,2,3,5),TableA[IsVisible]=1)
   

   • CHOOSECOLS(TableA,2,3,5)：指定要从Table A提取的列（数字对应列的位置，比如2是姓名列）
   • TableA[IsVisible]=1：只筛选标记为可见的行
     输入后按回车，Table B会自动生成Table A可见行的对应内容，而且每次Table A过滤时，Table B会实时更新。

   注：这个方法需要Excel 365/2021及以上版本支持动态数组；如果是旧版Excel，可以用INDEX+SMALL+IF的组合公式实现类似效果。

方案二：用VBA实现同步（支持删除非可见行） #

如果需要直接删除Table B中的非可见行，或者用旧版Excel，VBA是更稳妥的选择：

1. 编写同步宏代码
   按下Alt+F11打开VBA编辑器，在左侧找到你的工作簿，右键插入「模块」，粘贴以下代码：

   Sub SyncTableBWithTableA()
       Dim wsA As Worksheet, wsB As Worksheet
       Dim tblA As ListObject, tblB As ListObject
       Dim visibleRows As Range
       Dim matchCol As String ' 必须是Table A和B都有的唯一标识列，比如"员工ID"
       
       ' 替换成你的工作表和表格名称
       Set wsA = ThisWorkbook.Worksheets("TableA所在工作表")
       Set wsB = ThisWorkbook.Worksheets("TableB所在工作表")
       Set tblA = wsA.ListObjects("TableA")
       Set tblB = wsB.ListObjects("TableB")
       matchCol = "员工ID" ' 替换成你实际的唯一标识列名
       
       ' 先清空Table B的现有数据（保留表头）
       If tblB.ListRows.Count > 0 Then
           tblB.DataBodyRange.Delete
       End If
       
       ' 获取Table A的可见行
       On Error Resume Next
       Set visibleRows = tblA.DataBodyRange.SpecialCells(xlCellTypeVisible)
       On Error GoTo 0
       
       ' 把可见行数据同步到Table B
       If Not visibleRows Is Nothing Then
           Dim rowData As Variant, cell As Range
           For Each cell In visibleRows.Columns(tblA.ListColumns(matchCol).Index).Cells
               ' 提取当前可见行需要的列数据（替换成你需要的列位置）
               rowData = Application.Index(tblA.DataBodyRange, cell.Row - tblA.HeaderRowRange.Row, Array(2, 3, 5))
               ' 添加到Table B
               With tblB.ListRows.Add
                   .Range.Resize(1, UBound(rowData, 2)).Value = rowData
               End With
           Next cell
       End If
   End Sub
   

2. 设置自动触发（可选）
   如果想让Table B在Table A过滤时自动更新，找到Table A所在的工作表模块（左侧双击工作表名），粘贴以下代码：

   Private Sub Worksheet_Calculate()
       SyncTableBWithTableA
   End Sub
   

   这样每次你调整Table A的过滤条件，Table B会自动清空旧数据，只保留Table A可见行的对应内容，相当于间接删除了非可见行。

   你也可以手动触发：在Excel界面添加一个按钮，把这个宏绑定到按钮上，点击按钮就同步一次。

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