VBA表格校验：如何将不等判断嵌入值参数而非代码逻辑？

我正在编写一个VBA过程，需要校验表格不同列的所有值是否等于（或不等于）某个指定值。但我无法提前确定要校验的列数、校验值，且不想额外传入一个数组（如0和1组成的数组）来指定fColumnVal数组中的值是要与表格列值相等还是不等。

当前示例代码如下：

With Workbooks(path).Worksheets(sheetName)
    
    Set tbl = .ListObjects(tableName)
    i = 1
    For Each col In fColumn
        colRange(i) = tblSource.ListColumns(col).DataBodyRange
        i = i + 1
    Next
    
    Dim flag As Boolean
    For i = 1 To .ListRows.Count
        flag = True
        
        For j = 1 To fColumn.UBound
          If colRange(i).Value <> fColumnVal(i) Then ' check if stored value is equal to specific value
            flag = False
            Exit For
        End If
        Next j
        
        If flag = True Then
            ' do something
        End If
    Next i
End With

其中fColumn是存储待校验列名的字符串数组，colRange是对应的数据区域，fColumnVal是待校验的值。当前实现是遍历表格每一行，将待校验列的单元格值与fColumnVal中的值进行对比，逻辑可行，但存在需求：比如需要找出所有不等于“Hello”的值。

我的问题是：能否将“不等判断”的逻辑嵌入fColumnVal的值中，而非修改条件判断的代码？类似Excel公式中用“<>”表示“不等于”的方式。如果不可行，我就会给子程序添加一个指定判断方式的必填变量。

完全可以实现把判断逻辑嵌入fColumnVal数组的需求，核心是解析每个数组元素的前缀，识别判断操作符（=或`<>），提取实际对比值后动态执行判断。

具体实现 #

1. 先写一个辅助函数，用于拆分操作符和目标值：

Private Function ParseComparisonCriteria(ByVal criteria As String, ByRef op As String, ByRef targetVal As Variant)
    ' 识别不等判断前缀
    If Left(criteria, 2) = "<>" Then
        op = "<>"
        targetVal = Mid(criteria, 3)
    Else
        ' 默认使用等于判断，兼容不带操作符的输入
        op = "="
        targetVal = criteria
    End If
End Function

2. 修改原代码的判断逻辑，调用辅助函数解析规则：

With Workbooks(path).Worksheets(sheetName)
    Set tbl = .ListObjects(tableName)
    Dim colRange() As Range
    ReDim colRange(1 To UBound(fColumn)) ' 初始化Range数组大小
    
    Dim i As Integer, j As Integer
    i = 1
    For Each col In fColumn
        Set colRange(i) = tbl.ListColumns(col).DataBodyRange ' 用Set赋值Range对象
        i = i + 1
    Next
    
    Dim flag As Boolean
    Dim op As String, targetVal As Variant
    For i = 1 To tbl.ListRows.Count
        flag = True
        
        For j = 1 To UBound(fColumn)
            ' 解析当前列的校验规则
            ParseComparisonCriteria fColumnVal(j), op, targetVal
            
            ' 根据操作符执行判断
            Select Case op
                Case "="
                    If colRange(j).Cells(i).Value <> targetVal Then
                        flag = False
                        Exit For
                    End If
                Case "<>"
                    If colRange(j).Cells(i).Value = targetVal Then
                        flag = False
                        Exit For
                    End If
            End Select
        Next j
        
        If flag = True Then
            ' 符合条件时执行自定义操作
            ' do something
        End If
    Next i
End With

使用示例 #

• 校验列值等于"Hello"：fColumnVal对应元素写Hello或=Hello
• 校验列值不等于"Hello"：fColumnVal对应元素写<>Hello

扩展说明 #

• 若需要支持更多判断符（如>、<、>=、<=），只需在辅助函数中添加前缀判断，并在Select Case中补充对应分支即可
• 可以针对数字类型的目标值添加类型转换逻辑，避免字符串对比带来的误差

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