如何从特定的行一直向下复制到最后一行的值？

我有两列..“AE”和“AG”

标题在工作表的第4行，所有数据从第5行开始。

我只想复制从“AG5”开始的整个“AG”列到第一个空白行，并将其AS值粘贴到完全相同范围（从“AE5”开始）的“AE”中。 我怎么能这样做呢？

Answer 1

价值转移比复制和粘贴更快。

dim lr as long with worksheets("sheet1") lr = .cells(.rows.count, "AG").end(xlup).row .range(.cells(5, "AE"), .cells(lr, "AE")) = .range(.cells(5, "AG"), .cells(lr, "AG")).value end with 

Answer 2

尝试下面。

 With ActiveSheet LR = .Range("AG1048576").End(xlUp).Row .Range("AG5:AG" & LR).Copy .Range("AE5").PasteSpecial xlValues End With 

您可能需要将Activesheet更改为

 sheets("NAME OF SHEET")