写一个合并表格的VBA脚本

下面是一个简单的合并表格的VBA脚本，你可以根据你的具体需求进行修改和优化。

Sub MergeTables()
    Dim tbl1 As ListObject
    Dim tbl2 As ListObject
    Dim newTbl As ListObject
    Dim lastRow As Integer
    
    ' 设置表格对象
    Set tbl1 = Sheets("Sheet1").ListObjects("Table1")
    Set tbl2 = Sheets("Sheet2").ListObjects("Table2")
    
    ' 创建新表格
    Set newTbl = Sheets("Sheet3").ListObjects.Add(xlSrcRange, Range("A1"))
    newTbl.Name = "MergedTable"
    
    ' 复制表头
    tbl1.HeaderRowRange.Copy newTbl.Range.Rows(1)
    
    ' 复制表格1数据
    tbl1.DataBodyRange.Copy newTbl.Range.Rows(2)
    lastRow = tbl1.DataBodyRange.Rows.Count + 1
    
    ' 复制表格2数据
    tbl2.DataBodyRange.Copy newTbl.Range.Rows(lastRow)
    
    ' 调整列宽
    newTbl.Range.Columns.AutoFit
End Sub

这个脚本的功能是将Sheet1中的Table1和Sheet2中的Table2合并到Sheet3中的一个新表格中。它假定表格中没有空行。你需要将表格的名称和工作表的名称替换为你的实际名称。