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中调用