如何使用excel vba自动复制最后一行中的数据并复制到同一工作表中表的最后一行？

Question

我正在尝试找到select和copy从最后一行（列F到I ）到{{1}的最后一行的数据的方法} table（列O到R ）。

现在这是我找到的代码，但它似乎可以粘贴在具有不同行的相同范围的列中。

例如，它会复制数据'summary'并将数据粘贴到F38:I38。但是，我想要的是从F40:I40复制数据，代码将找到F38:I38表的最后一行，并将数据'summary'粘贴到最后一个空行。

是否可以定位同一工作表的最后两行，但不同的单元格数？有什么方法可以让这个过程自动化吗？

F38:I38

Answer 1

假设您已将您的表命名为＆＃34;摘要＆＃34;，

   //Select "Summary" table
   ActiveSheet.Range("Summary").Select
   //Go to the last row of "Summary" table
   Selection.End(xlDown).Select
   //Go to Next row 
   Selection.Offset(1, 0).Select

Answer 2

汇总表范围的最后一行是：

Dim rngLastRow As Range
Set rngLastRow = Range("N4").CurrentRegion
Set rngLastRow = rngLastRow.Rows(rngLastRow.Rows.Count)