复制并粘贴到下一个空行

我有下面的代码，从“copySheet”将BX2复制到BX400，并将其粘贴到“pasteSheet”的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