excel VBA -将最后一行公式复制到新行(表)

slsn1g29  于 2023-04-13  发布在  其他
关注(0)|答案(2)|浏览(279)

查找将公式从最后一行复制到表中新行的代码,或者使用公式创建新行的代码:)
示例:最后一个行号C25= A25+B25,因此新行号26将采用公式并适合新行(将为C26 = A26+B26)
谢谢,希望能找到答案:)

7ajki6be

7ajki6be1#

首先可以得到 * 最后一行的行号 * 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)
bvn4nwqk

bvn4nwqk2#

在表中添加行

  • 调整工作表和表格名称。
  • 这三种代码都是一样的。
    密码
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

相关问题