Excel工作表比较 – 任何顺序

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

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