배열에서 두 가지 기준을 일치시키는 방법은 무엇입니까?

Question

이 문제와 관련하여 귀하의 도움이 정말로 필요합니다.

오류도 없고 모든 것이 원활하게 작동하고 있습니다....

필요한 것은 1대 1 열 일치를 제외하고 2대 2 열 일치가 필요하다는 것입니다.

소스 시트의 A열을 대상 시트의 G열에(이미 여기에 있음) 소스 시트의 B열과 대상 시트의 H열에도 추가하고 싶습니다.

요약: 소스 시트(A & B)의 2열을 대상 시트(G & H)의 2열과 일치시킵니다.

내 질문이 있길 바라요? 감사해요!

코드의 첫 번째 부분: 문제 없음

Sub Get_Data()

Const NUM_DATA_COLS As Long = 4

Dim SourceSheet As Worksheet, TargetSheet As Worksheet
Set SourceSheet = GetWorkbook(Source).Worksheets("Data")
Set TargetSheet = ThisWorkbook.Worksheets("Sheet2")

Dim SourceLastRow As Long, TargetLastRow As Long
SourceLastRow = SourceSheet.Cells(Rows.Count, 1).End(xlUp).Row
TargetLastRow = TargetSheet.Cells(Rows.Count, 1).End(xlUp).Row

Dim Primary_Fields(1 To NUM_DATA_COLS), Foreign_Fields(1 To NUM_DATA_COLS), n As Long
Dim i As Long, v, m

Dim rngPrimary_Key As Range 
Dim Foreign_Key As Variant 

코드의 두 번째 부분:

2개 열을 2개 열과 일치시키기 위해 다른 (rngPrimary_Key2) 및 (Foreign_Key2)를 추가하는 방법

나는 Set rngPrimary_Key = SourceSheet.Range("A2:A" & SourceLastRow) Foreign_Key = TargetSheet.Range("G2:G" & TargetLastRow).Value와 일치합니다.

이를 일치 기준에 추가해야 합니다.
Set rngPrimary_Key2 = SourceSheet.Range("B2:B" & SourceLastRow)
Foreign_Key2 = TargetSheet.Range("H2:H" & TargetLastRow).Value

^- 이 두 열이 두 시트 모두에서 일치하는 경우 하나의 열만 일치하는 대신 배열에 저장합니다.

Set rngPrimary_Key = SourceSheet.Range("A2:A" & SourceLastRow)
Foreign_Key = TargetSheet.Range("G2:G" & TargetLastRow).Value

For n = 1 To NUM_DATA_COLS
    Primary_Fields(n) = SourceSheet.Range("B2:B" & SourceLastRow).Offset(0, n - 1).Value
    Foreign_Fields(n) = EmptyCopy(Foreign_Key) 'empty array for results
Next n

' get matching rows and copy values to arrays
For i = LBound(Foreign_Key, 1) To UBound(Foreign_Key, 1)
    v = Foreign_Key(i, 1)
    m = Application.Match(v, rngPrimary_Key, 0)
    If Not IsError(m) Then            'check got a match
        For n = 1 To NUM_DATA_COLS
            Foreign_Fields(n)(i, 1) = Primary_Fields(n)(m, 1)
        Next n
    End If
Next i

' / Write (Keys-IndexMatch) in Range offset Foreign_Field_1 2
Place2DArray TargetSheet.Range("H2"), Foreign_Fields(1)
Place2DArray TargetSheet.Range("i2"), Foreign_Fields(2)
Place2DArray TargetSheet.Range("J2"), Foreign_Fields(3)
Place2DArray TargetSheet.Range("K2"), Foreign_Fields(4)

End Sub

내 질문과 관련이없는 나머지 코드

'return an empty array of same dimensions as 'arr'

 Function EmptyCopy(arr)
Dim rv
ReDim rv(LBound(arr, 1) To UBound(arr, 1), LBound(arr, 2) To UBound(arr, 2))
EmptyCopy = rv
End Function

'copy a 1-based 2-d array 'arr' to a worksheet, starting at cell 'c'
Sub Place2DArray(c As Range, arr)
c.Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub