首先可以得到 * 最后一行的行号 * Last_row，然后将公式复制到下一个单元格行。

Dim Last_row As Double
Last_row = ActiveSheet.Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row
ActiveSheet.Range("C" & Last_row).Copy ActiveSheet.Range("C" & Last_row + 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