VBA xlPasteValues

VBA PasteSpecial xlPasteValues ERROR 1004

单纯PasteSpecial可以正确复制所有信息（公式，数值），但是一旦加上xlPasteValues，就会报错：运行时错误 1004: The RangeObject's PasteSpecial method could not be executed

```vb.net
Sub DateFilter()
  Dim ReCopy, RePaste As Worksheet
  Set ReCopy = ThisWorkbook.Sheets("result")
  Set RePaste = ThisWorkbook.Sheets("Navigation")
  ReCopy.Range("B5:CQ130").Copy
  RePaste.Cells(5, 2).PasteSpecial xlPasteValues
  Sheets("Navigation").Activate
End Sub

1004: The RangeObject's PasteSpecial method could not be executed

是不是黏贴的时候，有别的程序阻止了这个行为？

请各位赐教

望采纳！！！点击回答右侧采纳即可！！！可能是由于多种原因导致的。其中一个常见的原因是代码中引用了无效或不存在的工作表或区域。在这种情况下，检查代码中是否正确引用了工作表"result"和"Navigation"。另外，确保在调用PasteSpecial方法时，目标区域（RePaste.Cells(5, 2)）是可编辑的。

另一个可能的原因是Excel正在运行其他操作，例如其他代码正在执行或其他用户正在更改工作表，导致PasteSpecial方法无法执行。在这种情况下，可以尝试在代码中添加Application.Wait 或 Application.ScreenUpdating = False来等待其他操作完成