如何使用 VBA 将最后一个非空行值复制到另一个工作表？答案

【问题标题】：How do I copy the last nonempty row values to another sheet using VBA?如何使用 VBA 将最后一个非空行值复制到另一个工作表？
【发布时间】：2016-12-15 05:22:41
【问题描述】：

如何使用 VBA 将最后一个非空行值复制到另一个工作表？

【问题讨论】：

stackoverflow.com/a/11169920/1651993
@Jeeva 你有没有试过你得到的任何答案？任何反馈？谢谢？
@Jeeva 真的吗？您一直更喜欢Select 的答案？
老实说，我不在乎代码的设计方式，只要它能产生我想要的结果。

标签： excel vba macros

【解决方案1】：

使用这个子来做到这一点。

    Sub CopyPaste()
        Range("A1").End(xlDown).Select
          Rows(Selection.Row).Select
           Selection.Copy
           Sheets("Sheet2").Activate
          Range("A1").Select
        ActiveSheet.Paste
    End Sub

【讨论】：

根据需要修改子。这种类型的简单代码可在互联网上获得。做一些谷歌搜索，你会得到大量的例子。
真的吗？你建议使用Select、Selection和Activate和ActiveSheet？
@ShaiRado 我刚刚向他展示了一种最简单的方法。他似乎是 VBA 的初学者。更好的答案表示赞赏。

【解决方案2】：

作为一种好习惯，远离Select、Selection、Activate等...

请改用Sheets 和Ranges 等引用对象。还要花时间学习如何使用With 语句，这将有助于您创建更短更清晰的代码，并减少出现错误的机会。

Option Explicit

Sub CopyPaste()

Dim LastRow As Long

' copy last row from "Sheet1" >> modify to your sheet's name
With Sheets("Sheet1")
    ' find last row with data in column A , skip empty cells in the middle
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    ' copy entire row with data from "Sheet1" to "Sheet2" first cell ("A1")
    .Rows(LastRow).Copy Destination:=Sheets("Sheet2").Range("A1")

End With

End Sub

【讨论】：

【解决方案3】：

由于您对“值”感兴趣而不是无用地复制已使用范围之外的单元格，因此您可以执行以下操作：

Sub CopyPaste()
    With Sheets("SourceSheetName") '<--| reference "source" sheet (change "SourceSheetName" to your actual "source" sheet name)
        ' find last row with data in column A , skip empty cells in the middle
        With Range(.Cells(.Rows.count, "A").End(xlUp), _
                   .Cells(.Cells(.Rows.count, "A").End(xlUp).row, .Columns.count).End(xlToLeft)) '<--| reference its range from its column A last not empty cell to this latter cell row last not empty cell
            Worksheets("TargetSheetName").Range("A1").Resize(, .Columns.count).Value = .Value '<--| paste values to "target" sheet starting from its cell A1 (change "TargetSheetName" to your actual "target" sheet name)
        End With
    End With
End Sub

【讨论】：