Excel VBA导出CSV文件时如何去除列标题首尾多余空格

你当前代码无法彻底清除表头首尾多余空格，由几个共同问题导致：

• VBA内置的Trim()函数仅能清除半角空格（字符编码Chr(32)），多数从业务系统、网页导出/复制到Excel的表头，首尾夹带的是不间断空格（字符编码Chr(160)），原生Trim函数无法识别处理这类空格
• 表头列数统计逻辑有缺陷：用CountA统计A1:ZZ1的非空单元格数作为循环上限，如果表头行中间存在空单元格，统计值会小于实际表头最后一列的位置，导致部分表头列根本没进入清洗循环
• 错误捕获逻辑不合理：On Error Resume Next放置位置过早，会直接吞掉表头清洗阶段的报错（比如工作表被保护、单元格只读），你以为Trim执行成功，实际清洗步骤根本没运行
• 屏幕更新开关顺序写反，且直接修改原工作表内容，容易破坏原始数据

不要直接修改原表数据，在复制生成的临时工作簿中完成表头清洗后再导出CSV，清洗时同时覆盖半角空格、不间断空格两类常见首尾空白：

Sub ExportToCSV()
    Dim wsSource As Worksheet
    Dim wbTemp As Workbook
    Dim wsTemp As Worksheet
    Dim lastHeaderCol As Long
    Dim i As Long
    Dim fPath As String, fName As String, fullFileName As String
    
    ' 提前关闭屏幕更新、弹窗提示提升运行效率
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 绑定源工作表、拼接导出路径
    Set wsSource = ThisWorkbook.Sheets("sample")
    fPath = ThisWorkbook.Path
    fName = "sample_Adjusted"
    fullFileName = fPath & "\" & fName & ".csv"
    
    ' 复制源表到临时工作簿，所有修改在临时文件完成，不影响原数据
    wsSource.Copy
    Set wbTemp = ActiveWorkbook
    Set wsTemp = wbTemp.Sheets(1)
    
    ' 从最右侧向左定位表头最后一列，规避表头中间有空单元格导致的统计错误
    lastHeaderCol = wsTemp.Cells(1, wsTemp.Columns.Count).End(xlToLeft).Column
    
    ' 遍历清洗所有表头
    For i = 1 To lastHeaderCol
        If Not IsEmpty(wsTemp.Cells(1, i)) Then
            ' 先将不间断空格替换为普通半角空格，再执行Trim清除首尾空白
            wsTemp.Cells(1, i) = Trim(Replace(wsTemp.Cells(1, i), Chr(160), Chr(32)))
        End If
    Next i
    
    ' 保存为CSV，加Local:=True参数适配本地编码，避免中文乱码
    wbTemp.SaveAs Filename:=fullFileName, FileFormat:=xlCSV, Local:=True
    wbTemp.Close SaveChanges:=False
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    ThisWorkbook.Activate
End Sub

• 所有清洗、修改操作都在临时工作簿中完成，不会改动原文件内"sample"工作表的任何内容
• 如果后续发现还有其他特殊不可见字符导致的残留空白，只需要在现有Replace逻辑后追加对应字符的替换规则即可
• 移除了会吞错的On Error Resume Next，如果运行时报错可以直接定位问题点，不会出现静默失败的情况

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