在最后一个填充的列上复制另一行

Question

我有一个工作表列表。我希望将列表的内容转移到我的工作表评估中。但是我的评估表已经由先前的评估组成。我想要旧的排正好的新行。有人可以帮助我如何实现这一目标吗？

我有以下代码，这是复制糊功能。

Sub lastweekctt()
Worksheets("List").Range("A4:W1000").Copy _
Destination:=Worksheets("Evaluation").Range("A5")
End Sub

我在两个床单中都有第4行的标题。

Answer 1

您需要获取最后一个空白行：

Sub lastweekctt()
    Dim LastRow As Long
    'get last row
    LastRow = Worksheets("Evaluation").Cells(Rows.Count,1).End(xlUp).Row
    Worksheets("List").Range("A4:W1000").Copy _
    Destination:=Worksheets("Evaluation").Range("A" & LastRow + 1)
End Sub

希望这个帮助。

Answer 2

您需要先找到最后一行

lLastRow = Worksheets("Evaluation").Cells(Worksheets("Evaluation").Rows.Count, 1).End(xlUp).Row

然后您的目的地范围将看起来像这样

.Range("A" & lLastRow + 1)