如何在VBA中遍历两个工作表的多列并逐行对比？

要实现多列逐行对比，只需要在原有行循环外层再加一个列循环，用变量控制当前对比的列即可。以下是修改后的完整代码：

Dim i As Long, j As Long
Dim s1 As Worksheet, s2 As Worksheet ' 修正声明，确保两个变量都是Worksheet类型

Set s1 = Worksheets("sheet1")
Set s2 = Worksheets("sheet2")

' 获取sheet1中最后一个有数据的列号
Dim lastCol As Long
lastCol = s1.Cells(1, Columns.Count).End(xlToLeft).Column

' 列循环：从第2列（B列）遍历到最后一列
For j = 2 To lastCol
    ' 行循环：从第2行开始遍历
    For i = 2 To Rows.Count
        ' 如果当前单元格为空，跳出该行循环，进入下一列
        If IsEmpty(s1.Cells(i, j)) Then
            Exit For
        End If
        ' 对比两个工作表同一位置的单元格
        If s1.Cells(i, j).Value <> s2.Cells(i, j).Value Then
            s1.Cells(i, j).Interior.Color = vbYellow
        End If
    Next i
Next j

关键修改说明 #

• 新增j作为列循环变量，用Cells(i,j)替代固定的Range("B"&i)，j每递增1就自动切换到下一列
• 通过lastCol动态获取sheet1的最后一列，无需硬编码列数，适配不同数据量
• 修正变量声明：原代码中Dim s1, s2 As Worksheet仅s2为Worksheet类型，s1是Variant类型，修改后确保两个变量都正确声明为工作表类型

如果需要指定固定列范围（比如只对比B到D列），只需把For j = 2 To lastCol改成For j = 2 To 4即可。

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