如何让普通表格自动匹配数据透视表行数并消除空行？

方法1：动态数组公式（Excel 365/2021+） #

这是最轻量化的无宏方案：

• 假设透视表数据区域为透视表工作表!A1:C1000（预留足够大的范围覆盖可能的扩展），目标普通表格起始于目标工作表!E1
• 表头同步：直接输入=透视表工作表!A1:C1，回车后自动填充表头
• 数据区域同步：在目标工作表!E2输入公式：

  =FILTER(透视表工作表!A2:C1000, 透视表工作表!A2:A1000<>"")
  

  公式会自动扩展到所有非空数据行，透视表刷新后，目标区域会自动更新，多余空行直接消失。

方法2：VBA自动触发同步（兼容全版本Excel） #

适合需要透视表刷新时自动执行的场景：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub SyncPivotToRegularTable()
    Dim pivotTable As PivotTable
    Dim sourceData As Range
    Dim targetStart As Range
    Dim targetLastRow As Long
    
    ' 替换为你的透视表和工作表名称
    Set pivotTable = ThisWorkbook.Worksheets("透视表Sheet").PivotTables("PivotTable1")
    ' 获取透视表完整数据区域（含表头）
    Set sourceData = pivotTable.TableRange1
    ' 替换为普通表格的起始单元格
    Set targetStart = ThisWorkbook.Worksheets("普通表格Sheet").Range("E1")
    
    ' 清除目标区域旧数据（若要保留表头可删除此段）
    targetLastRow = targetStart.Worksheet.Cells(targetStart.Worksheet.Rows.Count, targetStart.Column).End(xlUp).Row
    If targetLastRow >= targetStart.Row Then
        targetStart.Worksheet.Range(targetStart.Offset(1, 0), targetStart.Worksheet.Cells(targetLastRow, targetStart.Column + sourceData.Columns.Count - 1)).ClearContents
    End If
    
    ' 复制透视表值和格式到目标区域
    sourceData.Copy
    targetStart.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
    
    ' 自动适配列宽（可选）
    targetStart.Resize(sourceData.Rows.Count, sourceData.Columns.Count).Columns.AutoFit
End Sub

2. 切换到透视表所在工作表的代码窗口，粘贴触发代码：

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    SyncPivotToRegularTable
End Sub

此后每次透视表刷新，普通表格会自动同步数据，仅保留有效行，无空行残留。

方法3：Power Query导入（灵活可扩展） #

适合需要后续数据处理的场景：

1. 选中透视表任意单元格，点击「数据」→「从表格/范围」，勾选「我的表格有标题」进入Power Query编辑器
2. 无需额外编辑，直接点击「关闭并上载」，选择上载到指定位置
3. 透视表更新后，右键点击Power Query生成的表格，选择「刷新」即可同步最新数据，自动过滤空行。

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