VBA公共函数含vbCr时，粘贴至Excel外文本带多余引号问题

这个问题其实是Excel默认的剪贴板处理逻辑导致的——当单元格内容包含换行符（不管是vbCr、vbLf还是vbCrLf），复制到记事本这类外部程序时，Excel会自动给整个内容加上引号，用来标识这是一段包含特殊格式的文本。下面给你两种实用的解决方案：

方案一：用VBA直接将文本写入剪贴板（推荐） #

绕过Excel单元格的复制逻辑，直接把生成的多行文本放到剪贴板，这样粘贴到记事本时就不会有多余的引号。示例代码如下：

Sub CopyMultiLineTextToClipboard()
    Dim targetText As String
    ' 生成你需要的多行文本
    targetText = "first line" & vbCrLf & "next line"
    
    ' 使用剪贴板对象写入文本
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText targetText
        .PutInClipboard
    End With
    
    MsgBox "多行文本已成功复制到剪贴板！"
End Sub

使用时直接运行这个Sub过程，然后切换到记事本粘贴即可，得到的就是不带引号的两行独立文本。

方案二：手动调整粘贴方式（应急用） #

如果不想额外写Sub，也可以试试这个手动操作方法：

• 先在单元格中用你的tester()函数生成内容
• 选中单元格按Ctrl+C复制
• 打开记事本后，右键选择选择性粘贴 → 无格式文本（部分系统支持快捷键Ctrl+Shift+V）
  不过这个方法稳定性不如第一种，某些情况下Excel还是会带上引号，所以更推荐方案一。

补充说明 #

Excel自动加引号的行为是为了避免其他程序解析换行、制表符这类特殊字符时出错，但如果我们不需要这个“保护”，直接操作剪贴板就能完美绕过这个逻辑，得到符合需求的纯文本内容。

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