对比两行数据，不同的用颜色标出来

ks331

要对比第3行和第4行，第5行对比第6行，以此类推，两行之间不同的用颜色标出来。找一段代码，只会对比第3行和第4行，其他的不会执行，请各位老师帮看一下，谢谢！
Sub DB_Row()
    Dim i, j As Integer
    Dim row1, row2 As Integer
    row1 = 3    ' 对比第 3 行
    row2 = 4    '   和第 4 行
   
    For i = 1 To 256
        For j = 1 To 256
            If Cells(row1, i).Value = Cells(row2, j).Value Then
                If Cells(row2, j).Interior.ColorIndex <> 36 Then
                    Cells(row1, i).Interior.ColorIndex = 35
                    Cells(row2, j).Interior.ColorIndex = 36
                    Exit For
                End If
            End If
        Next j
    Next i
    For i = 1 To 256
        If Cells(row1, i).Interior.ColorIndex <> 35 Then
            Cells(row1, i).Interior.ColorIndex = 46
        End If
        If Cells(row2, i).Interior.ColorIndex <> 36 Then
            Cells(row2, i).Interior.ColorIndex = 46
        End If
    Next i
End Sub

ks331

Sub DB_Row()
    Dim i, j As Integer
    Dim row1, row2 As Integer
    row1 = 3    ' 对比第 3 行
    row2 = 4    '   和第 4 行
   
    For i = 1 To 256
        For j = 1 To 256
            If Cells(row1, i).Value = Cells(row2, j).Value Then
                If Cells(row2, j).Interior.ColorIndex <> 36 Then
                    Cells(row1, i).Interior.ColorIndex = 35
                    Cells(row2, j).Interior.ColorIndex = 36
                    Exit For
                End If
            End If
        Next j
    Next i
    For i = 1 To 256
        If Cells(row1, i).Interior.ColorIndex <> 35 Then
            Cells(row1, i).Interior.ColorIndex = 46
        End If
        If Cells(row2, i).Interior.ColorIndex <> 36 Then
            Cells(row2, i).Interior.ColorIndex = 46
        End If
    Next i
End Sub

ks331

请各位老师指导帮助一下。谢谢！

乐乐2006201505

ks331 发表于 2018-1-22 23:31
刚刚发的代码乱了，正确的是这个。Sub DB_Row()
    Dim i, j As Integer
    Dim row1, row2 As Integer ...

简化为下面代码即可，不用那么多判断，下面代码一次性到位。
Sub DB_Row()
    Dim i, j As Integer
    Dim row1, row2 As Integer
    r = Cells(Rows.Count, 1).End(3).Row
    c = Cells(1, Columns.Count).End(1).Column
    For row1 = 3 To r Step 2
        row2 = row1 + 1
        For i = 1 To c
            If Cells(row1, i).Value <> Cells(row2, i).Value Then
                Cells(row1, i).Interior.ColorIndex = 46
                Cells(row2, i).Interior.ColorIndex = 46
            End If
        Next i
    Next
End Sub

曹银强

楼主最好能上附件

liulang0808

1. Sub 按钮22_Click()
   
2.     arr = ActiveSheet.UsedRange
   
3.     Set Rng = Nothing
   
4.     Application.ScreenUpdating = False
   
5.     For j = 3 To UBound(arr) - 1 Step 2
   
6.         For i = 1 To UBound(arr, 2)
   
7.             If arr(j, i) <> arr(j + 1, i) Then
   
8.                 If Rng Is Nothing Then
   
9.                     Set Rng = Cells(j, i).Resize(2)
   
10.                 Else
    
11.                     Set Rng = Union(Rng, Cells(j, i).Resize(2))
    
12.                 End If
    
13.             End If
    
14.         Next i
    
15.     Next j
    
16.     If Not Rng Is Nothing Then Rng.Interior.ColorIndex = 3
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

ks331

乐乐2006201505 发表于 2018-1-23 00:15
简化为下面代码即可，不用那么多判断，下面代码一次性到位。
Sub DB_Row()
    Dim i, j As Integer

谢谢老师帮助。

ks331

liulang0808 发表于 2018-1-23 07:13

谢谢版主帮助。

zyhui1961

这个很好，能解释一下代码吗？谢谢