CSV导出含隐藏尾随空格，如何通过VBA Macro批量清除？

CSV导出后单元格末尾出现的“隐藏空格”，大多不是普通空格（ASCII 32），而是非打印控制字符（比如非断空格ASCII 160、空字符ASCII 0这类），录制的宏默认替换普通空格，所以无效还会误删手动输入的正常空格。以下是直接在Macro中精准清除这类隐藏字符的方案：

步骤1：确认隐藏字符的ASCII码 #

先定位具体是哪种字符，选中有问题的单元格，运行这段代码：

Sub CheckHiddenChar()
    Dim cell As Range
    Set cell = Selection
    MsgBox "最后一个字符的ASCII码：" & Asc(Right(cell.Value, 1))
End Sub

弹窗会显示该隐藏字符的ASCII码，记下来备用。

步骤2：针对性清除指定隐藏字符 #

根据查到的ASCII码，用这段代码只清除单元格末尾的目标字符，不影响中间的正常空格：

Sub ClearTrailingHiddenChars()
    Dim rng As Range
    Dim cell As Range
    Dim targetChar As String
    
    ' 替换为你查到的字符，比如ASCII 160写Chr(160)，ASCII 0写Chr(0)
    targetChar = Chr(160)
    
    ' 处理当前工作表已使用的所有单元格，也可指定范围如Range("A1:Z1000")
    Set rng = ActiveSheet.UsedRange
    
    For Each cell In rng
        ' 循环截掉末尾的目标隐藏字符
        Do While Right(cell.Value, 1) = targetChar
            cell.Value = Left(cell.Value, Len(cell.Value) - 1)
        Loop
    Next cell
End Sub

备选：批量清除所有末尾非打印字符 #

如果不确定具体字符，用正则表达式一次性清除所有末尾的非打印控制字符和特殊空格：

Sub ClearAllTrailingNonPrintable()
    Dim rng As Range
    Dim cell As Range
    Dim regEx As Object
    
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "[\x00-\x1F\x7F\xA0]+$" ' 匹配末尾的非打印字符、非断空格
    regEx.Global = True
    
    Set rng = ActiveSheet.UsedRange
    
    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            cell.Value = regEx.Replace(cell.Value, "")
        End If
    Next cell
    
    Set regEx = Nothing
End Sub

运行上述任意宏后，单元格末尾的隐藏字符会被彻底清除，=TODAY()-（Projected Return date单元格）这类公式就能正常计算，不会再返回#Value!错误。

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