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

【问题标题】：VBA - Copy last Row Formula to New row (Table)VBA - 将最后一行公式复制到新行（表）
【发布时间】：2020-12-27 22:06:11
【问题描述】：

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

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

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

【问题讨论】：

请注意，SO 并不意味着“您能否为我提供此代码”存储库。它旨在为那些在解决特定挑战时遇到问题的人提供有用的资源？ Perhpas 看看这个：stackoverflow.com/help/how-to-ask

标签： excel vba

【解决方案1】：

首先您可以获得最后一行编号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)

【讨论】：

似乎几乎是一个解决方案！但如果我想要几个细胞？不同的细胞像：O,N,H ?
嗨@dudi2s，如果您在同一行中有不同的单元格要复制，您可以像“C”示例中那样对“O”、“N”、“H”等其他列执行操作。例如，ActiveSheet.Range("N" & Last_row).Copy ActiveSheet.Range("N" & Last_row + 1)
我试过了，但是 1. 如果我用公式取一些单元格，它会使“底部标题”不是一行。 2.没有一起做几个细胞.. ..

【解决方案2】：

在表格中添加一行

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

守则

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

【讨论】：