VBA中Range.Value/Range.Row触发类型不匹配错误排查

• 类型不匹配错误的触发根源：遍历单元格时如果遇到公式返回的错误值（如#N/A、#VALUE!、#DIV/0!、#REF!等），单元格的Value属性会返回Error子类型，VBA不支持对Error类型的值直接执行Len()函数计算，调用时直接抛出类型不匹配错误。
• 代码存在冗余逻辑：遍历范围固定为A2:R10000，起始行就是第2行，额外写的c.Row <> 1判断完全多余，没有实际作用。
• 原逻辑没有跳过空单元格，会执行大量无意义的长度判断，运行效率偏低。
• 原代码没有清除历史标记的红色填充，多次运行后会残留之前的错误标记，干扰校验结果。
• 弹窗提示文本存在拼写错误，characthers为错误拼写。

• 增加错误值拦截：在执行长度判断前，先用IsError()函数判断单元格值是否为错误类型，错误值直接跳过，不执行后续长度计算，从根源避免类型不匹配问题。
• 删除冗余的行号判断逻辑，精简代码。
• 每次校验前先清空目标范围内的单元格填充色，避免历史标记残留。
• （可选）增加空单元格判断，跳过空值减少无效计算，提升大表下的运行速度。
• 修正弹窗文本的拼写错误。

Sub GSSLength()
    Dim c As Range
    Dim ws As Worksheet
    Dim j As Long

    j = 0

    For Each ws In ActiveWorkbook.Worksheets    
        ' 匹配名称包含BOM的工作表，如果需要完全匹配名称为BOM的表，可把通配符*去掉，写为 ws.Name = "BOM"
        If ws.Name Like "*BOM*" Then        
            ' 先清除范围内旧的红色填充标记
            ws.Range("A2:R10000").Interior.ColorIndex = xlNone
            For Each c In ws.Range("A2:R10000")
                ' 跳过错误值单元格，避免类型不匹配
                If Not IsError(c.Value) Then
                    ' 对文本长度超30的单元格标记红色
                    If Len(c.Value) > 30 Then        
                        c.Interior.ColorIndex = 3            
                        j = j + 1                
                    End If
                End If
             Next c    
        End If
    Next ws

    If j > 0 Then
        MsgBox j & " errors found where the length of cell is longer than 30 characters, please correct in columns that are red."
    End If

End Sub

补充说明：原代码写的ws.Name Like "BOM"效果和完全匹配名称为BOM的表一致，如果你的BOM表名称带有前后缀（比如BOM-物料表、产品BOM），保留代码里的通配符写法即可；如果是严格匹配名称为BOM的工作表，直接改成ws.Name = "BOM"兼容性更好。

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