Excel VBA选中单元格高亮匹配文本遇Run-time error '13'类型不匹配

错误原因分析 #

你的代码存在几个关键问题导致类型不匹配：

• 无效的范围引用：Range("I2:I8" & row_num) 会生成类似 I2:I83 的错误地址，这不是合法的单元格引用，你需要的是列I中单独的单元格，应该用 Range("I" & row_num)。
• 无意义的InStr比较：InStr(text_review, text_review) 是将单元格内容与自身比较，这不仅逻辑错误，还会因为text_review未正确赋值为字符串而触发类型不匹配。
• 未使用Set赋值范围对象：直接将Range赋值给变量text_review时，VBA会默认获取单元格的值而非范围对象，后续尝试访问.Interior也会出错。
• 循环逻辑缺陷：Loop Until text_review = "" 会在遇到第一个空单元格时停止，可能跳过后续有内容的单元格。

修正后的代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim searchText As String
    Dim lastRow As Long
    Dim i As Long
    
    ' 仅处理点击N6单元格的情况
    If Target.Address <> "$N$6" Then Exit Sub
    
    With Sheets("Sheet1")
        ' 清除所有单元格的高亮
        .Cells.Interior.ColorIndex = xlColorIndexNone
        
        ' 获取N6中的搜索文本，转换为字符串避免类型问题
        searchText = CStr(Target.Value)
        
        ' 如果搜索文本为空，直接退出
        If searchText = "" Then Exit Sub
        
        ' 获取列I的最后一行
        lastRow = .Cells(.Rows.Count, "I").End(xlUp).Row
        
        ' 遍历列I的所有行（从第2行开始）
        For i = 2 To lastRow
            ' 检查当前单元格是否包含搜索文本（不区分大小写）
            If InStr(1, CStr(.Range("I" & i).Value), searchText, vbTextCompare) > 0 Then
                ' 高亮匹配的单元格
                .Range("I" & i).Interior.Color = RGB(255, 255, 0)
            End If
        Next i
    End With
End Sub

关键改进点 #

• 合法的范围引用：使用Range("I" & i)精准定位列I中的每个单元格。
• 正确的搜索逻辑：将N6的文本作为搜索关键词，检查列I中每个单元格是否包含该关键词。
• 高效的循环方式：通过lastRow获取列I的最后一行，避免无效循环。
• 类型安全处理：用CStr()将单元格值转换为字符串，彻底避免类型不匹配。
• 空值判断：当N6为空时直接退出，防止不必要的操作。

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