从一个工作表复制一个表，并使用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

使用lastrow函数找到Find的更安全的方法：

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