麻烦粘贴动态范围VBA

Question

我正在尝试在一张纸中复制并粘贴动态范围。我可以复制我的数据，但它不会粘贴，给我＆＃34;运行时错误1004：方法＆＃39;范围＆＃39;对象＆＃39; _Global＆＃39;失败＆＃34;

代码在这里：

Range("A19:B" & Range("A19").End(xlDown).Row).Copy
Range("O19:P").PasteSpecial (xlPasteValues)

有人可以帮我解决这个问题吗？

Answer 1

第二行应该是：

Range("O19").PasteSpecial xlPasteValues

但是，当只想要值时，更快的方法是跳过剪贴板并直接分配值：

Range("O19:P" & Range("A19").End(xlDown).Row).Value = Range("A19:B" & Range("A19").End(xlDown).Row).Value

Answer 2

Range("A19:B" & Range("A19").End(xlDown).Row).Copy
Range("O19").PasteSpecial (xlPasteValues)

您所要做的就是使用O19而不是O19：P

Excel会自动从引用的单元格中粘贴区域中的值。