';Microsoft Excel无法粘贴数据';错误使宏停止工作

';Microsoft Excel无法粘贴数据';错误使宏停止工作,excel,vba,Excel,Vba,当我第一次尝试将Word或PDF中的大量数据粘贴到Excel时,会出现一个错误,提示“Microsoft Excel无法粘贴数据”。但是,当我单击OK并再次尝试粘贴时,数据被粘贴 这听起来可能没什么大不了的,因为我只需按ctrl+v两次。但是,当我制作了一个执行完全相同操作的宏时,即尝试粘贴数据,忽略错误并再次粘贴时,它不起作用: Sub Copy() On Error Resume Next Sheet1.Range("A10").PasteSpecial Paste:=xlPasteVal

当我第一次尝试将Word或PDF中的大量数据粘贴到Excel时,会出现一个错误,提示“Microsoft Excel无法粘贴数据”。但是,当我单击OK并再次尝试粘贴时,数据被粘贴

这听起来可能没什么大不了的,因为我只需按ctrl+v两次。但是,当我制作了一个执行完全相同操作的宏时,即尝试粘贴数据,忽略错误并再次粘贴时,它不起作用:

Sub Copy()

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

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

End Sub

因此,我必须运行宏两次,它才能成功粘贴数据(在这种情况下,只有第一行的两行就足以使其以相同的方式工作)。您知道我可以通过只运行一次宏来粘贴数据吗?

如果您尝试
。一次性将内容粘贴到多个单元格,仅指定一个单元格的范围并不总是有效。它要么将所有内容粘贴到该单元格中,要么抛出一个类似于此处的错误。请尝试指定一个足够大的范围以获取数据,或使用
。在使用
之前,请在单元格上选择
。粘贴
以避免此问题(非首选方法)。删除
错误,然后继续下一步操作
,并查看您遇到的错误。此行隐藏所有错误消息,但错误仍会发生。你就是看不见他们。所以,如果你没有看到你的错误,你就无法修复它们,如果你不修复它们,你的代码就无法工作。在没有错误处理的情况下,切勿在错误恢复下使用
@Plutian我已更改代码,以便将其粘贴到所需的精确单元格范围:
Sheet1.range(“A10:F186”).PasteSpecial Paste:=xlPasteValues
,但它仍然不起作用。@PeterSmith如果没有“错误时继续下一步”
,它将显示完全相同的错误(“Microsoft Excel无法复制数据”)。当我按debug并单步执行导致错误的那行代码时,一切正常,数据被粘贴