Excel多单元格复制时去除自动添加引号的VBA解决方案求助

问题分析 #

复制Excel指定区域到外部程序时，带换行的单元格（如用CONCAT()生成的多行文本）粘贴后会自动添加首尾双引号，需要在不依赖Microsoft Forms 2.0或额外组件的前提下去除这些引号，适配Windows 10/11 + Office 365环境。

解决方案代码 #

直接使用VBA结合Windows自带的PowerShell实现剪贴板写入，无需额外依赖：

Sub CopyCleanedRange()
    Dim copyRange As Range
    Dim cell As Range
    Dim cleanedText As String
    Dim cellText As String
    
    ' 自定义要复制的目标区域，可根据需求修改
    Set copyRange = ThisWorkbook.ActiveSheet.Range("B13:B29")
    
    ' 遍历单元格并清理内容
    For Each cell In copyRange
        cellText = cell.Value
        ' 仅当内容首尾均为双引号时，去除首尾引号
        If Len(cellText) >= 2 And Left(cellText, 1) = """" And Right(cellText, 1) = """" Then
            cellText = Mid(cellText, 2, Len(cellText) - 2)
        End If
        ' 拼接文本，每个单元格内容后添加换行（可按需调整分隔符）
        cleanedText = cleanedText & cellText & vbCrLf
    Next cell
    
    ' 移除末尾多余的换行符
    If Len(cleanedText) > 0 Then
        cleanedText = Left(cleanedText, Len(cleanedText) - 2)
    End If
    
    ' 通过PowerShell将处理后的文本写入剪贴板
    CreateObject("WScript.Shell").Run "powershell -command ""Set-Clipboard -Value '" & Replace(cleanedText, "'", "''") & "'""", 0, True
End Sub

使用步骤 #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧项目窗格右键点击当前工作簿，选择插入 > 模块
3. 将上述代码粘贴到模块窗口中
4. 返回Excel界面，点击开发工具 > 插入 > 表单控件（按钮），绘制按钮后指定宏为CopyCleanedRange
5. 点击按钮即可将处理后的文本复制到剪贴板，直接粘贴到便签、记事本等程序即可

关键特性 #

• 无额外依赖：仅使用Windows和Office 365自带组件，无需安装或配置任何库
• 兼容多种内容：正确处理纯文本、DOLLAR()生成的数字格式文本、带换行的CONCAT()字符串
• 智能清理：仅移除首尾同时存在的双引号，避免误删内容中正常使用的引号
• 保留格式：单元格内的换行（Alt+Enter输入）会被完整保留，粘贴后显示正常

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