Excel去除单元格空格且不丢失原有格式的实现方法问询

原有代码丢失格式的根本原因是直接修改Range.Value属性会覆盖整个单元格内容，Excel会自动清除所有局部富文本格式。要保留格式，需要操作Range.Characters对象，仅删除末尾的空白字符，不改动前面的有效内容，自然不会破坏原有格式。

以下是完整可直接运行的代码：

Sub trimspaceKeepFormat()
    Dim c As Range
    Dim rngConstants As Range
    Dim strContent As String
    Dim trimLen As Long
    Dim i As Long
    
    ' 仅选中当前工作表已使用范围中的文本常量单元格，和原逻辑保持一致
    On Error Resume Next
    Set rngConstants = ActiveSheet.UsedRange.SpecialCells(2, 2)
    On Error GoTo 0
    
    If Not rngConstants Is Nothing Then
        ' 关闭屏幕更新和自动计算提升性能
        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
        
        For Each c In rngConstants
            strContent = c.Value
            trimLen = 0
            ' 从末尾向前统计需要删除的空白字符（包含普通空格和Chr(160)非断空格）
            For i = Len(strContent) To 1 Step -1
                If Asc(Mid(strContent, i, 1)) = 32 Or Asc(Mid(strContent, i, 1)) = 160 Then
                    trimLen = trimLen + 1
                Else
                    Exit For
                End If
            Next i
            
            ' 存在需要删除的尾部空白时执行删除操作
            If trimLen > 0 Then
                c.Characters(Start:=Len(strContent) - trimLen + 1, Length:=trimLen).Delete
            End If
        Next c
        
        ' 恢复Excel设置
        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic
    End If
End Sub

代码说明 #

• 逻辑和原有筛选范围保持一致，仅处理已使用范围里的文本常量单元格，不会触碰公式单元格
• 支持同时删除普通空格（ASCII 32）和非断空格（ASCII 160），和最初的宏需求匹配
• 仅操作末尾的空白字符，前面所有局部格式（加粗、斜体、颜色、字号等）都会完整保留
• 如果需要同时删除开头的空白，只需在代码中增加头部空白统计，调用c.Characters(Start:=1, Length:=头部空白长度).Delete即可

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