Excel vba 选择所选范围的最后一行单元格

Question

我有这段代码，可以打开第一个工作簿，第二个工作簿，从第一个工作簿复制一个范围并将其粘贴到第二个工作簿中。我想让它在第二个工作簿中选择粘贴范围之后的单元格，但它选择粘贴的范围+它后面的行，而我只需要选择A列中的第一个空闲单元格。

Sub tes()
'**VARIABLES**
Dim folderPath As String
folderPath = "Y:plan_graphsfinalmich_alco_testfiles"
Dim fileTitle As String
fileTitle = "5.xlsx"
Dim dataWorkbook As Workbook
Set dataWorkbook = Application.Workbooks.Open(folderPath & fileTitle)
Dim copyRange As Range
Set copyRange = dataWorkbook.Worksheets("List").Range("A3:F3", Range("A3").End(xlDown))

Dim resultWorkbook As Workbook
Set resultWorkbook = Application.Workbooks.Open("Y:plan_graphsfinalmich_alco_testresult.xlsx")
copyRange.Copy
resultWorkbook.Worksheets("1").Range("A3").PasteSpecial Paste:=xlPasteFormulas
'GET THE LAST RANGE
Dim nextRange As Range
Set nextRange = resultWorkbook.Worksheets("1").Range("A3:F3", _
resultWorkbook.Worksheets("1").Range("A3").End(xlDown)).Offset(1, 0)
nextRange.Select
End Sub

我该怎么做？我想它仍然与xlDown有关，但无法弄清楚是什么。

Answer 1

Set nextRange = resultWorkbook.Worksheets("1").Range("A3:F3", _
resultWorkbook.Worksheets("1").Range("A3").End(xlDown)).Offset(1, 0)
Set nextRange = resultWorkbook.Worksheets("1").Cells(nextRange.Rows.Count + 3, 1)

为我解决了它(我有 3 个上行不包括在此选择中，因此请注意为您的情况使用确切的数字(。