如何用VBA宏插入表尾

在Excel中，使用VBA宏插入表尾通常指的是在现有的表格末尾添加一行或者多行数据。以下是一个简单的VBA宏示例，用于在工作表中选中表格的最后一行下方插入一行：

Sub 插入表尾()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim lastRow As Long
    
    ' 设置工作表对象
    Set ws = ActiveSheet
    ' 设置表格对象，这里假设我们正在操作的第一个表格
    Set tbl = ws.ListObjects(1)
    
    ' 获取表格的最后一行
    lastRow = tbl.Range.Rows(tbl.Range.Rows.Count).Row
    
    ' 在表格的最后一行下方插入一行
    tbl.DataBodyRange.Rows.Add at:=lastRow + 1
    
    ' 如果需要插入多行，可以使用以下代码
    ' tbl.DataBodyRange.Rows.Add Count:=2, at:=lastRow + 1
    
    ' 可选：对新插入的行进行格式设置，例如设置字体颜色或背景色
    With ws.Rows(lastRow + 1)
        .Interior.Color = RGB(255, 255, 0) ' 例如将背景色设置为黄色
    End With
    
    ' 清除选区，避免选区影响后续操作
    ws.Selection.Clear
End Sub

使用这个宏前，请确保你已经打开了Excel，并且想要添加表尾的工作表是活动的。运行这个宏后，它会在当前活动表格的最后一行下方添加一行，并可选择性地对新添加的行进行格式设置。

为了使用上述宏，你可以按照以下步骤操作：

1. 打开Excel文件，进入你想要插入表尾的工作表。
2. 按下 `ALT + F11` 打开VBA编辑器。
3. 在“项目”窗格中找到对应的表格所在的工作表，右键点击"插入" -> "模块"。
4. 在新打开的模块窗口中复制并粘贴上述代码。
5. 按下 `F5` 运行宏或者关闭VBA编辑器后，在Excel中按下 `ALT + F8`，选择相应的宏名称运行。