excel - 识别总行数，然后将值复制并粘贴到行数

Question

我正在寻找一个宏，它基本上可以识别工作表上的总行数。然后在另一张纸上获取某个范围内的值，复制该范围并将其粘贴，直到达到第一张纸上标识的总行数。我不希望获取一组值并将其复制到另一张表的最后一行。

这就是我到目前为止所拥有的。我很难找到实现目标的下一步。我想我很接近，但我对变量的了解非常有限。

Public Sub Delegation()

    Dim lastrow As String
    lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    Worksheets("delegating").Range("A1:A13").Copy _

End Sub

Answer 1

你可以尝试这样的事情：

Public Sub Delegation()

    Dim lastrow As Long
    lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1

    With Worksheets("delegating")
        .Range("A1:A13").AutoFill Destination:=.Range("A1:A" & lastrow), _
                                  Type:=xlFillCopy
    End With 
End Sub