如何用VBA逐单元格对比Excel两个工作表的行内容？

原代码的问题 #

1. 未更新Range变量：RangeSheet1.Offset(0,1)仅计算偏移单元格，但未通过Set重新赋值给原变量，导致循环始终对比A1单元格，要么死循环（A1相等时），要么直接触发提示（A1不等时）。
2. 无循环终止条件：即便修正偏移赋值，代码也会一直对比到Excel最后一列，造成无效运算。

修正后的代码方案 #

方案1：自动对比至空单元格 #

适合不确定需要对比的列数，以空单元格作为终止标记：

Dim RangeSheet1 As Range, RangeSheet2 As Range

Set RangeSheet1 = Worksheets("Sheet1").Range("A1")
Set RangeSheet2 = Worksheets("Sheet2").Range("A1")

' 循环对比：内容相同且当前单元格非空时继续
Do While RangeSheet1.Value = RangeSheet2.Value And Not IsEmpty(RangeSheet1.Value)
    ' 更新Range变量到下一列
    Set RangeSheet1 = RangeSheet1.Offset(0, 1)
    Set RangeSheet2 = RangeSheet2.Offset(0, 1)
Loop

' 判断终止原因并给出提示
If Not IsEmpty(RangeSheet1.Value) Then
    MsgBox "Cells are not the same at " & RangeSheet1.Address(External:=True) & " and " & RangeSheet2.Address(External:=True)
Else
    MsgBox "All compared cells are the same."
End If

方案2：指定列范围遍历 #

已知需对比的列范围时（如A到Z列），用For循环更高效：

Dim col As Integer
Dim ws1 As Worksheet, ws2 As Worksheet

Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

' 遍历第1行的1到26列（A-Z）
For col = 1 To 26
    If ws1.Cells(1, col).Value <> ws2.Cells(1, col).Value Then
        MsgBox "Cells are not the same at " & ws1.Cells(1, col).Address & " and " & ws2.Cells(1, col).Address
        Exit For ' 找到第一个差异后立即退出循环
    End If
Next col

关键修正点 #

• 使用Set关键字更新Range变量，确保每次循环移动到下一列。
• 增加循环终止条件，避免无限循环。
• 补充差异位置的提示信息，方便定位问题。

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