比较 2 个文件时出现运行时错误“6”溢出

Question

我有下面的代码来比较两张纸之间的数据并突出显示差异。但它给了我一个

运行时错误'6'溢出

在compareSheets过程中，同时执行if条件。

有人可以帮我解决这个问题吗？

Sub RunCompare()
    'Call the compareSheets routine
    Call compareSheets("Sheet1", "Sheet2")
End Sub


Sub compareSheets(Sheet1 As String, Sheet2 As String)  
    Dim mycell As Range
    Dim mydiffs As Integer

    For Each mycell In ActiveWorkbook.Worksheets("Sheet2").UsedRange
        If Not mycell.Value = ActiveWorkbook.Worksheets("Sheet1").Cells(mycell.Row, mycell.Column).Value Then
            mycell.Interior.Color = vbYellow
            mydiffs = mydiffs + 1
        End If
    Next

    MsgBox mydiffs & " differences found", vbInformation
End Sub

Answer 1

您将 mydiffs 调暗为 integer，改为将其调暗为 long。发生的事情是数量超过了 32767。

另外，你的 sub 的一个问题（不会导致这个问题，但应该纠正）是你没有使用参数 Sheet1/2，而是使用字符串“Sheet1”/“Sheet2”，去掉下面的引号。

Sub compareSheets(Sheet1 As String, Sheet2 As String)  
    Dim mycell As Range
    Dim mydiffs As Long

    For Each mycell In ActiveWorkbook.Worksheets(Sheet2).UsedRange
        If Not mycell.Value = ActiveWorkbook.Worksheets(Sheet1).Cells(mycell.Row, mycell.Column).Value Then
            mycell.Interior.Color = vbYellow
            mydiffs = mydiffs + 1

        End If
    Next

    MsgBox mydiffs & " differences found", vbInformation
End Sub