セルをコピーしたときに末尾につく改行を除去する

個人用マクロブックにこんな感じでマクロを書いとくとOK。
CTRL+SHIFT+CでCleanCopyメソッドを起動する。

Sub auto_open()
    Application.OnKey "^+c", "CleanCopy"
End Sub

Sub CleanCopy()
    Dim val As String
    Dim i As Integer
    
    For i = 1 To Selection.Count
        If (Len(val) > 0) Then
            val = val & vbCrLf
        End If
        val = val & Selection(i).Value
    Next
        
    Dim CB As New DataObject
    CB.SetText val
    CB.PutInClipboard
End Sub