Excel宏复制粘贴到第一个空行中的另一个xls文件中

我目前正在从事一个数字项目，我必须分析来自100多个FB excel文件的数据

我的分析过程的一部分是从总是相同的特定单元格中提取数据

正如你所理解的，为了避免浪费时间，我想做一个宏

我知道如何在文件中提取它，但我想调整我的宏，以便将其复制到另一个文件中

我的代码如下：

***范围A9:D9.选择

选择，复制

Windowstest2.xlsx.Activate

活动表。粘贴***

现在我想将数据粘贴到一个空行中，以便在每个FB提取中有数百行，一行在另一行下面

---

有人能给我正确的代码以避免浪费大量时间吗？

如果宏位于摘要工作簿中，并且FB文件处于打开状态且处于活动状态：

ActiveSheet.Range("A9:D9")Copy _
   ThisWorkbook.Sheets("Data").Cells(Rows.Count,1).End(xlup).offset(1,0)

---

下面是我用于选择下一个可用单元格的类似操作的一小部分代码

'Insert after Your Windows("test2.xlsx").Activate in place of your paste Code.....
'This gives you the variable for the last cell with a value
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
'This section selects the next cell below your last used cell and pastes the information.
ActiveSheet.Range("A" & lastRow + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Rest of Code....

---

我希望这就是您想要的。

谢谢您的回答！我是一个初学者，我想我在某个地方犯了一个错误，我使用了你的代码，犯了以下错误：RangeA9:D9.Select ActiveSheet.RangeA9:D9.Copy Windowstest2.xlsx.Activate CellsRows.Count，1.EndxlUp.Offset1，0.粘贴，但它无效。怎么了？。。。尝试ActiveSheet.RangeA9:D9.Copy工作簿测试2.xlsx.Sheets1.CellsRows.Count，1.EndxlUp.Offset1，0