Vba Vlookup函数带串联的多个电子表格

救命啊，我好像没法让这辆车开动。试图将多个电子表格合并到第三个电子表格中。我使用每个工作表中连接的列作为参考和目标范围，然后填充第三个工作表中的值，该工作表具有前两个的所有列标题。连接工作非常完美，第三张工作表中每个单元格中的数据填充是正确的，因为我用随机字符测试了这个问题，但vlookup始终失败1004错误，当我坚持执行错误恢复下一步时，我什么也得不到。我已经花了10个小时试图解决这个问题，所以任何帮助都将不胜感激

'接下来准备每个工作表（MyT&E&MyShop）中的数据进行比较 '使用报告编号/发票ID、报销金额/金额、报销货币/货币、总账账户/账户

Dim theRange As String
Dim LastRow As Long
Dim Lastcol As Long
Dim Firstrow As Long
Dim Firstcol As Long

Sheets("MYSHOP").Select
LastrowMYSHOP = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
LastColMYSHOP = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
theRange = ("A3:" & "A" & LastrowMYSHOP)

Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Select
ActiveCell.FormulaR1C1 = "Concatenate"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(right(RC8,7),RC6,RC12,RC11)"
Selection.AutoFill Destination:=Range(theRange)
Range(theRange).Select
Columns("A:A").EntireColumn.AutoFit

Sheets("MYTE").Select
LastrowMYTE = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
LastcolMYTE = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
theRange = ("A2:" & "A" & LastrowMYTE)

Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "Concatenate"
Range("A2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC5,RC15,RC18,RC19)"
Selection.AutoFill Destination:=Range(theRange)
Range(theRange).Select
Columns("A:A").EntireColumn.AutoFit

'接下来执行查找

Sheets("Consolidate").Select
Firstrow = 6
Firstcol = 26
LastrowConsolidate = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
LastcolConsolidate = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column

Dim ws1, ws2, ws3 As Worksheet
Dim TargetRange As Range
Dim RefRange As Range

Set ws1 = Sheets("MYTE")
Set ws2 = Sheets("MYSHOP")
Set ws3 = Sheets("Consolidate")

Set RefRange = ws1.Range("A2:" & "A" & LastrowMYTE)
Set TargetRange = ws2.Range("A3:" & "AD" & LastrowMYSHOP)

    On Error Resume Next
    LastColMYSHOP = LastColMYSHOP + 1 'Allow for the additional concatenation column
    For i = 2 To LastColMYSHOP
        For Each cl In RefRange
            Result = Application.WorksheetFunction.VLookup(cl, TargetRange, i, False)
            ws3.Cells(Firstrow, Firstcol).Value = Result
            Firstrow = Firstrow + 1
        Next cl
        Firstrow = 6
        Firstcol = Firstcol + 1
    Next i