VBA双击粘贴代码报错：Sub Paste中Target.Value = S语句出错求助

核心错误原因 #

• Paste 和 MsgBox_YN_Paste 里直接用Target变量，但Target是工作表双击事件的局部参数，其他子过程根本访问不到，这就是报错的根源。
• MsgBox_YN_Paste 里把AnswerYes声明成了String类型，但MsgBox返回的是整数（比如vbYes对应数值6），类型不匹配会导致逻辑判断失效。

修正后的完整代码 #

工作表双击事件过程 #

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 检查目标单元格是否在指定区域内
    If Not Application.Intersect(Target, Range("K4:S8")) Is Nothing Then
        Cancel = True ' 取消双击默认进入编辑模式的行为
        If Target.Value = "" Then
            ' 单元格为空，直接执行粘贴
            PasteToCell Target
        Else
            ' 单元格非空，弹出确认覆盖的对话框
            MsgBox_YN_Paste Target
        End If
    End If
End Sub

粘贴功能子过程（接收目标单元格参数） #

Sub PasteToCell(ByVal destCell As Range)
    ' 需提前引用库：工具 -> 引用 -> 勾选 Microsoft Forms 2.0 Object Library
    Dim DataObj As New MSForms.DataObject
    Dim clipText As String
    
    ' 捕获剪贴板无文本的异常情况
    On Error Resume Next
    DataObj.GetFromClipboard
    clipText = DataObj.GetText
    On Error GoTo 0
    
    If clipText <> "" Then
        destCell.Value = clipText
    Else
        MsgBox "剪贴板里没有文本内容", vbExclamation, "提示"
    End If
End Sub

确认覆盖对话框子过程（接收目标单元格参数） #

Sub MsgBox_YN_Paste(ByVal destCell As Range)
    Dim answer As Integer
    
    answer = MsgBox("是否要覆盖此单元格的内容？", vbQuestion + vbYesNo, "提示")
    If answer = vbYes Then
        PasteToCell destCell ' 用户确认后执行粘贴
    End If
End Sub

关键修改说明 #

• 给两个子过程加了ByVal destCell As Range参数，把事件里的Target传递进去，解决变量未定义的问题。
• 把原Paste过程改名为PasteToCell，避免和VBA内置的Paste方法重名，更规范。
• 修正MsgBox_YN_Paste里变量的类型为Integer，匹配MsgBox的返回值类型。
• 加了错误处理，应对剪贴板无文本的情况，让代码更稳定。
• 梳理了事件过程的逻辑结构，可读性更强。

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