たとえば、Excelで果物購入テーブルを作成している場合、次のスクリーンショットに示すように、別のワークブックから果物をvlookupして、対応する価格を返す必要があります。 ここでは、ExcelのVLOOKKUP関数を使用して解決する方法を説明します。

1.値をvlookupするワークブックと戻り値の両方を開きます。

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 \は、検索したブックの保存パスです。

これまでのところ、左のスクリーンショットに示すように、すべての価格が正しく返されています。 また、これらの価格は、元のワークブックを変更した場合に自動的に更新されます。

数式は複雑すぎて覚えられませんか？ 数式を定型句として保存して、後でワンクリックで再利用できるようにします。 続きを読む...     無料体験

VLOOKUP関数で保存パス、ファイル名、およびワークシートを構成するのはごちゃごちゃしているかもしれません。 この方法では、VBAを導入して簡単に解決できます。

1。 プレス 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

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.ここで、[ブックの選択]ダイアログボックスを開いて値を検索するブックを選択し、[ブックの選択]をクリックしてください。 Open

これで、選択したすべての値が指定された閉じたブックで検索され、対応する値が指定された列に返されます。 スクリーンショットを参照してください：