如何去除复制文本的引号？Excel单元格复制首尾引号问题及代码修改

• 直接调用Range.Copy会把单元格的格式信息+文本内容一并存入剪贴板，当目标系统识别到内容带格式或包含特殊字符（比如换行、首尾空格）时，会自动添加引号作为文本边界，避免格式解析混乱。
• 部分系统的粘贴逻辑对非纯文本格式的剪贴板内容，默认会用引号包裹以界定文本范围，这也是引号出现的常见诱因。

放弃直接复制单元格，改用纯文本方式将单元格内容写入剪贴板，确保目标系统只接收纯文本内容，不会触发自动加引号的逻辑。修改后的代码如下：

Private Sub Button6_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Dim clipboard As Object
    
    Set xSheet = ActiveSheet
    If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
        ' 创建系统剪贴板对象
        Set clipboard = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        clipboard.SetText xSheet.Range("B6").Text ' 仅提取单元格纯文本内容
        clipboard.PutInClipboard ' 将纯文本写入剪贴板
    End If
    
    Application.ScreenUpdating = True
End Sub

补充说明 #

• 使用的剪贴板对象是Windows系统原生组件，仅传递纯文本，不会携带Excel的单元格格式信息。
• 用Range.Text而非Range.Value，是为了获取单元格的显示文本（若单元格是公式，Text取计算结果，Value可能返回公式本身，可根据实际需求调整）。

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