“ Microsoft Excel无法粘贴数据”错误使我的宏无法工作

Question

当我第一次尝试将大量数据从Word或PDF粘贴到Excel时，出现错误，提示“ Microsoft Excel无法粘贴数据”。但是，当我单击“确定”然后尝试再次粘贴时，将粘贴数据。

听起来好像没什么大不了的，因为我只需要按ctrl + v两次。但是当我创建一个宏时，它执行的操作完全相同。尝试粘贴数据，忽略该错误，然后再次粘贴将其无效：

Sub Copy()

On Error Resume Next
Sheet1.Range("A10").PasteSpecial Paste:=xlPasteValues

Sheet1.Range("A10").PasteSpecial Paste:=xlPasteValues

End Sub

因此，我必须运行两次宏才能成功粘贴数据（在这种情况下，只有两行的第一行就足以使它以相同的方式工作）。您知道只运行一次该宏即可将数据粘贴到其中吗？