다른 워크북에서 값을 조회/찾는 방법은 무엇입니까?

VLOOKUP 함수에서 저장 경로, 파일 이름 및 워크시트를 구성하는 것이 약간 혼란스러울 수 있습니다. 이 방법에서는 이를 쉽게 해결할 수 있는 VBA를 소개합니다.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭한 다음 아래 VBA 코드를 열린 모듈 창에 붙여넣습니다.

VBA: 닫힌 워크북에서 데이터를 VLOOKUP하고 값 반환하기

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. 이제 열리는 '워크북 선택' 대화 상자에서 조회할 워크북을 선택하고 열기 버튼을 클릭합니다.

이제 선택한 모든 값이 지정된 닫힌 워크북에서 조회되었으며, 해당 값은 지정된 열에 반환됩니다. 스크린샷을 참조하십시오.