將數據從活動單元格復制到另一個工作簿

Question

我在這里完全是初學者。 我在網上看到了這個例子，將數據從一個工作簿的固定范圍復制到另一個工作簿。

有人可以指導我如何從 A2 單元格復制到最后一個帶有數據的活動單元格嗎？ .

在這個給定的示例中，我想將那些以藍色突出顯示的單元格復制到另一個工作簿。 數據每次都在變化，因此固定范圍對我不起作用。 我嘗試使用“.UsedRange”，但它也會復制頁腳，這是我不需要的。

Sub Copy_Method()
  Workbooks("New-Data.xlsx").Worksheets("Export").Range("A2:D9").Copy _
    Workbooks("Reports.xlsm").Worksheets("Data").Range("A2")

 End Sub

參考： https://www.excelcampus.com/vba/copy-paste-another-workbook/

Answer 1

根據發布的屏幕截圖：

• “頁腳”似乎放置在 A 列中
• 數據填充從 A 到 E 的所有列

因此，您可以使用 B 列從以下位置獲取最后使用的單元格行：

Sub Copy_Method()
   With Workbooks("New-Data.xlsx").Worksheets("Export")
       .Range("A2:E" & .Cells(.Rows.Count, 2).End(xlUp).Row).Copy _
       Workbooks("Reports.xlsm").Worksheets("Data").Range("A2")
   End With
 End Sub

Answer 2

鑒於您的特定設置，您可以使用CurrentRegion屬性。

Sub Copy_Method()

Dim r As Range

Set r = Workbooks("New-Data.xlsx").Worksheets("Export").Range("A1").CurrentRegion
Set r = r.Offset(1).Resize(r.Rows.Count - 1) 'exclude the header
r.Copy Workbooks("Reports.xlsm").Worksheets("Data").Range("A2")

End Sub