VBA多Excel工作表对比报错求助：无效的Next控制变量引用

报错核心原因 #

1. For循环嵌套顺序错误：原代码中Next fone写在Next ftwo之前，嵌套循环必须遵循“先内层循环Next，再外层循环Next”的顺序，否则会触发该错误。
2. 变量类型不匹配：用Double类型存储工作表名称、数量，应该用String（存名称）和Long（存数量），避免类型转换错误。
3. 对象调用错误：
   • s1.Sheet(1)应为s1.Sheets(1)（正确的工作表集合调用）
   • ws1.Names是Excel名称管理器对象，不是工作表集合，遍历工作表要使用Worksheets集合
4. 逻辑结构混乱：代码末尾的Else没有对应的If，且工作表存在性检查逻辑完全错误。

修正后的完整代码 #

Option Explicit

Sub Compare_Two_Excel_Sheets()
    Dim Flag As Long
    Dim iR As Long, iC As Long, oRw As Long
    Dim iRow_M As Long, iCol_M As Long
    Dim wsCount1 As Long, wsCount2 As Long
    Dim s1 As Workbook, s2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim wsName As String
    Dim sheetExists As Boolean
    
    ' 打开文件时建议加ReadOnly，避免文件锁定
    Set s1 = Workbooks.Open(Filename:="File1_Path.xlsx", ReadOnly:=True)
    Set s2 = Workbooks.Open(Filename:="File2_Path.xlsx", ReadOnly:=True)
    
    wsCount1 = s1.Worksheets.Count
    wsCount2 = s2.Worksheets.Count
    
    ' 遍历第一个工作簿的所有工作表，检查是否在第二个工作簿存在
    For Each ws1 In s1.Worksheets
        sheetExists = False
        ' 重置标记，每个工作表单独统计差异
        Flag = 0
        ' 清除当前工作表原有黄色标记
        ws1.Cells.Interior.Color = xlNone
        
        ' 检查第二个工作簿是否有同名工作表
        For Each ws2 In s2.Worksheets
            If ws2.Name = ws1.Name Then
                sheetExists = True
                Exit For
            End If
        Next ws2
        
        If sheetExists Then
            ' 获取当前工作表的已用范围
            iRow_M = ws1.UsedRange.Rows.Count
            iCol_M = ws1.UsedRange.Columns.Count
            ' 清除对比工作表的原有黄色标记
            s2.Worksheets(ws1.Name).Cells.Interior.Color = xlNone
            
            ' 逐单元格对比
            For iR = 1 To iRow_M
                For iC = 1 To iCol_M
                    If ws1.Cells(iR, iC).Value <> s2.Worksheets(ws1.Name).Cells(iR, iC).Value Then
                        ws1.Cells(iR, iC).Interior.Color = vbYellow
                        s2.Worksheets(ws1.Name).Cells(iR, iC).Interior.Color = vbYellow
                        Flag = Flag + 1
                    End If
                Next iC
            Next iR
            
            ' 提示当前工作表的对比结果
            If Flag > 0 Then
                MsgBox "工作表【" & ws1.Name & "】存在差异，已标记黄色单元格！"
            Else
                MsgBox "工作表【" & ws1.Name & "】无差异！"
            End If
        Else
            ' 第二个工作簿无同名表，标黄当前工作表
            ws1.Cells.Interior.Color = vbYellow
            MsgBox "工作表【" & ws1.Name & "】仅在第一个文件中存在，已标黄！"
        End If
    Next ws1
    
    ' 遍历第二个工作簿的工作表，检查是否仅在第二个文件存在
    For Each ws2 In s2.Worksheets
        sheetExists = False
        For Each ws1 In s1.Worksheets
            If ws1.Name = ws2.Name Then
                sheetExists = True
                Exit For
            End If
        Next ws1
        
        If Not sheetExists Then
            ws2.Cells.Interior.Color = vbYellow
            MsgBox "工作表【" & ws2.Name & "】仅在第二个文件中存在，已标黄！"
        End If
    Next ws2
    
    ' 可选：关闭文件，根据需求决定是否保存
    ' s1.Close SaveChanges:=False
    ' s2.Close SaveChanges:=False
End Sub

关键修改说明 #

• 循环逻辑修正：改用For Each遍历工作表集合，更直观且避免索引错误
• 类型修正：所有计数类变量用Long，工作表名称用String，避免类型不兼容问题
• 存在性检查：通过嵌套For Each判断同名工作表是否存在，逻辑清晰
• 标记重置：每个工作表对比前清除原有黄色标记，避免历史标记干扰
• 错误结构修复：移除无对应If的Else，重构整个对比逻辑

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