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