复制并粘贴到下一个空行

Question

我有以下代码将BX2复制到BX400来自＆＃34; copySheet＆＃34;并将其粘贴到＆＃34; pasteSheet＆＃34;的A列中的第一个空行。

 copySheet.Range("BX2:BX400").Copy
 pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial  xlPasteValues

哪个代码粘贴到B列的第一个空行呢？

Answer 1

如果您只关心粘贴值，则首选直接值传输，因为它不涉及剪贴板。

with copySheet.Range("BX2:BX400")
    pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).resize(.rows.count, .columns.count) = .value
end with