VBA Excel 表格合并

可以使用 VBA 代码来合并 Excel 表格。以下是一个简单的示例代码：

Sub MergeTables()
    Dim tbl As ListObject
    Dim rng As Range
    
    Set tbl = ActiveSheet.ListObjects("Table1") '将 "Table1" 替换为你要合并的表格名称
    Set rng = tbl.Range.Offset(tbl.HeaderRowRange.Count)
    
    tbl.ListRows.Add
    rng.Copy tbl.DataBodyRange(tbl.DataBodyRange.Rows.Count, 1)
    
    tbl.Range.Rows(2).Delete
End Sub

这段代码将会把名为 "Table1" 的表格中的所有数据合并到一起，并删除第一行表头。你可以根据需要修改代码来适应你的具体情况。