编写dynamic的VBA代码，只select列中的数据而不是空白字段

我仍然是新的Excel VBA中，我有一些困难，以修改代码，以使dynamic作为只select数据字段而不是空白字段（在列中）。

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

假设列v3中的数据less于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 

没有testing过，但我认为这个贴的大小是dynamic的

编辑..你可能需要改变

 With activesheet 

至

 With Sheets("2008") 

如果你不从2008张运行macros。