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

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

Sheets("REFS").Range("E1").End(xlDown).Select Rows(Selection.Row).Select Selection.Copy Sheets("TP1").Range("A2").PasteSpecial xlPasteValues 

Answer 1

这里是。 我在这里testing，似乎工作

 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