VBA 对比两行数据

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

 --

http://ych4943.blog.163.com/blog/static/376967502012842360885/

http://blog.csdn.net/qwlovedzm/article/details/44261101 封装DLL组件并在EXCEL中调用

 

转载于:https://www.cnblogs.com/z5337/p/4414102.html