vlookup检索整个行而不是一个单元格

Question

我对下面的代码有一个问题，该代码使用Vlookup在2张纸中匹配第一列，然后将数据从第一个到第二个复制数据，但是我没有复制行中的所有数据，而是仅复制匹配列旁边的第一个单元格。我不知道问题在哪里，所以真正欢迎所有帮助。

Sub solution()

Dim oldRow As Integer
Dim newRow As Integer
Dim lrow_output As Integer  'variable indicating last fulfilled row
Dim WB_Input As Workbook
Dim WB_Output As Workbook
Dim WS_Input As Worksheet
Dim WS_Output As Worksheet
Dim funcStr As String

Set WB_Input = Workbooks("input")
Set WB_Output = Workbooks("output1")

Set WS_Input = WB_Input.Worksheets("input")
Set WS_Output = WB_Output.Worksheets("Sheet1")

With WS_Output
    lrow_output = .Cells(.Rows.Count, 1).End(xlUp).Row
End With

With WS_Input
    funcStr = "=IFERROR(VLOOKUP(" & Cells(1, 1).Address(False, False) & "," & "'[" & WB_Input.Name & "]" & .Name & "'!" & Range(.Columns(1), .Columns(2)).Address & ",2,0),"""")"
End With


With WS_Output
    .Cells(1, 2).Formula = funcStr
    .Cells(1, 2).Copy
    Range(.Cells(1, 2), .Cells(lrow_output, 2)).PasteSpecial xlPasteFormulas
    WS_Output.Calculate
    Range(.Cells(1, 2), .Cells(lrow_output, 2)).Copy
    Range(.Cells(1, 2), .Cells(lrow_output, 2)).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End With

End Sub