VBA给指定词开头的单元格改色报Type mismatch错误如何解决？

错误原因 #

• 直接遍历D、E两整列，列内包含大量空单元格、甚至可能存在错误值（比如#N/A、#VALUE!），直接读取cell.Value时遇到错误值就会抛出*类型不匹配（Type mismatch）*错误
• 原代码的判断逻辑是单元格值完全等于指定关键词，不符合「以指定词开头」的需求，比如示例中的Error! Input does not match material就不会被匹配到
• 遍历整列（每列1048576个单元格）会严重拖慢运行速度，没有实际必要

修复后可直接运行的代码 #

Sub highlight()
    Dim cell As Range
    Dim usedRng As Range
    Dim cellVal As String
    
    ' 仅获取D、E列的已使用区域，避免遍历整列
    Set usedRng = Intersect(ActiveSheet.UsedRange, Range("D:E"))
    If usedRng Is Nothing Then Exit Sub ' 两列无数据直接退出
    
    For Each cell In usedRng
        ' 跳过值为错误类型的单元格，避免类型不匹配报错
        If Not IsError(cell.Value) Then
            cellVal = CStr(cell.Value)
            ' 匹配单元格开头的指定关键词
            If Left(cellVal, Len("Enter")) = "Enter" Then
                cell.Interior.Color = RGB(221, 235, 247)
            ElseIf Left(cellVal, Len("Error")) = "Error" Then
                cell.Interior.Color = RGB(253, 145, 145)
            ElseIf Left(cellVal, Len("Charge No")) = "Charge No" Then
                cell.Interior.Color = RGB(255, 242, 204)
            ElseIf Left(cellVal, Len("Used")) = "Used" Then
                cell.Interior.Color = RGB(255, 242, 204)
            Else
                ' 不符合条件的单元格清除背景色，不需要可删除此行
                cell.Interior.ColorIndex = xlColorIndexNone
            End If
        End If
    Next
End Sub

调整点说明 #

• 新增IsError(cell.Value)判断跳过错误值单元格，从根源解决类型不匹配报错
• 把单元格值提前转为字符串类型再匹配，避免数值类型单元格匹配时出现异常
• 改用Left函数提取单元格开头字符做匹配，完全符合「以指定词开头」的需求
• 仅遍历D、E列的已使用区域，运行效率远高于遍历整列
• 如果需要不区分大小写匹配（比如同时匹配error、ERROR、Error），可以在模块最顶部添加Option Compare Text语句

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