如何從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