excel - VBA - 将最后一行公式复制到新行（表）

Question

寻找将公式从最后一行复制到表中的新行的代码或一些使用公式生成新行的代码:)

示例：最后一行编号 C25= A25+B25 因此新行编号 26 将采用公式并适合新行（将是 C26 = A26+B26）

谢谢，希望能找到答案:)

标签： excelvba

Answer 1

在表格中添加一行

• 调整工作表和表格名称。
• 所有三个代码都做同样的事情。

编码

Option Explicit

Sub AddRowInTableNoVariables()
    ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1").ListRows.Add
End Sub

Sub AddRowInTableTableVariable()
    Dim tbl As ListObject
    Set tbl = ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1")
    tbl.ListRows.Add
End Sub

Sub AddRowInTableAllVariables()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet: Set ws = wb.Worksheets("Sheet1")
    Dim tbl As ListObject: Set tbl = ws.ListObjects("Table1")
    tbl.ListRows.Add
End Sub