Excel VBA-将范围复制到非空行 [英] Excel VBA - Copy Ranges to Non Empty Rows

问题描述

我正在寻找如何复制数据范围直到非空白/空行.例如，我在A列之前有数据列表，直到G.我想复制这些范围内的数据，直到最后一行.我有可以找到最后一行的代码，如下所示:

Im looking on how to copy ranges of data until non blank/empty rows. For example i have list of data on column A until G. I want to copy data on those ranges until the last rows. I have code that can find the last row as below:

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

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

推荐答案

在这里.我在这里测试过，似乎可以正常工作

Here it is. I tested here and it seems to work

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-将范围复制到非空行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！