编写动态VBA代码，如同仅选择列中的数据而不是空白字段一样

Question

我仍然是excel vba中的新手，我在修改代码方面遇到了一些困难，以便在动态方面只选择仅包含数据的字段而不是空白字段（在列中）。

Sub SaveFile() Sheets("2008").Range("V3:V6500").Copy Sheets("Sheet1").Range("A2:A6500").PasteSpecial xlPasteValues End Sub

假设如果第v3列中的数据小于6500行，则会有很多空格，如果数据超过6500行，则数据无法从工作表复制到工作表。

Answer 1

Sub SaveFile()
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "V").End(xlUp).Row
    End With

    Sheets("2008").Range("V3:V" & LastRow).Copy
    Sheets("Sheet1").Range("A2").PasteSpecial xlPasteValues 
End Sub

没有测试过，但我认为粘贴的大小是动态的

编辑..您可能需要更改

With activesheet 

要

With Sheets("2008")

如果您没有从2008工作表运行宏。