Excel VBA程序误判单元格数值不匹配，实际值一致求助

我有一个包含数值的Excel表格，需要比对三个总计值：单元格上方10个单元格的SUM值、从SSMS获取的SQL值、通过Snagit截图提取的COBOL值，这些值本应大多一致。我写的VBA程序先隐藏B:EE列，遍历列时如果三个值不匹配就取消隐藏该列并标记，但程序几乎判定所有列都存在不匹配问题，求排查原因并解决。

原VBA代码 #

Sub FindMisMatches()

    Columns("B:EE").Select
    Selection.EntireColumn.Hidden = True
    
    Dim SUMvalue As Variant
    Dim SQLvalue As Variant
    Dim COBOLvalue As Variant
    Dim MisMatch As String
    
    For i = 2 To 135
        MisMatch = "No"
        Cells(15, i).Value = ""
        SUMvalue = Cells(12, i).Value
        SQLvalue = Cells(13, i).Value
        COBOLvalue = Cells(14, i).Value
        If SUMvalue = SQLvalue Then
            'do nothing
        Else
            MisMatch = "Yes"
        End If
        If SUMvalue = COBOLvalue Then
            'do nothing
        Else
            MisMatch = "Yes"
        End If
        If SQLvalue = COBOLvalue Then
            'do nothing
        Else
            MisMatch = "Yes"
        End If
        If MisMatch = "Yes" Then
            Cells(15, i).Value = "XXXXX"
            Cells(12, i).Interior.ColorIndex = 3
            Cells(13, i).Interior.ColorIndex = 3
            Cells(14, i).Interior.ColorIndex = 3
            Cells(15, i).Select
            ActiveCell.EntireColumn.Hidden = False
        End If
    Next i
End Sub

表格情况 #

表格说明：第12行是上方10个单元格的SUM计算值，第13行是从SSMS获取的SQL数值，第14行是Snagit截图提取的COBOL数值，第15行用于标记不匹配列

排查原因 #

• 数值类型不统一：SUM值是Excel公式生成的数值类型，SQL值和截图提取的COBOL值大概率是文本格式的数字。VBA里直接用=比对时，数值和文本会被判定为不相等，比如123（数值）和"123"（文本）比对返回False。
• 浮点精度差异：如果是带小数的数值，SUM计算、SQL导出、截图提取的数值可能存在微小精度差（比如100.0000001和100），直接用=比对会判定不匹配。
• 空值/错误值干扰：如果某列的三个值里有空单元格或错误值（比如#N/A），=比对会返回False，直接触发不匹配标记。

解决代码及说明 #

修改后的VBA代码，统一处理类型、精度和错误值问题：

Sub FindMisMatches()
    ' 直接操作列，避免依赖选区
    Columns("B:EE").EntireColumn.Hidden = True
    
    Dim SUMvalue As Double
    Dim SQLvalue As Double
    Dim COBOLvalue As Double
    Dim MisMatch As Boolean
    Dim col As Integer
    
    ' 设置误差范围，处理浮点精度问题
    Const tolerance As Double = 0.0001
    
    For col = 2 To 135
        MisMatch = False
        Cells(15, col).Value = ""
        ' 重置单元格背景色，清除旧标记
        Cells(12, col).Interior.ColorIndex = xlColorIndexNone
        Cells(13, col).Interior.ColorIndex = xlColorIndexNone
        Cells(14, col).Interior.ColorIndex = xlColorIndexNone
        
        ' 跳过含错误值的列，避免误判
        If IsError(Cells(12, col).Value) Or IsError(Cells(13, col).Value) Or IsError(Cells(14, col).Value) Then
            MisMatch = True
        Else
            ' 统一转换为Double类型，解决文本/数值不匹配问题
            SUMvalue = CDbl(Cells(12, col).Value)
            SQLvalue = CDbl(Cells(13, col).Value)
            COBOLvalue = CDbl(Cells(14, col).Value)
            
            ' 用误差范围判断是否相等，替代直接=比对
            If Abs(SUMvalue - SQLvalue) > tolerance Or _
               Abs(SUMvalue - COBOLvalue) > tolerance Or _
               Abs(SQLvalue - COBOLvalue) > tolerance Then
                MisMatch = True
            End If
        End If
        
        If MisMatch Then
            Cells(15, col).Value = "XXXXX"
            Cells(12, col).Interior.ColorIndex = 3
            Cells(13, col).Interior.ColorIndex = 3
            Cells(14, col).Interior.ColorIndex = 3
            Columns(col).EntireColumn.Hidden = False
        End If
    Next col
End Sub

优化点 #

1. 去掉Select操作，直接操作列，提升代码稳定性和运行速度。
2. 用CDbl()把所有值转为Double类型，解决文本与数值类型不匹配的问题。
3. 添加tolerance常量，允许微小精度误差，避免浮点数值的误判。
4. 增加IsError()判断，跳过含错误值的列，避免无意义的标记。
5. 每次循环重置单元格背景色，避免之前的标记残留。

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