Сравнение листов 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