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)

将行排在另一个下面，检查最后一个填充列

2 个答案: