如何从Microsoft Excel 2010删除双引号复制带有特殊字符的文本,而不使用Microsoft Forms 2.0 Lib,CLEAN等

我试图制作一个超级基本音符生成器,​​它为用户提供了一个便笺,可以将其复制并粘贴到我们的pipe理系统中,但却添加了一个尾随和前导双引号。 我如何摆脱它们?

我在这里看到过这个大post,没有任何修补程序适用于我,主要是由于我所在的政府工作场所的限制。

换行很重要,必须留下。 这对于用户来说是非常简单的,我不能添加引用或者库,对于用户来说不需要额外的步骤,比如粘贴到另一个程序的第一个等等。 文中将没有其他双引号。

你可以帮我用excel公式还是macros?

谢谢

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

= CONCATENATE(C2,CHAR(10),“错误代码:”,A2,“:”,B2,CHAR(10),D2,CHAR(10),“T TF Number”,Notes!$ C $ 4“ “,CHAR(10),”T ID:“,Notes!$ C $ 3)

要复制的macros:

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

它如何粘贴:

“特殊testing表格
错误代码:12345:这是一个testing错误代码
修正它真正好
第一号参考号码:2222222
第二编号:111111“

我希望它看起来如何:

特殊testing表格
错误代码:12345:这是一个testing错误代码
修正它真正好
第一号参考号码:2222222
第二编号:111111

我只是尝试了将单元格复制到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 

您可能能够使用剪贴板和后期绑定。 如果范围是单个单元格,这将仅适用。

 With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText Range("Note").Value .PutInClipboard End With