使用单元格引用从特定行号复制到最后一行

Question

我有下面的代码，我需要让它按如下方式工作。

1. 从第 10 行复制到带有值的最后一行。
2. 最后一行将参考从单元格 N10 开始的 N 列。

SO团队有什么建议吗？

    wbSource.Sheets(SITE_TEMPLATE).Rows(10).EntireRow.Copy wbMaster.Sheets(SITE_TEMPLATE).Range("A" & insertRow2)
    insertRow2 = insertRow2 + 1

Answer 1

尝试这个：

Sub test()

    Dim LastRow As Long

    With Workbooks("wbSource").Worksheets("SITE_TEMPLATE")

        LastRow = .Cells(.Rows.Count, "N").End(xlUp).Row

        .Rows(10 & ":" & LastRow).EntireRow.Copy wbMaster.Sheets(SITE_TEMPLATE).Range("A" & insertRow2)

        insertRow2 = insertRow2 + 1

    End With

End Sub