匹配两个列，并在第1列旁边的第1列旁边的列中匹配第2列的第1列

Question

尝试在VBA中解决此问题，我在这里检查了一些线程，但是无论我尝试的哪种变体我似乎都会遇到我无法解决的错误。

1张1 col A具有与纸2 col a匹配的值，如果匹配，则我想在1 col A中返回的值包含在2 col B中（col A旁边的单元格中的col A中的单元格）中。

目标是：

• Check Septh1 Col A VS Sheet2 Col A进行比赛。
• 如果匹配，则输出Sheet2 Col B（Sheep2 Col A偏移量（0，1））到Sheet1 Col B（（Seept1 Col A偏移量（0，1））。

因此，基本上要匹配Sheet1 Col A与Sheet2 Col A，输出匹配从Sheet2 Col B到Sheet1 Col B的行值

（我感谢有错误，只是尝试显示逻辑）：

'In this first one I'm trying to iterate through the rows to find the matches and then output offset 0,1 to offset 0,1

Sub loopMatch()

ReDim colA(1 To 22) As Variant
ReDim colB(1 To 27) As Variant

sheet1colA = Worksheets("sheet1").Range("A3:A25").Value
sheet2colA = Worksheets("sheet2").Range("A2:A27").Value

Dim rowCounter1 As Integer
Dim rowCounter2 As Integer
Dim valueFound As Boolean
Dim valueLost As String
valueLost = "The following item(s) are unmatched: "

For rowCounter1 = LBound(sheet1colA) To UBound(sheet1colA)
    
    For rowCounter2 = LBound(sheet2colA) To UBound(sheet2colA)
        If sheet2colA(rowCounter2, 1) = sheet1colA(rowCounter1, 1) Then
            valueFound = True
            Worksheets("sheet1colA").Offset(0, 1).Value = Worksheets("sheet2colA").Offset(0, 1).Value
        End If
        
    Next rowCounter2
        If valueFound = False Then
            valueLost = valueLost & sheet2colA(rowCounter1, 1) & "; "
        End If
    valueFound = False
    
Next rowCounter1

也尝试了类似的东西：

'This one is just a match search and attempt to output per offset

Sub LoopMatch1()

Dim match

match = Application.match(Worksheets("sheet1").Range("A3:A25").Value, Worksheets("sheet2").Range("A2:A27"), 0)

If Not IsError(match) Then
    Worksheets("sheet1").Range("A3:A25").Offset(0, 1).Value = Worksheets("sheet2").Range("A2:A27" & match).Offset(0, 1).Value
Else
    Worksheets("sheet1").Range("A3:A25").Offset(0, 1).Value = "Not Found"
End If

任何人对此有更好的了解？