不带引号的 Microsoft Excel 复制粘贴

Question

问题1：

如何cell从Excel文件复制粘贴值而不复制quotes(" & ")？

问题2：

粘贴时也忽略下一行字符

Excel 文件文本：

粘贴后的文本：

PS：没有引号的唯一方法是，首先将值粘贴到 MS Word 中，然后将其粘贴到 MS Word 文件中的文本文件中。

Answer 1

好吧，你对此无能为力。不过，有一个解决方法。

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

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

编辑1： _________________________________________________________________________________

这就是复制后结果的差异。

编辑2： __________________________________________________________________________________

这是一个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

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

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