如何清除多工作表单元格文本前空格且保留文本间空格？

问题分析 #

• 原代码仅针对ActiveSheet执行操作，因此只处理当前激活的工作表，未覆盖你指定的3个目标工作表。
• 逐个单元格循环赋值的方式效率极低，当UsedRange范围较大时，会导致运行速度缓慢。

优化后的VBA代码 #

Public Sub TrimLeadingTrailingSpaces()
    Dim ws As Worksheet
    Dim targetSheets As Variant
    Dim dataArr As Variant
    Dim i As Long, j As Long
    
    ' 指定需要处理的工作表名称
    targetSheets = Array("I", "B", "C")
    
    ' 关闭Excel耗时操作，提升运行速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    On Error GoTo Cleanup ' 确保出错时恢复Excel设置
    
    ' 遍历每个目标工作表
    For Each ws In ThisWorkbook.Worksheets(targetSheets)
        ' 仅当工作表有数据时处理
        If Not ws.UsedRange Is Nothing Then
            ' 将UsedRange数据读取到数组中（批量操作远快于逐个单元格）
            dataArr = ws.UsedRange.Value2
            
            ' 遍历数组处理每个元素
            For i = LBound(dataArr, 1) To UBound(dataArr, 1)
                For j = LBound(dataArr, 2) To UBound(dataArr, 2)
                    ' 仅处理文本类型单元格，避免报错
                    If VarType(dataArr(i, j)) = vbString Then
                        dataArr(i, j) = Trim(dataArr(i, j))
                    End If
                Next j
            Next i
            
            ' 将处理后的数组写回工作表
            ws.UsedRange.Value2 = dataArr
        End If
    Next ws
    
Cleanup:
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    
    If Err.Number <> 0 Then
        MsgBox "处理过程中出现错误：" & Err.Description, vbExclamation
    End If
End Sub

代码说明 #

• 批量数组处理：将工作表数据一次性读取到内存数组中完成Trim操作，再批量写回工作表，避免频繁的单元格读写，大幅提升运行速度。
• 多工作表遍历：通过Array("I", "B", "C")指定目标工作表，循环覆盖所有需要处理的表。
• 环境优化：关闭屏幕更新、事件触发和自动计算，减少运行过程中的额外资源消耗。
• 错误防护：添加错误处理分支，确保即使出现异常，Excel的基础设置也能恢复正常。
• 类型校验：仅对字符串类型单元格执行Trim操作，避免对数值、日期等类型单元格造成干扰或报错。

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