예를 들어 Excel에서 과일 구매 테이블을 만들고 이제 다른 통합 문서에서 과일을 vlookup하고 아래에 표시된 스크린 샷과 같이 해당 가격을 반환해야합니다. 여기서는 Excel의 VLOOKKUP 기능으로 해결하도록 안내합니다.

1. 값을 조회하고 값을 반환 할 통합 문서를 모두 엽니 다.

2. 가격을 반환 할 빈 셀을 선택하고 수식을 입력합니다. = VLOOKUP (B2, [Price.xlsx] Sheet1! $ A $ 1 : $ B $ 24,2, FALSE) 이 수식을 필요에 따라 범위에 적용하기 위해 채우기 핸들을 드래그합니다.

노트:
(1) 위 공식에서 B2는 다른 통합 문서에서 조회 할 과일, Price.xlsx는 조회 할 통합 문서의 파일 이름, Sheet1은 조회 할 시트 이름, A $ 1입니다. : $ B $ 24는 조회 할 범위입니다. 필요에 따라 변경할 수 있습니다.
(2) 조회 한 통합 문서를 닫으면 수식이 자동으로 업데이트됩니다. = VLOOKUP (B2, 'W : \ test \ [Price.xlsx] Sheet1'! $ A $ 1 : $ B $ 24,2, FALSE)에서 W : \ test \는 조회 한 통합 문서의 저장 경로입니다.

지금까지 모든 가격이 왼쪽 스크린 샷과 같이 올바르게 반환되었습니다. 그리고 이러한 가격은 원래 통합 문서가 변경되면 자동으로 업데이트됩니다.

수식이 너무 복잡해서 기억 나지 않습니까? 나중에 한 번만 클릭하여 재사용 할 수 있도록 수식을 자동 텍스트 항목으로 저장하십시오! 자세히보기 ...     test

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

1. 누르세요 다른 + 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

3. 누르세요 F5 키를 누르거나 달리기 버튼을 눌러이 VBA를 실행합니다.

4. 열기 대화 상자에서 조회 할 데이터 범위를 지정하고 OK 버튼을 클릭합니다.

5. 이제 Select a Workbook 대화 상자에서 값을 조회 할 통합 문서를 선택하고 엽니다 버튼을 클릭합니다.

이제 선택한 모든 값이 지정된 닫힌 통합 문서에서 조회되고 해당 값이 지정된 열에 반환됩니다. 스크린 샷보기 :