Excel VBA：粘贴至记事本前清除剪贴板的换行符与空格

我编写了用于合并单元格的UDF函数ConcRange，运行正常。将其输出应用于合并单元格区域C1:C14并自动复制到剪贴板后，粘贴至记事本时发现存在14个多余空行。我已添加Microsoft Forms 2.0 Object Library引用，并使用以下Trim_Clipboard子过程处理剪贴板内容，但该代码无任何效果且未报错：

Sub Trim_Clipboard()

    Dim clipboard As New MSForms.DataObject, str As String
    
    clipboard.GetFromClipboard
    
    If clipboard.GetFormat(1) = False Then MsgBox "clipboard is empty": Exit Sub
     
     str = clipboard.GetText
     
      str = Replace(str, vbCr, "")
       str = Replace(str, vbLf, "")
        str = Replace(str, vbCrLf, "")
         str = Replace(str, vbNewLine, "")
          str = Application.Trim(str)

End Sub

我的单元格合并函数代码如下：

Function ConcRange(rng As Range, Optional Delim As String = ",")
     
    Dim cel As Range
     
    For Each cel In rng.Cells
        If Trim(cel) <> "" Then
           ConcRange = CStr(ConcRange) & Delim & CStr(Trim(cel.Value))
        End If
   Next cel
     
   If Len(ConcRange) > 0 Then
     ConcRange = Right(ConcRange, Len(ConcRange) - 1)
   End If
     
End Function

问题原因 #

你的Trim_Clipboard代码只完成了读取和修改剪贴板内容的步骤，但漏掉了最关键的一步：将处理后的文本写回剪贴板。另外，复制合并单元格区域时，Excel会为区域内的每个单元格（包括合并后看似空的单元格）自动添加换行符，这就是记事本里空行的来源。

修正后的剪贴板处理代码 #

Sub Trim_Clipboard()
    Dim clipboard As New MSForms.DataObject
    Dim str As String
    
    ' 读取剪贴板内容
    clipboard.GetFromClipboard
    If Not clipboard.GetFormat(1) Then
        MsgBox "剪贴板为空"
        Exit Sub
    End If
    
    str = clipboard.GetText
    
    ' 按优先级移除换行符：先处理组合型换行，再处理单个字符
    str = Replace(str, vbCrLf, "")
    str = Replace(str, vbNewLine, "")
    str = Replace(str, vbCr, "")
    str = Replace(str, vbLf, "")
    
    ' 清除首尾空格，同时将中间连续空格替换为单个空格
    str = Application.Trim(str)
    
    ' 核心操作：把处理好的文本放回剪贴板
    clipboard.SetText str
    clipboard.PutInClipboard
End Sub

更简便的优化方案：从源头避免多余换行 #

没必要复制整个合并区域，直接把ConcRange的结果放到单个单元格（比如D1），再复制这个单元格即可：

• 在D1输入公式：=ConcRange(C1:C14)
• 复制D1单元格后粘贴到记事本，不会出现多余空行，省去剪贴板处理的步骤。

内容的提问来源于stack exchange，提问作者Peace