vba - 如何在不使用 Microsoft Forms 2.0 Lib、CLEAN 等的情况下从 Microsoft Excel 2010 复制的带有特殊字符的文本中删除双引号

Question

我尝试制作一个 super 基本的便笺生成器，它为用户提供一个便笺以复制并粘贴到我们的管理系统中，但它添加了尾随和前导双引号。我该如何摆脱它们？

我看过大帖here关于这一点，没有一个修复对我有用，主要是由于我所在的政府工作场所的限制。

换行符很重要，必须保留。这对用户来说必须 super 简单，我不能添加引用或库，用户不能有额外的步骤，比如先粘贴到另一个程序等。文本中不会有其他双引号。

你能帮我用excel公式或宏吗？

谢谢

我正在复制的名为 Notes 的单元格:

=CONCATENATE(C2,CHAR(10),"Error Code: ",A2,": ",B2,CHAR(10),D2,CHAR(10),"T TF Number ",Notes!$C$4," issued",CHAR(10),"T ID: ",Notes!$C$3)

要复制的宏:

Sub Copy_Note()
    Range("Note").Select
    Selection.Copy
End Sub

粘贴方式:

“特殊测试表
错误代码:12345:这是一个测试错误代码
修复它真的很好
第一个引用号:2222222 已发行
第二引用号:111111"

我希望它看起来如何:

特殊测试表
错误代码:12345:这是一个测试错误代码
修复它真的很好
第一个引用号:2222222 已发行
第二引用号:111111

Answer 1

我刚刚尝试了将单元格复制到Word，然后将其复制到剪贴板的方法，并且成功了:

Sub Copy_Note()
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Set wrdApp = CreateObject("Word.Application")
    Set wrdDoc = wrdApp.Documents.Add
    Range("Note").Copy
    wrdApp.Selection.PasteExcelTable False, False, False
    wrdApp.Selection.WholeStory
    wrdApp.Selection.Copy
    wrdDoc.Close False
    wrdApp.Quit
End Sub