VBA条件判断异常：含Z、M值的单元格未被清空

最可能的原因：逻辑判断写反 #

你核心的条件判断逻辑很可能搞反了。正确的逻辑应该是：如果单元格值不在指定数组里，就清空；如果你的代码写成了「在数组里就清空」，那不在数组的"Z"/"M"就会被保留，完全符合你遇到的现象。

错误逻辑示例：

' 错误：把要保留的清空了，不该保留的留着
If IsInArray(cell.Value, targetArr) Then
    cell.Value = ""
End If

正确逻辑示例：

' 正确：不在数组里的才清空
If Not IsInArray(cell.Value, targetArr) Then
    cell.Value = ""
End If

其他可能的原因与解决 #

1. 大小写不匹配 #

你的指定数组都是大写值，但如果单元格里的"Z"/"M"是小写（"z"/"m"），默认字符串比较区分大小写，会导致IsInArray误判为「不在数组里」——如果此时你的逻辑再写反，就会保留这些值。

修正方法：在判断前统一转为大写（或小写），同时去除前后空格，消除差异：

Function IsInArray(val As String, arr As Variant) As Boolean
    Dim elem As Variant
    val = UCase(Trim(val))
    For Each elem In arr
        If UCase(elem) = val Then
            IsInArray = True
            Exit Function
        End If
    Next elem
    IsInArray = False
End Function

2. 单元格值包含隐藏字符/空格 #

看起来是"Z"/"M"的单元格，实际可能带有前后空格、换行符或其他不可见字符，导致和数组里的纯文本不匹配。比如单元格值是"Z "（带空格），此时IsInArray会返回False，若逻辑写反就会保留。

解决方法：用Trim去除前后空格，或用Clean函数清理不可见字符：

Dim cellVal As String
cellVal = UCase(Application.Clean(Trim(cell.Value)))
If Not IsInArray(cellVal, targetArr) Then
    cell.Value = ""
End If

3. 自定义IsInArray函数存在bug #

比如函数循环逻辑错误、提前返回错误值，或者使用了Like而非精确匹配（如果你的需求是精确等于指定值的话）。

替代方案：直接用Excel内置的Match函数，避免自定义函数的潜在问题：

Sub ClearNonTargetValues()
    Dim targetArr As Variant
    targetArr = Array("V", "FH", "WM", "N", "LM", "S", "Y", "CP", "IN", "OUT", "END", "G", "H")
    Dim cell As Range
    
    For Each cell In Range("你的指定区域") ' 替换为实际区域，比如Range("A1:D20")
        Dim cellVal As String
        cellVal = UCase(Application.Clean(Trim(cell.Value)))
        
        ' Match返回错误表示值不在数组里，清空单元格
        If IsError(Application.Match(cellVal, targetArr, 0)) Then
            cell.Value = ""
        End If
    Next cell
End Sub

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