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

【问题标题】：Identifying Total Number of Rows, then Copying and Pasting a values to the number of rows识别总行数，然后将值复制并粘贴到行数
【发布时间】：2019-07-22 22:47:09
【问题描述】：

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

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

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

【问题讨论】：

让我们从Dim lastrow As Long 开始，因为您正在尝试获取行数（不是String）。然后复制，你需要使用它，比如Worksheets("delegating").Range("A1:A" & lastrow).Copy

标签： excel vba rowcount pasting

【解决方案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

【讨论】：