如何编写Excel VBA代码实现多区域内容一键复制去空格后跨应用粘贴

直接用Excel内置的VBA功能即可完成全流程操作，无需依赖第三方工具，处理完成的内容会直接写入系统剪贴板，点击按钮就能直接粘贴使用。

前置配置调整 #

使用前先将代码里的目标区域、预设语句替换为你实际使用的内容即可。

完整可运行代码 #

Sub 一键处理规范语句()
    ' 定义变量
    Dim ws As Worksheet
    Dim targetRanges As Variant
    Dim rng As Variant
    Dim cell As Range
    Dim rawText As String
    Dim processedText As String
    Dim presetText As String
    Dim dataObj As Object
    Dim lines As Variant
    Dim i As Long
    
    ' === 配置区：根据你的实际需求修改以下内容 ===
    ' 选择要处理的工作表，固定工作表可改为 Set ws = ThisWorkbook.Worksheets("你的表名")
    Set ws = ThisWorkbook.ActiveSheet
    ' 要提取内容的三个区域，替换成你实际的单元格范围
    targetRanges = Array("A1:A10", "C1:C10", "E1:E5")
    ' 要添加的预设通用语句，不需要则设为 presetText = ""
    presetText = "此处替换为你的预设通用语句" & vbCrLf & vbCrLf
    ' === 配置区结束 ===
    
    ' 1. 批量提取指定区域的纯文本内容
    rawText = ""
    For Each rng In targetRanges
        For Each cell In ws.Range(rng)
            If Trim(cell.Value) <> "" Then ' 自动跳过空单元格
                rawText = rawText & cell.Value & vbCrLf
            End If
        Next cell
        rawText = rawText & vbCrLf ' 不同区域之间加空行分隔，不需要可删除此行
    Next rng
    
    ' 2. 清理多余格式和空格
    processedText = rawText
    ' 替换制表符为单空格
    processedText = Replace(processedText, vbTab, " ")
    ' 循环替换所有双空格为单空格，直到不存在双空格
    Do While InStr(processedText, "  ") > 0
        processedText = Replace(processedText, "  ", " ")
    Loop
    ' 清理每行首尾的多余空格
    lines = Split(processedText, vbCrLf)
    processedText = ""
    For i = LBound(lines) To UBound(lines)
        processedText = processedText & Trim(lines(i)) & vbCrLf
    Next i
    
    ' 3. 拼接预设通用语句
    processedText = presetText & processedText
    
    ' 4. 将最终内容写入系统剪贴板
    Set dataObj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    dataObj.SetText processedText
    dataObj.PutInClipboard
    Set dataObj = Nothing
    
    ' 操作完成提示
    MsgBox "处理完成，内容已复制到剪贴板，可直接粘贴使用", vbInformation
End Sub

按钮触发设置方法 #

• 打开Excel的「开发工具」选项卡，点击「插入」-「表单控件」-「按钮」
• 在工作表合适位置绘制按钮，弹出指定宏窗口后选择一键处理规范语句，点击确定
• 右键按钮可修改显示名称，之后点击按钮即可直接运行

注意事项 #

• 如果没有显示开发工具选项卡，在「Excel选项-自定义功能区」里勾选「开发工具」即可
• 保存文件时要选择Excel 启用宏的工作簿(*.xlsm)格式，否则宏代码会丢失

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