如何修复Excel宏‘Microsoft Excel cannot paste the data’错误实现单次运行粘贴？

这种情况我太熟了——手动按两次Ctrl+V就能搞定的粘贴，放到宏里连续写两次PasteSpecial却不管用，必须跑两次宏才行。核心问题其实是宏的执行速度太快，而且On Error Resume Next虽然跳过了错误，但没给系统足够的时间处理剪贴板内容，也没重置错误状态，导致第二次粘贴其实还是在错误状态下执行的。

下面给你两个亲测有效的修改方案：

方案一：带延迟的重试循环 #

这个方案模拟手动操作的间隔，第一次粘贴失败后清除错误，等1秒再重试，确保系统有时间准备好剪贴板数据：

Sub PasteSuccessfully()
    Dim isPasted As Boolean
    Dim attemptCount As Integer
    
    isPasted = False
    attemptCount = 0
    
    ' 最多尝试2次粘贴
    Do While attemptCount < 2 And Not isPasted
        attemptCount = attemptCount + 1
        
        On Error Resume Next
        Sheet1.Range("A10").PasteSpecial Paste:=xlPasteValues
        
        ' 检查是否粘贴成功
        If Err.Number = 0 Then
            isPasted = True
        Else
            ' 清除错误状态，避免影响下一次尝试
            Err.Clear
            ' 等待1秒，给系统处理剪贴板的时间
            Application.Wait Now + TimeValue("00:00:01")
        End If
        ' 恢复默认错误处理，避免掩盖其他问题
        On Error GoTo 0
    Loop
    
    ' 如果两次都失败，提示用户
    If Not isPasted Then
        MsgBox "粘贴失败，请确认剪贴板中有可粘贴的数据！"
    End If
End Sub

方案二：先检查剪贴板就绪状态 #

有时候第一次粘贴失败是因为从Word/PDF复制的内容还没完全加载到剪贴板里，这个方案会先等待剪贴板就绪，再尝试粘贴：

Sub PasteWithClipboardCheck()
    Dim clipboardData As Object
    Set clipboardData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
    ' 等待剪贴板中有文本/数据（每0.5秒检查一次）
    Do Until clipboardData.GetFormat(1)
        Application.Wait Now + TimeValue("00:00:00.5")
    Loop
    
    ' 第一次尝试粘贴
    On Error Resume Next
    Sheet1.Range("A10").PasteSpecial Paste:=xlPasteValues
    
    ' 如果失败，清除错误后再试一次
    If Err.Number <> 0 Then
        Err.Clear
        Application.Wait Now + TimeValue("00:00:01")
        Sheet1.Range("A10").PasteSpecial Paste:=xlPasteValues
    End If
    On Error GoTo 0
    
    Set clipboardData = Nothing
End Sub

为什么原来的宏不行？ #

你原来的代码里On Error Resume Next会跳过第一次粘贴的错误，但错误状态并没有被清除，第二次PasteSpecial其实还是在错误上下文里执行的，相当于没真正重试。加上延迟和错误清除后，第二次粘贴才是全新的尝试，和手动按两次Ctrl+V的逻辑一致。

内容的提问来源于stack exchange，提问作者Dawid