麻烦粘贴dynamic范围的VBA

我正在试图在一张纸上复制和粘贴一个dynamic范围。 我能够复制我的数据，但它不会粘贴，给我“运行时错误1004：方法'范围'object'_Global'失败”

代码在这里：

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会自动在引用的单元格的区域中粘贴值。