VBA复制最后一行范围并粘贴到另一个工作表

Posted 2023-02-24

【中文标题】VBA复制最后一行范围并粘贴到另一个工作表

【英文标题】：VBA copy last row range and paste to another sheet

【发布时间】：2016-10-17 11:18:21

【问题描述】：

我正在尝试查找列的最后一个单元格，例如然后复制与该单元格对应的整个行范围，例如复制 A5、B5、C5 等并将它们粘贴到特定行范围内的另一张纸上，例如A10、B10、C10 等。有帮助吗？非常感谢！

Sub Macro3() 
  Sheets("Stream").Range("D" & Rows.Count).End(xlUp).Copy
  Sheets("General").Range("F2").PasteSpecial Paste:=xlPasteValues,   Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

【参考方案1】：

Sub Macro3() 
        Dim LastRowStream As Long, LastRowGeneral As Long,
        LastRowStream = Sheets("Stream").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Rows(LastRowStream & ":" & LastRowStream).EntireRow.copy

        LastRowGeneral = Sheets("General").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Sheets("General").Range("A" & LastRowGeneral).PasteSpecial Paste:=xlPasteValues,   Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

【讨论】：

感谢您的回答，虽然它不完全是我所需要的。我需要粘贴到工作表 General 中的特定行，而不是最后一个空行。

另外这段代码根本不起作用。它在工作表常规中粘贴空行。谢谢