我正在寻找一种方法来比较一张Excel表格和另一张表格。 有没有办法比较整个记录,而不考虑记录的顺序?
答案 0 :(得分:1)
我认为这样可行......根据宽度,可能需要对列进行一些修改。
Private Sub CompareSheets()
Dim first_index As Integer
Dim last_index As Integer
Dim sheet1 As Worksheet
Dim sheet2 As Worksheet
Dim r1 As Integer
Dim r2 As Integer
Dim found As Boolean
Set sheet1 = Worksheets(1)
Set sheet2 = Worksheets(2)
Application.ScreenUpdating = False
first_index = 1
last_index = sheet1.Range("a" & Rows.Count).End(xlUp).Row
For r2 = first_index To last_index
found = False
For r1 = first_index To last_index
If sheet1.Cells(r1, 16) = sheet2.Cells(r2, 9) Then
' Found match.
found = True
Exit For
End If
Next r1
If Not found Then
' Do something if the if we did not find it???
End If
Next r2
Application.ScreenUpdating = True
End Sub