如何修改Excel VBA宏以高亮含前后空格及多空格的单元格

我来帮你调整这个宏，精准实现你要的校验逻辑～先说说原代码里的几个小问题：

• 原判断条件WorksheetFunction.CountIf(Cell, "* *") > 0会把只要包含单个空格的内容都标记，不符合你“仅规范格式通过”的要求；
• 代码里的Exit Sub和End会导致找到第一个符合条件的单元格就直接停止，没法检查所有单元格；
• 完全没处理首尾空格的情况。

下面是修改后的完整代码，我会在后面解释关键改动：

Sub MarkInvalidFormat()
    Dim Cell As Range
    Dim rng As Range
    Dim trimmedText As String
    
    ' 关闭屏幕更新和自动计算提升运行速度
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    ' 定义要检查的范围（A2到A列最后一行的L列）
    Set rng = ThisWorkbook.Worksheets("Main").Range("A2:L" & ThisWorkbook.Worksheets("Main").Range("A2").End(xlDown).Row)
    
    ' 遍历每个单元格
    For Each Cell In rng
        ' 获取去除首尾空格后的内容
        trimmedText = Trim(Cell.Value)
        
        ' 判断两种不规范情况：
        ' 1. 原内容和去除首尾空格后的内容不一致（说明首尾有空格）
        ' 2. 去除首尾空格后的内容里包含连续多个空格
        If Cell.Value <> trimmedText Or InStr(trimmedText, "  ") > 0 Then
            Cell.Interior.ColorIndex = 6 ' 标记为黄色
        Else
            ' 如果是规范格式，恢复默认填充色（可选，根据需要调整）
            Cell.Interior.ColorIndex = xlColorIndexNone
        End If
    Next Cell
    
    ' 恢复屏幕更新和自动计算
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

关键改动说明： #

• 重命名宏为MarkInvalidFormat，更贴合实际功能；
• 新增trimmedText变量存储去除首尾空格后的内容，用于后续判断；
• 调整判断逻辑：只要满足首尾有空格或者中间有连续多空格其中一个条件，就标记单元格；
• 移除原代码里错误的Exit Sub和End，确保遍历所有单元格；
• 新增Else分支，可选恢复规范单元格的默认填充色（如果不需要可以删掉这部分）。

这样修改后，只有当单元格内容是首尾无空格、中间仅单个空格的规范格式时，才不会被标记，其他所有不规范情况（首尾空格、中间多空格）都会被高亮出来。

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