如何在Excel中维持两个表格间固定行间距并自动添加行

方法一：结构化表格 + VBA事件宏（推荐） #

这个方案能让表格自动扩展行，同时始终保持固定间距：

• 第一步：把两个数据区域转成结构化表格
  选中第一个数据区域，按Ctrl+T，勾选「我的表格有标题」，完成后表格会自动命名（比如Table1）；重复操作处理第二个区域，命名为Table2。
• 第二步：添加VBA事件代码
  按Alt+F11打开VBA编辑器，双击对应的工作表标签，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim table1 As ListObject, table2 As ListObject
    Dim gapRows As Integer
    gapRows = 3 ' 这里设置你需要的固定行间距
    
    Set table1 = Me.ListObjects("Table1")
    Set table2 = Me.ListObjects("Table2")
    
    ' 当Table1的行数变化时，调整Table2的位置
    If Not Intersect(Target, table1.DataBodyRange) Is Nothing Then
        ' 计算Table2的新起始行：Table1最后一行 + 间距 + 1
        Dim newStartRow As Integer
        newStartRow = table1.Range.Rows(table1.Range.Rows.Count).Row + gapRows + 1
        
        ' 如果Table2当前起始行不等于新计算的行，移动表格
        If table2.Range.Row <> newStartRow Then
            table2.Range.Cut Destination:=Me.Cells(newStartRow, table2.Range.Column)
        End If
    End If
End Sub

• 第三步：保存与启用
  将文件保存为.xlsm格式（启用宏的工作簿），每次在Table1输入新数据时，表格会自动扩展，Table2会自动下移，保持中间3行的固定间距。

方法二：动态数组+结构化引用（无宏方案） #

如果不想使用宏，可以用动态数组定义第一个表格的扩展区域，再通过结构化引用定位第二个表格的起始位置，但灵活性有限：

1. 用动态数组公式定义第一个表格的扩展范围（假设数据从A1开始）：=OFFSET(A1,0,0,COUNTA(A:A),COLUMNS(A:C))，将其命名为DynamicTable1。
2. 第二个表格的起始行设置为DynamicTable1最后一行+4（3行间距+1），但这种方式仅能实现数据引用的动态调整，无法自动移动整个表格的位置。

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