VBA宏问题：修改代码实现删除不匹配X/Y的行时遇类型不匹配错误

我明白你遇到的问题了——直接在原有条件里加Or "Y"会触发类型不匹配，是因为语法逻辑写错啦！咱们一步步来修正：

错误原因分析 #

你原来尝试的写法大概是这样的：

If Not .Value Like "X" Or "Y" Then .EntireRow.Delete

这行代码的问题在于，Or两边需要是布尔表达式，但你右边直接写了字符串"Y"，VBA会尝试把字符串转成布尔值，自然就触发类型不匹配错误了。

正确的两种实现思路 #

我们的目标是：当单元格值既不是"X"也不是"Y"时删除整行，所以需要把两个判断条件正确组合起来：

思路1：用Like精确匹配（适合未来可能扩展模糊匹配的场景）

把两个Like判断用Or组合，再整体取反：

For Lrow = Lastrow To Firstrow + 1 Step -1
    With .Cells(Lrow, "AY")
        If Not IsError(.Value) Then
            ' 当值既不是X也不是Y时删除
            If Not (.Value Like "X" Or .Value Like "Y") Then
                .EntireRow.Delete
            End If
        End If
    End With
Next Lrow

思路2：用直接不等于判断（更高效，适合精确匹配场景）

因为你是精确匹配"X"和"Y"，用<>和And组合更直观，执行效率也更高：

For Lrow = Lastrow To Firstrow + 1 Step -1
    With .Cells(Lrow, "AY")
        If Not IsError(.Value) Then
            ' 当值不等于X 且 不等于Y时删除
            If .Value <> "X" And .Value <> "Y" Then
                .EntireRow.Delete
            End If
        End If
    End With
Next Lrow

额外优化建议 #

如果单元格内容可能有大小写差异（比如"x"或"y"），可以加上UCase或LCase统一转换，避免漏删：

If UCase(.Value) <> "X" And UCase(.Value) <> "Y" Then
    .EntireRow.Delete
End If

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