使用VBA excel從一張工作表中復制表格並將其粘貼到另一張工作表的下一個空行中

Question

我想將表格從一個工作表復制並粘貼到下一個空行中的另一個工作表。 問題是我的代碼不會搜索下一個空行。 它總是給我第一行作為空行。

這是我的代碼：

Sub AddToPriceSummary()

Dim lastrow As Long
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Sheet2")
Set pasteSheet = Worksheets("Sheet3")
lastrow = Range("A100000").End(xlUp).Row

copySheet.Range("A2:AS10").Copy
pasteSheet.Cells(lastrow + 1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

所以在這里lastrow總是1

有什么幫助嗎？

Answer 1

您的lastrow不符合pasteSheet 。

嘗試：

lastrow = pasteSheet.Range("A100000").End(xlUp).Row

使用Find函數Find lastrow更安全方法：

lastrow = pasteSheet.Cells.Find(What:="*", After:=pasteSheet.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row