匹配数据不同的工作簿和不同的顺序

我试图匹配来自2个不同的工作表和2个不同的工作簿的名称数据。 而且我已经创build了macrosvba。 但是这个macros是数据types相同时的数据types，如果数据不是同一个顺序呢？

名称数据的例子

In first workbook Name Andre Renata Marie In second workbook Name Andre Marie Renata 

使用我的macros，上述数据的结果不匹配。 但是我想要以上数据的结果是MATCH。

这是我的macrosvba

 Sub matchdata_Click() Dim rng1 As Range, rng2 As Range Dim iRow As Long Dim diffs As String With Workbooks("A.xls").Worksheets("1") Set rng1 = .Range("A1", .Cells(.Rows.Count, "A").End(xlUp)) End With With Workbooks("B.xlsx").Worksheets("1") Set rng2 = .Range("M3", .Cells(.Rows.Count, "M").End(xlUp)) End With For iRow = 1 To WorksheetFunction.Max(rng1.Rows.Count, rng2.Rows.Count) If rng1(iRow) <> rng2(iRow) Then diffs = diffs & iRow & vbLf Next If diffs <> "" Then MsgBox "Different name in rows:" & vbCrLf & vbCrLf & diffs Else MsgBox "All names match" End If 

请帮助我，如果你知道如何做到这一点

Answer 1

一个小的可能的解决scheme，没有范围（和细胞coodinates可以根据您的需要改变）：

 Option Explicit Sub check() Dim i As Integer, j As Integer Dim found As Boolean i = 1 While Workbooks("A.xls").Sheets(1).Cells(i, 1).Value <> "" j = 1 found = False While Workbooks("B.xls").Sheets(2).Cells(j, 13).Value <> "" If Workbooks("A.xls").Sheets(1).Cells(i, 1).Value = Workbooks("B.xls").Sheets(2).Cells(j, 13).Value Then found = True j = j + 1 Wend If found = False Then Workbooks("A.xls").Sheets(1).Cells(i, 1).Interior.ColorIndex = 3 End If i = i + 1 Wend End Sub