Question

我有两列......＆＃34; AE＆＃34;和＆＃34; AG＆＃34;

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

我只想复制＆＃34; AG＆＃34;的全部内容。从＆＃34; AG5＆＃34;开始直到第一个空行并将其AS值粘贴到＆＃34; AE＆＃34;在完全相同的范围内（从＆＃34; AE5和＃34;开始）。我怎么能这样做？

Answer 1

请尝试以下。

With ActiveSheet
    LR = .Range("AG1048576").End(xlUp).Row

    .Range("AG5:AG" & LR).Copy
    .Range("AE5").PasteSpecial xlValues
End With

您可能需要将Activesheet更改为

sheets("NAME OF SHEET")

Answer 2

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

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

如何将列从特定行一直复制到具有值的最后一行？

2 个答案: