将数据从工作簿复制到另一个工作簿，每次为输入数据添加一个新行

Question

我是宏的相对新手，我学到的东西现在已经被遗忘了，我需要一些关于编写宏的最佳方法的建议。

任务是打开文件并将此文件中的一些数据复制到单独的工作簿，为每个打开的文件添加一个新行。

我正在尝试使用ActiveRow来推进行但得到1004错误

任何帮助都会受到赞赏，即使只是将数据复制到一行然后向下移动一行的基本代码，我希望可以从那里构建其余部分。

由于

Answer 1

尝试使用

TwoAfterLastRow = Workbooks("YourWorkbookName").Sheets("YourSheetName").Cells(rows.count, "RifColumnLetter").End(xlup).row +2

所以，例如：

TwoAfterLastRow = Workbooks("Cartel1").Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 2