Question

我正在研究如何复制数据范围，直到非空/空行。例如，我有关于A列的数据列表，直到G.我想在这些范围上复制数据，直到最后一行。我的代码可以找到如下的最后一行：

    Sheets("REFS").Range("E1").End(xlDown).Select
    Rows(Selection.Row).Select
    Selection.Copy

    Sheets("TP1").Range("A2").PasteSpecial xlPasteValues

Answer 1

在这里。我在这里测试了它似乎工作

Sub CopyAllRows()
   Dim j As Long

   Dim refs As Worksheet
   Set refs = Sheets("REFS")

   Dim tp1 As Worksheet
   Set tp1 = Sheets("TP1")

   Dim src As Variant

   j = refs.Range("E1").End(xlDown).Row
   src = refs.Range("A1:G" & j).Value
   tp1.Range("A2:G" & j + 1).Value = src

End Sub

Excel VBA - 将范围复制到非空行

1 个答案: