如何修改VBA代码以正确高亮单元格中的非拉丁非数字字符？

原代码存在三个核心问题：Like模式语法错误、判断逻辑颠倒、未定义变量l，以下是修正后的代码及说明：

Sub HighlightInvalidChars()
    Dim cell As Range
    Dim s As String
    Dim i As Integer
    
    ' 遍历选中区域的每个单元格
    For Each cell In Selection
        s = cell.Value
        ' 重置单元格格式，避免历史高亮残留
        cell.Interior.ColorIndex = xlColorIndexNone
        cell.Font.Color = vbBlack
        cell.Font.Bold = False
        
        ' 逐个检查字符
        For i = 1 To Len(s)
            ' 判断字符是否为非数字/非拉丁字母（即非法字符）
            If Not Mid(s, i, 1) Like "[0-9A-Za-z]" Then
                ' 标记单元格背景为黄色
                cell.Interior.ColorIndex = 6
                ' 将非法字符设置为红色加粗
                cell.Characters(i, 1).Font.Color = vbRed
                cell.Characters(i, 1).Font.Bold = True
            End If
        Next i
    Next cell
End Sub

关键修改点说明 #

1. 修正判断逻辑：
   原代码用[0x0000-0x007F]的错误模式（Like不支持十六进制范围），且逻辑颠倒——现在通过Not Mid(...) Like "[0-9A-Za-z]"精准识别非数字、非拉丁字母的非法字符（比如西里尔字母Р）。
2. 修复变量错误：
   原代码中未定义的l是笔误，改为固定值1，表示每次处理单个字符。
3. 增加格式重置：
   处理前清空单元格原有格式，避免多次运行后格式混乱。
4. 优化变量类型：
   将cell As Object改为cell As Range，更贴合Excel单元格对象的类型定义，避免隐式转换问题。

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