确定总行数，然后将值复制并粘贴到行数

Question

我想创建一个宏，它基本上可以识别 sheet 上的总行数。然后在另一个 sheet 上取一个范围内的值，复制该范围并粘贴它，直到它达到第一个 sheet 上标识的总行数。我不想获取一组值并将其复制到另一个 sheet 的最后一行。

这就是我目前所拥有的。我在尝试找到实现目标的下一步时遇到了麻烦。我认为我很接近，但我对变量的了解非常有限。

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

确定总行数，然后将值复制并粘贴到行数

Identifying Total Number of Rows, then Copying and Pasting a values to the number of rows

excel

vba

rowcount

pasting