在表中添加行并保留公式

Question

我想在几张表中添加最后一行但是保留公式（复制公式 - 例如在前面的行中 - 并且在空白行上过去）。 第一步（添加最后一行）不起作用。 有人可以帮帮我吗？

代码是：

`Sheet18.Activate
With Sheet18
last_row_with_data = .Range("A65536").End(xlUp).Row
last_row_with_data = last_row_with_data - 1
ActiveSheet.ListObjects("Pessoal").ListRows.Add (last_row_with_data)
End With`

Answer 1

试试这个

With Sheet18.ListObjects("Pessoal").ListRows
    .Add(.Count)
End With`