Microsoft Excel复制粘贴不带引号

问题1：

如何从Excel文件复制粘贴cell值而不复制quotes （“＆”）？

问题2：

下一行字符在粘贴时也被忽略

Excel文件文本：

粘贴后的文本：

PS：我可以不用引号的唯一方法就是先在MS Word中粘贴值，然后将其粘贴到MS Word文件的文本文件中。

Answer 1

那么没有什么可以做的。 但是有一个解决它的方法。

您可以使用CLEANfunction=CLEAN(A1) （指定您的手机地址）。 然后复制文本到记事本，你会得到所需的结果。

但是， CLEANfunction也可以从文本中删除换行符，因为此function可以从文本中删除所有不可打印的字符。

编辑1 ： _________________________________________________________________________

这是复制后结果的差异。

编辑2 ： __________________________________________________________________________________

这是一个VBA解决scheme。 试试下面的代码：

 Sub CopyToNotepad() Dim objData As New DataObject 'set reference to Microsoft Forms 2.0 Object Library Dim strTemp As String Dim i As Long, FN As Integer Dim FilePath As String, FileName As String Dim MyRange As Range Dim cell As Variant FilePath = "C:\test file\" '---> give your file path FileName = "test.txt" '---> give your file name FileName = FilePath & FileName FN = FreeFile Open FileName For Output As #FN Set MyRange = Worksheets("Sheet1").Range("A3:A5") For Each cell In MyRange.Cells strTemp = Replace(cell.Value, Chr(10), vbCrLf) objData.SetText (strTemp) Print #FN, strTemp Next Close #FN End Sub 

要在代码中使用DataObject ，您必须设置对Microsoft Forms 2.0对象库的引用。

这会给你如下图所示的输出：