Как искать/находить значения в другой книге?

Может быть немного сложно настроить путь сохранения, имя файла и рабочий лист в функции VLOOKUP. Этот метод представляет VBA для простого решения.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Insert > Module, затем вставьте следующий код 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 столбца правее выбранного столбца. Например, если я выбираю столбец B при применении этого VBA, значения вернутся в столбец D. Если вам нужно изменить целевой столбец, найдите код xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row , и замените 2 на другое число по вашему усмотрению.

3. Нажмите клавишу F5 или кнопку Run, чтобы запустить этот VBA.

4. В открывшемся диалоговом окне укажите диапазон данных, по которому вы будете выполнять поиск, и нажмите кнопку OK кнопку.

5. Теперь выберите книгу, из которой вы будете искать значения в открывшемся диалоговом окне Select a Workbook, и нажмите кнопку Open кнопку.

Теперь все выбранные значения найдены в указанной закрытой книге, и соответствующие значения возвращаются в указанный столбец. См. скриншот: