Microsoft Excel复制粘贴，不带引号

Question

问题1：

如何在不复制cell（“＆amp;”）的情况下从Excel文件中复制粘贴quotes值？

问题2：

粘贴

时也会忽略下一行字符

Excel文件文字：

粘贴后

文字：

PS：我可以在没有引号的情况下执行此操作的唯一方法是首先在MS Word中粘贴值，然后将其粘贴到MS Word文件的文本文件中。

Answer 1

那么你无能为力。但是有一个解决方法。

您可以将CLEAN功能用作=CLEAN(A1)（指定您的手机地址）。然后将文本复制到记事本，您将获得所需的结果。

但是CLEAN函数也会从文本中删除换行符，因为此函数会从文本中删除所有不可打印的字符。

<强> EDIT1 ： 的 _________________________________________________________________________________

这是复制后的结果差异。

的 EDIT2 ： 的 __________________________________________________________________________________

这是一个VBA解决方案。请尝试以下代码：

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对象库的引用。

这将为您提供如下图所示的输出：