Excel VBA工作表单元格数据对比失效，无报错仅弹出End提示

嘿，我一眼就揪出了核心问题——你的For循环语法完全写错了，这直接导致对比逻辑根本没执行，代码跳过所有循环直接跑到最后弹出"End"提示！

1. 最关键的错误：循环语法错误 #

你原来的循环写法是：

For i2 = 1 To i2 = 31
For i1 = 1 To i1 = 27

这完全不符合VBA的For循环语法规范！正确的写法应该是 For 变量 = 起始值 To 终止值，你把终止值写成了i2=31这种判断语句，这个表达式会返回布尔值（True=-1，False=0），所以循环根本不会执行哪怕一次。

修正后的循环应该是：

For i2 = 1 To 31
    For i1 = 1 To 27
        ' 你的对比逻辑
    Next i1 ' 最好加上变量名，代码可读性更好
Next i2

2. 额外的优化与避坑建议 #

除了循环问题，还有几个点能让你的代码更健壮：

• 先检查工作表是否存在：如果用户输入的工作表名称有误（比如大小写不对、打错字），代码会隐性失败，所以提前加个验证：

  Dim ws1 As Worksheet, ws2 As Worksheet
  On Error Resume Next
  Set ws1 = ThisWorkbook.Worksheets(UserForm2.TextBox1.Value)
  Set ws2 = ThisWorkbook.Worksheets(UserForm2.TextBox2.Value)
  On Error GoTo 0
  
  If ws1 Is Nothing Or ws2 Is Nothing Then
      MsgBox "输入的工作表名称不存在，请检查！"
      Exit Sub
  End If
  

• 避免数值与文本的比较差异：如果单元格里是文本型数字（比如"123"）和数值型数字（123），直接用<>会判定为不同，建议统一转成文本再比较：

  If CStr(ws1.Cells(i1, i2).Value) <> CStr(ws2.Cells(i1, i2).Value) Then
  

完整修正后的代码 #

Option Explicit
Private Sub CommandButton1_Click()
    '//this macro checks whether two sheet's data is correspondent.
    Dim i1 As Integer
    Dim i2 As Integer
    Dim ws1 As Worksheet, ws2 As Worksheet
    
    ' 验证输入的工作表是否存在
    On Error Resume Next
    Set ws1 = ThisWorkbook.Worksheets(UserForm2.TextBox1.Value)
    Set ws2 = ThisWorkbook.Worksheets(UserForm2.TextBox2.Value)
    On Error GoTo 0
    
    If ws1 Is Nothing Or ws2 Is Nothing Then
        MsgBox "输入的工作表名称不存在，请检查！"
        Exit Sub
    End If
    
    ' 修正循环逻辑，遍历指定行列范围
    For i2 = 1 To 31
        For i1 = 1 To 27
            ' 统一转成文本比较，避免数值/文本差异
            If CStr(ws1.Cells(i1, i2).Value) <> CStr(ws2.Cells(i1, i2).Value) Then
                ' 优化提示信息，更清晰易读
                MsgBox "第 " & i1 & " 行，第 " & i2 & " 列内容不一致：" & vbCrLf _
                & ws1.Name & " 工作表：" & ws1.Cells(i1, i2).Value & vbCrLf _
                & ws2.Name & " 工作表：" & ws2.Cells(i1, i2).Value
            End If
        Next i1
    Next i2
    
    MsgBox "对比完成！"
End Sub

代码修改说明 #

1. 修复了For循环的语法错误，让对比逻辑正常执行
2. 添加工作表存在性检查，提前拦截无效输入
3. 用vbCrLf替代Chr(13) & Chr(10)，代码更简洁
4. 优化了提示信息的表述，让差异位置更明确
5. 统一转文本比较，避免数值与文本型数值的误判

内容的提问来源于stack exchange，提问作者박영종