VBA遍历Range列执行条件判断时触发类型不匹配错误

核心报错原因 #

• 遍历范围写法错误：For Each rg In Columns("X")中Columns("X")返回的是代表X列整列的单个Range对象，而非列内单个单元格的集合，首次循环取到的rg是整列区域，其Value是承载整列单元格内容的二维数组，数组类型无法直接通过Like做字符串匹配，直接触发类型不匹配。
• 未做错误值拦截：就算修正遍历范围，只要X/U/V列中存在公式返回的错误值（如#N/A、#VALUE!、#DIV/0!等），这类值属于VBA的Error子类型，无法传入Like、LCase这类仅接受字符串、数值类型参数的函数，同样会触发类型不匹配。
• 附带逻辑bug：代码中用LCase()将单元格值转为全小写后，和大小写未统一的原始文本做相等判断，条件永远无法命中——LCase会把所有字符转为小写，和你写的大写开头的目标文本不存在相等可能。

修正后可运行代码 #

Dim rg As Range
' 仅遍历X列已使用的单元格，避免遍历整列百万级空单元格、以及直接取整列对象的问题
For Each rg In Intersect(ActiveSheet.UsedRange, Columns("X")).Cells
    ' 提前拦截错误值单元格，从根源避免类型运算冲突
    If Not IsError(rg.Value) _
       And Not IsError(Cells(rg.Row, "U").Value) _
       And Not IsError(Cells(rg.Row, "V").Value) Then
        
        ' 对比文本同步转小写，保证大小写不敏感匹配逻辑生效
        If rg.Value Like "?*@?*.?*" And _
           LCase(Cells(rg.Row, "U").Value) = LCase("Demande de création d'intervention") And _
           LCase(Cells(rg.Row, "V").Value) <> "envoyé" Then

            ' 此处写入满足所有条件后需要执行的业务代码

        End If
    End If
Next

关键修正说明 #

• 遍历范围改用Intersect(ActiveSheet.UsedRange, Columns("X")).Cells，只取X列中有内容的单元格做循环，既解决了整列对象遍历的类型问题，也大幅提升代码运行效率。
• 所有参与字符串运算的单元格，提前通过IsError()判断是否为错误值，错误值直接跳过判断，彻底解决Error类型参与字符串运算导致的类型不兼容问题。
• 目标匹配文本同步传入LCase()做小写转换，和单元格值的转换逻辑统一，保证大小写不敏感的匹配逻辑能正常生效，避免条件永远不命中的逻辑错误。

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