如何从excel多单元复制而不引用重复？

Question

当我将它粘贴到任何编辑器中时，引号出现在结尾和开始处，并且里面的引号被复制。

Answer 1

创建一个宏，并尝试下面的代码：

Sub copy() 
    'If needed Attach Microsoft Forms 2.0 Library: tools\references\Browse\FM20.DLL 
    'Then set a keyboard shortcut to the CopyCells Macro (eg Crtl T) 
    Dim objData As New DataObject 
    Dim cell As Object 
    Dim concat As String 
    Dim cellValue As String 
    CR = "" 
    For Each cell In Selection 
    If IsNumeric(cell.Value) Then 
     cellValue = LTrim(str(cell.Value)) 
    Else 
    cellValue = cell.Value 
    End If 
    concat = concat + CR + cellValue 
    CR = Chr(13) 
    Next 
    objData.SetText (concat) 
    objData.PutInClipboard  
End Sub