vba - Excel - 选择列末尾+附加行

Question

我正在尝试制作一个宏来选择工作表中的某些数据。我有一张包含数据的工作表，使用以下方法将其拉入其中:

Windows("Item checkout workbook_New.xlsx").Activate
Range("A2:G300").Select
Selection.Copy
Windows("VLookup test.xlsx").Activate
Sheets("Sheet1").Select
Range("A2:G2").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Sheets("Sheet1").Range("A2:G300").Copy Sheets("Sheet2").Range("A2")
Sheets("Sheet2").Select
Application.CutCopyMode = False

输入此数据后，我有两列 H2:H300和I2:I300其中已有 Vlookup 公式，可从 A2:G300 获取信息.

然后我需要做的就是仅选择相关数据并将其复制回 Windows("Item checkout workbook_New.xlsx") 。根据相关数据，我只需要选择 A2:G300 中包含数据的单元格范围以及H2:I300匹配的单元格。视为全部H2:I300单元格有数据，我不知道该怎么做。我尝试创建一个宏，使用 END 选择所有 A 列，然后选择与其相关的行，但这就是我得到的，如您所见，它不起作用:

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:I78").Select
Selection.Copy

我不太擅长 VBA，因此很难即时想出一些东西，但我觉得应该有一种方法可以让它发挥作用。任何建议都会很棒!

Answer 1

Range("A2").Select
Range(Selection, Selection.End(xlDown)).EntireRow.Select
Selection.Copy
Windows("Item checkout workbook_New.xlsx").Activate
Sheets("Sheet1").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False

成功了!