匹配两列和 output 在列 1 旁边的列中从列 2 旁边的列

Question

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

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

目标是：

• 检查 Sheet1 Col A 与 Sheet2 Col A 是否匹配。
• 如果匹配，output Sheet2 Col B (Sheet2 Col A Offset(0, 1)) 到 Sheet1 Col B ((Sheet1 Col A Offset(0, 1))。

所以基本上要匹配 Sheet1 Col A 到 Sheet2 Col A，output 匹配从 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

有人对此有更好的想法吗？ VBA 相当新。