Excel VBA - 复制范围为非空行

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