VBA 对比两行数据

Sub DB_Row()
    Dim i, j As Integer
    Dim row1, row2 As Integer
    row1 =     ' 对比第 3 行
    row2 =     '   和第 4 行

    For i =  To
        For j =  To
            If Cells(row1, i).Value = Cells(row2, j).Value Then
                If Cells(row2, j).Interior.ColorIndex <>  Then
                    Cells(row1, i).Interior.ColorIndex =
                    Cells(row2, j).Interior.ColorIndex =
                    Exit For
                End If
            End If
        Next j
    Next i
    For i =  To
        If Cells(row1, i).Interior.ColorIndex <>  Then
            Cells(row1, i).Interior.ColorIndex =
        End If
        If Cells(row2, i).Interior.ColorIndex <>  Then
            Cells(row2, i).Interior.ColorIndex =
        End If
    Next i
End Sub

--

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

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