Excel工作表比较 - 任何订单

Question

我正在寻找一种方法来比较一个Excel工作表与另一个。 有没有办法比较整个记录，而不考虑记录的顺序？

Answer 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