如何在另一个工作簿中查找或检索所需数值？

在 VLOOKUP 函数中配置保存路径、文件名和工作表可能略显繁琐。本文将为您介绍一段 VBA 代码，轻松搞定这一难题。

1. 按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 单击插入> 模块，然后将下方的 VBA 代码粘贴到弹出的模块窗口中。

VBA：从另一个已关闭的工作簿中查找数据并返回值

Private Function GetColumn(Num As Integer) As String
If Num <= 26 Then
GetColumn = Chr(Num + 64)
Else
GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65)
End If
End Function
Sub FindValue()
Dim xAddress As String
Dim xString As String
Dim xFileName As Variant
Dim xUserRange As Range
Dim xRg As Range
Dim xFCell As Range
Dim xSourceSh As Worksheet
Dim xSourceWb As Workbook
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8)
If Err <> 0 Then Exit Sub
Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange)
xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook")
If xFileName = False Then Exit Sub
Application.ScreenUpdating = False
Set xSourceWb = Workbooks.Open(xFileName)
Set xSourceSh = xSourceWb.Worksheets.Item(1)
xString = "='" & xSourceWb.Path & Application.PathSeparator & _
"[" & xSourceWb.Name & "]" & xSourceSh.Name & "'!$"
For Each xRg In xUserRange
Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False)
If Not (xFCell Is Nothing) Then
xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row
End If
Next
xSourceWb.Close False
Application.ScreenUpdating = True
End Sub

注意此 VBA 会将结果返回到所选列右侧第 2 列。例如，若您在运行此 VBA 时选择了 B 列，结果将输出至 D 列。如需更改目标列，请找到以下代码：xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row，并将 2 替换为您所需的其他数字。

3. 按 F5 键，或单击运行按钮即可执行此 VBA。

4. 在弹出的对话框中，请指定要查找的数据区域，然后单击确定按钮。

5. 现在，在弹出的“选择工作簿”对话框中，请选择您要从中查找值的工作簿，然后单击打开按钮。

现在，所有选定的值均已从指定的已关闭工作簿中成功查找到，并已返回至指定列。请参见截图：