Excel VBA粘贴代码可运行，需仅粘贴值以匹配单元格格式

现有代码可运行，但需调整以确保仅粘贴纯文本值，完全匹配目标单元格原有格式，修改步骤如下：

问题分析 #

原Paste过程未正确接收目标单元格参数，需明确传递操作对象，同时确保仅传递文本内容，避免携带源格式。

修改后的代码 #

1. 调整粘贴过程（接收目标单元格参数） #

Sub Paste(ByVal Target As Range)
    ' 需先引用：Tools -> References -> Microsoft Forms 2.0 Object Library
    ' 否则会出现"编译错误：用户定义类型未定义"
    Dim DataObj As New MSForms.DataObject
    Dim s As String
    
    DataObj.GetFromClipboard
    s = DataObj.GetText
    Target.Value = s ' 直接赋值文本值，保留目标单元格原有格式
End Sub

2. 修改调用代码（传递Target参数） #

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("ToClear")) Is Nothing Then
        Cancel = True
        Call Paste(Target) ' 将当前双击的单元格传递给Paste过程
    End If
End Sub

说明 #

• 引用Microsoft Forms 2.0 Object Library是为了读取剪贴板中的纯文本内容；
• Target.Value = s直接将纯文本赋值给单元格，不会覆盖目标单元格的原有格式（如字体、对齐方式、单元格样式等），完全匹配目标单元格格式要求；
• 修改调用代码时，需将Target参数传递给Paste过程，确保操作对象为双击的目标单元格。

内容的提问来源于stack exchange，提问作者Cap'n Crunch