如何用VBA跨工作表实现Vlookup功能？

5122213

  有两个工作簿，一个是《数据源》工作簿，里面有公司员工各年度考核结果表，另一个是《聘用花名册》，现要在《聘用花名册》的B列输入名字后，如果名字与《数据源》考核结果表姓名一致，则R、S、T三列自动将近三年考核结果录入（年度一定要对应）。要求用代码完成，谢谢！见附件：

lsc900707

简单的字典处理问题。类似案例很多，可先找找参考。

5122213

lsc900707 发表于 2017-11-10 10:17
简单的字典处理问题。类似案例很多，可先找找参考。

里面那个年度要对应，我做不出。

lsc900707

5122213 发表于 2017-11-10 11:43
里面那个年度要对应，我做不出。

Sub lqt()
    Set wb = GetObject(ThisWorkbook.Path & "\" & "数据源.xlsx")
    Set d = CreateObject("scripting.dictionary")
    With wb.Sheets(1)
        arr = .UsedRange
        For i = 4 To UBound(arr)
            For j = 5 To UBound(arr, 2)
                If arr(i, 2) <> "" Then
                    d(arr(i, 2) & arr(3, j)) = arr(i, j)
                End If
            Next
        Next
    End With
    brr = ActiveSheet.UsedRange
    For i = 4 To UBound(brr)
        For j = 18 To 20
           If d.exists(brr(i, 2) & brr(4, j)) Then
               Cells(i, j) = d(brr(i, 2) & brr(4, j))
           End If
        Next
    Next
    Set wb = Nothing
    Set d = Nothing
End Sub

lsc900707

5122213 发表于 2017-11-10 11:43
里面那个年度要对应，我做不出。

代码已上传，审核中，请稍后测试结果是否正确。

5122213

lsc900707 发表于 2017-11-10 13:01
代码已上传，审核中，请稍后测试结果是否正确。

谢谢！初步试用可行。正在转移到我的材料试试看。

于箱长

lsc900707 发表于 2017-11-10 12:57
Sub lqt()
    Set wb = GetObject(ThisWorkbook.Path & "\" & "数据源.xlsx")
    Set d = CreateObje ...

思路嘎嘎清晰，简单嘎嘎易学

ZY

于箱长 发表于 2022-2-16 22:10
思路嘎嘎清晰，简单嘎嘎易学

看看我的那个需求