Excel实现同工作表动态分隔表格：新增条目时空随行下移

首选：用Excel自带的「正式表格」功能 #

• 把两个需要分隔的数据区域，分别转换成正式表格：选中数据，按Ctrl+T，勾选“我的表格有标题”即可
• 两个表格之间留1行空白，注意别把空白行包含进任何一个表格的范围里
• 之后在第一个表格底部新增条目时，表格会自动向下扩展，中间的空白行和第二个表格会被自动挤下去，完美维持分隔状态

这是最省心的非VBA方案，完全靠Excel原生功能实现，亲测有效

备选：动态数组+条件格式（适合不想用正式表格的场景） #

要是不想转成正式表格，可以试试这个思路：

• 假设第一个数据在A1:C列，第二个从A列某行开始（比如A10），中间留A9作为空白行
• 用动态数组公式定义第一个数据的范围，比如=OFFSET(A1,0,0,COUNTA(A:A)-COUNTA(A10:A1048576),3)（公式里的3是列数，按需调整）
• 给空白行设置条件格式，确保它不会被数据填充，但这个方法需要手动调整公式，不如正式表格方便

实在不行就用轻量VBA #

如果文件卡顿是因为之前的宏太臃肿，可以写个极简版的，只在当前工作表触发，几乎不占性能：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tbl1 As ListObject, tbl2 As ListObject
    Set tbl1 = Me.ListObjects("Table1") ' 替换成你第一个表格的名称
    Set tbl2 = Me.ListObjects("Table2") ' 替换成你第二个表格的名称
    
    ' 检查空白行是否还在，不在就插入一行
    If tbl1.Range.Row + tbl1.Range.Rows.Count <> tbl2.Range.Row - 1 Then
        Me.Rows(tbl2.Range.Row).Insert Shift:=xlDown
    End If
End Sub

这个宏只有在表格扩展导致空白行消失时才会触发，平时完全不影响文件性能

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