使用單元格引用從特定行號復制到最后一行

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