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

我目前正在进行一个数字化项目，我必须分析超过100个FB excel文件的数据。

我的分析过程的一部分在于从特定单元格中提取数据，这些数据总是相同的。

正如你所理解的，我想做一个macros观的，以避免无谓的浪费时间。

我知道如何在文件中提取它，但我想适应我的macros，以便将其复制到另一个文件中。

我的代码是以下内容：

***范围。（ “A9：D9”）select

Selection.Copy

窗口（ “test2.xlsx”）。激活

ActiveSheet.Paste ***

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

有人会给我正确的代码，以避免巨大的浪费时间？

Answer 1

下面是我用于select下一个可用单元的类似操作的代码片段。

'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.... 

我希望这是你正在寻找的。

Answer 2

如果macros在“摘要”工作簿中，并且FB文件已打开且处于活动状态：

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