Excel VBA工作表对比代码出现Type Mismatch错误，求解决方法

嘿，我来帮你搞定这个类型不匹配的问题！

这个错误大概率是因为你的两个工作表中存在错误值（比如#N/A、#VALUE!、#REF!这类），少数情况也可能是数据类型的隐性冲突（比如一个单元格是日期值，另一个是文本格式的日期）。当你直接用<>运算符去比较包含错误值的单元格时，VBA会抛出类型不匹配错误——错误值属于特殊的Variant子类型，无法和普通值甚至另一个错误值直接用这种方式比较。

修复方案 #

我们可以通过以下两步解决问题：

• 先用IsError()函数判断单元格是否包含错误值，避免直接对比错误值
• 显式声明所有变量（你的原代码中varSheetB未声明，虽然VBA会自动处理，但显式声明更规范，能避免潜在问题）

修改后的完整代码 #

Option Explicit

Sub Compare_Tracker()
    Dim varSheetA As Variant
    Dim varSheetB As Variant ' 显式声明这个变量
    Dim strRangeToCheck As String
    Dim iRow As Long
    Dim iCol As Long
    
    strRangeToCheck = "A12:K150"
    varSheetA = Worksheets("Main").Range(strRangeToCheck)
    varSheetB = Worksheets("Discrepancy Compare").Range(strRangeToCheck)
    
    For iRow = LBound(varSheetA, 1) To UBound(varSheetA, 1)
        For iCol = LBound(varSheetA, 2) To UBound(varSheetA, 2)
            ' 先判断是否有错误值
            If IsError(varSheetA(iRow, iCol)) Or IsError(varSheetB(iRow, iCol)) Then
                ' 逻辑：只有一个是错误值、另一个不是时才标黄；两个都是错误值视为相同
                If Not (IsError(varSheetA(iRow, iCol)) And IsError(varSheetB(iRow, iCol))) Then
                    Worksheets("Discrepancy Compare").Cells(iRow + 11, iCol).Interior.ColorIndex = 36
                End If
            Else
                ' 非错误值时再对比内容
                If varSheetA(iRow, iCol) <> varSheetB(iRow, iCol) Then
                    Worksheets("Discrepancy Compare").Cells(iRow + 11, iCol).Interior.ColorIndex = 36
                End If
            End If
        Next iCol
    Next iRow
End Sub

额外说明 #

• 代码中对错误值的处理逻辑可以根据你的需求调整：比如如果希望两个错误值也被视为差异，直接把错误值分支里的判断改成直接标黄即可。
• 因为你提到两个工作表格式完全一致，所以不需要额外处理数据格式转换，但如果后续遇到日期/文本格式的差异，可以用CStr()把值转成字符串后再对比。

内容的提问来源于stack exchange，提问作者Jay.Kel