Excel VBA：find匹配的组合键，然后比较其余的值
我有2个工作表，我需要在工作表B上find工作表A的复合键（列A，B和C）。如果匹配，我将继续比较其余的值（例如：DZ列）。 请注意，工作表B的行都混乱了。 这是我到目前为止所提出的。 不知何故，我认为我是这样做的时候search的关键，因为我不能得到特定的行匹配的地方是错误的方式。 有任何想法吗？ 帮助将不胜感激。
Public Sub compare() Dim RowCount As Long Dim StartRow As Integer Dim ColCount As Integer Dim StartCol As Integer Dim Key1, Key2, Key3 Dim Target1, Target2, Target3 If Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row > Sheets(3).Cells(Rows.Count, "A").End(xlUp).Row Then RowCount = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row Else RowCount = Sheets(3).Cells(Rows.Count, "A").End(xlUp).Row End If 'StartRow SearchVal = 1 For Each Cell In Sheets(2).Range("A1:A" & RowCount) If Cell.Value = SearchVal Then StartRow = Cell.Row End If Next Cell ColCount = Sheets(2).Cells(StartRow, Columns.Count).End(xlToLeft).Column StartCol = 1 For i = StartRow To RowCount If Application.CountA(Rows(i)) <> 0 Then Key1 = Sheets(2).Cells(i, 1).Value Key2 = Sheets(2).Cells(i, 2).Value Key3 = Sheets(2).Cells(i, 3).Value Set Target1 = Sheets(3).Columns(1).Find(Key1, LookIn:=xlValues, LookAt:=xlWhole) Set Target2 = Sheets(3).Columns(2).Find(Key2, LookIn:=xlValues, LookAt:=xlWhole) Set Target3 = Sheets(3).Columns(3).Find(Key3, LookIn:=xlValues, LookAt:=xlWhole) If Not Target1 Is Nothing And Not Target2 Is Nothing And Not Target3 Is Nothing Then For j = StartCol To ColCount 'compare each cell values Next j End If End If Next i End Sub 示例Excel表：
Eg: Worksheet2 ------------------------------ | | A | B | C | D | E | ------------------------------ | 1 | 03 | 5 | C | TextZ | A | ------------------------------ | 2 | 01 | 2 | 4 | TextZ | B | ------------------------------ | 3 | 01 | 2 | 4 | TextZ | C | ------------------------------ | 4 | 22 | T | N | TextZ | D | ------------------------------ Worksheet3 ------------------------------ | | A | B | C | D | E | ------------------------------ | 1 | 01 | 2 | 4 | TextZ | C | ------------------------------ | 2 | 01 | 2 | 4 | TextZ | D | ------------------------------ | 3 | 22 | T | N | TextZ | A | ------------------------------ | 4 | 03 | 5 | C | TextZ | B | ------------------------------
编辑：
Public Sub compare() Dim sh2 As Worksheet, sh3 As Worksheet Dim sh2Data As Variant Dim sh3DataA As Variant Dim sh3Data As Variant Dim i2 As Long, os3 As Long, i3 As Variant Dim DoSearch As Boolean Set sh2 = Sheets(2) Set sh3 = Sheets(3) With sh2 SearchVal = 1 For Each Cell In .Range("A1:A" & .Rows.Count) If Cell.Value = SearchVal Then StartRow = Cell.Row End If Next Cell sh2Data = .Range(.[G1], .Cells(.Rows.Count, 7).End(xlUp)).Resize(, 1) sh2Data1 = .Range(.[J1], .Cells(.Rows.Count, 10).End(xlUp)).Resize(, 1) sh2Data2 = .Range(.[O1], .Cells(.Rows.Count, 15).End(xlUp)).Resize(, 1) End With DoSearch = False For i2 = StartRow To UBound(sh2Data, 1) With sh3 sh3Data = .Range(.[G1], .Cells(.Rows.Count, 7).End(xlUp)).Resize(, 1) sh3Data1 = .Range(.[J1], .Cells(.Rows.Count, 10).End(xlUp)).Resize(, 1) sh3Data2 = .Range(.[O1], .Cells(.Rows.Count, 15).End(xlUp)).Resize(, 1) End With os3 = 0 Do i3 = Application.Match(sh2Data(i2, 1), sh3Data, 0) If Application.CountA(Rows(i2)) <> 0 Then If Not IsError(i3) Then ' Col G match If (sh2Data1(i2, 1) = sh3Data1(i3, 1)) And (sh2Data2(i2, 1) = sh3Data2(i3, 1)) Then ' Match Found Sheet(2) row i2 = Sheet(3) row i3 MsgBox "Match found sheet2 = " & i2 & ", sheet3 = " & i3 + os3 End If os3 = os3 + i3 If os3 + i3 < UBound(sh3Data, 1) Then With sh3 sh3Data = .Range(.Cells(i3 + 1, 1), .Cells(.Rows.Count, 7).End(xlUp)).Resize(, 1) sh3Data1 = .Range(.Cells(i3 + 1, 1), .Cells(.Rows.Count, 10).End(xlUp)).Resize(, 1) sh3Data2 = .Range(.Cells(i3 + 1, 1), .Cells(.Rows.Count, 15).End(xlUp)).Resize(, 1) End With DoSearch = True Else DoSearch = False End If Else DoSearch = False End If End If Loop Until Not DoSearch Next i2 End Sub
testing数据：
Worksheet2 ------------------------------ | | A | B.. | G.. | J..| O.. | ------------------------------ | 1 | 03 | zxc | 1 | 2 | 3 | ------------------------------ | 2 | 03 | zxc | 1 | 3 | 4 | ------------------------------ | 3 | 03 | zxc | 2 | 2 | 4 | ------------------------------ | 4 | 03 | zxc | 2 | 3 | 4 | ------------------------------ Worksheet3 ------------------------------ | | A | B.. | G.. | J..| O.. | ------------------------------ | 1 | 03 | zxc | 2 | 3 | 4 | ------------------------------ | 2 | 03 | zxc | 2 | 2 | 4 | ------------------------------ | 3 | 03 | zxc | 1 | 3 | 4 | ------------------------------ | 4 | 03 | zxc | 1 | 2 | 3 | ------------------------------ So basically sh2's 1 = sh3's = 4 sh2's 2 = sh3's = 3 sh2's 3 = sh3's = 2 sh2's 4 = sh3's = 1 & the msgbox only shows sh2's 3 = sh3's = 2 sh2's 4 = sh3's = 1
这里有几个问题：
例如， Rows和Columns的非限定引用指的是ActiveSheet上的对象
Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row
相当于
Sheets(2).Cells(Activesheet.Rows.Count, "A").End(xlUp).Row
你应该使用
Sheets(2).Cells(Sheets(2).Rows.Count, "A").End(xlUp).Row
不知道这是不是所有的问题（没有仔细分析）。 如果您还有问题，请回复
编辑
根据您在其他问题和您的评论中发布的数据，以下是对代码的重构
Public Sub compare() Dim sh2 As Worksheet, sh3 As Worksheet Dim sh2Data As Variant Dim sh3DataA As Variant Dim sh3Data As Variant Dim i2 As Long, i3 As Long Set sh2 = Sheets(2) Set sh3 = Sheets(3) With sh2 sh2Data = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3) End With With sh3 sh3DataA = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 1) sh3Data = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3) End With For i2 = 1 To UBound(sh2Data, 1) i3 = Application.Match(sh2Data(i2, 1), sh3DataA, 0) If Not IsError(rw) Then ' Col A match If (sh2Data(i2, 2) = sh3Data(i3, 2)) And (sh2Data(i2, 3) = sh3Data(i3, 3)) Then ' Match Found Sheet(2) row i2 = Sheet(3) row i3 End If End If Next End Sub
这将在Sheet（2）中的每一行的Sheet（3）中find第一个匹配项。 你需要继续寻找Sheet（2）行的更多匹配吗？ 如果是的话inheritance人另一个版本
Public Sub compare() Dim sh2 As Worksheet, sh3 As Worksheet Dim sh2Data As Variant Dim sh3DataA As Variant Dim sh3Data As Variant Dim i2 As Long, os3 As Long, i3 As Variant Dim DoSearch As Boolean Set sh2 = Sheets(2) Set sh3 = Sheets(3) With sh2 sh2Data = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3) End With DoSearch = False For i2 = 1 To UBound(sh2Data, 1) With sh3 sh3DataA = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 1) sh3Data = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3) End With os3 = 0 Do If UBound(sh3Data, 1) > 1 Then i3 = Application.Match(sh2Data(i2, 1), sh3DataA, 0) Else i3 = IIf(sh2Data(i2, 1) = sh3DataA, 1, CVErr(xlErrNA)) End If If Not IsError(i3) Then ' Col A match If (sh2Data(i2, 2) = sh3Data(i3, 2)) And (sh2Data(i2, 3) = sh3Data(i3, 3)) Then MsgBox "Match found sheet2 = " & i2 & ", sheet3 = " & i3 + os3 End If os3 = os3 + i3 If os3 < UBound(sh2Data, 1) Then With sh3 sh3DataA = .Range(.Cells(i3 + os3, 1), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 1) sh3Data = .Range(.Cells(i3 + os3, 1), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3) End With DoSearch = True Else DoSearch = False End If Else DoSearch = False End If Loop Until Not DoSearch Next End Sub
顺便说一下，请参阅本页 ，为什么要使用variant arrays而不是Find