Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim d, wb As Workbook, ar

Set d = CreateObject("Scripting.Dictionary")

Set wb = GetObject(ThisWorkbook.Path & "\Book1.xlsx")

Application.ScreenUpdating = False

ar = wb.Sheets(1).Range("A1").CurrentRegion

wb.Close 0

For i = 2 To UBound(ar)

d(ar(i, 1)) = Array(ar(i, 2), ar(i, 3))

Next

For i = 2 To [b65536].End(3).Row

Cells(i, 3).Resize(1, 2) = d(Cells(i, 2).Value)

Next

Application.ScreenUpdating = True

End Sub

输入单元格触发

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

d(ar(i, 1)) = Array(ar(i, 2), ar(i, 3))

d(ar(i, 1)) = Array(ar(i, 2), ar(i, 3))   → d(ar(i, 1)) = Array(ar(i, 2), ar(i, 2)

d(ar(i, 1)) = Array(ar(i, 2), ar(i, 3))  → d(ar(i, 1)) = Array(ar(i,1), ar(i, 3))

Cells(i, 3).Resize(1, 2) = d(Cells(i, 2).Value) → Cells(i, 3).Resize(1, 2) = d(Cells(i, 1).Value)

Cells(i, 3).Resize(1, 2) = d(Cells(i,2).Value) → Cells(i, 3).Resize(1, 3) = d(Cells(i,2).Value)

Cells(i, 3).Resize(1, 2) = d(Cells(i, 2).Value) → Cells(i, 3).Resize(2, 2) = d(Cells(i, 2).Value)

Cells(i, 3).Resize(1, 2) = d(Cells(i, 2).Value) → Cells(i, 4).Resize(1, 2) = d(Cells(i, 2).Value)