Ví dụ: bạn đang tạo bảng Mua trái cây trong Excel, và bây giờ bạn cần xem lại trái cây từ một sổ làm việc khác và trả về giá tương ứng như ảnh chụp màn hình bên dưới. Sau đây mình sẽ hướng dẫn các bạn giải quyết bằng hàm VLOOKKUP trong Excel.

1. Mở cả hai sổ làm việc mà bạn sẽ vlookup các giá trị từ đó và trả về các giá trị trong đó.

2. Chọn một ô trống mà bạn sẽ trả về giá, nhập công thức = VLOOKUP (B2, [Price.xlsx] Trang tính 1! $ A $ 1: $ B $ 24,2, FALSE) vào đó, và sau đó kéo Fill Handle của nó để áp dụng công thức này cho phạm vi khi bạn cần.

Có thể hơi nhầm lẫn khi định cấu hình đường dẫn lưu, tên tệp và trang tính trong hàm VLOOKUP. Phương pháp này sẽ giới thiệu một VBA để giải quyết nó một cách dễ dàng.

1. Nhấn nút Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp vào Chèn > Mô-đun, rồi dán mã VBA bên dưới vào cửa sổ mô-đun đang mở.

VBA: Dữ liệu Vlookup và trả về giá trị từ một sổ làm việc đã đóng khác

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

Chú thích: VBA này sẽ trả về các giá trị trong một cột nằm sau cột đã chọn 2 cột. Ví dụ: tôi chọn cột B khi áp dụng VBA này, các giá trị sẽ trả về trong Cột D. Nếu bạn cần thay đổi cột đích, vui lòng tìm hiểu mã xRg.Offset (0, 2) .Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row và thay thế 2 đến số khác khi bạn cần.

3. Nhấn nút F5 phím hoặc nhấp vào chạy để chạy VBA này.

4. Trong hộp thoại mở, vui lòng chỉ định phạm vi dữ liệu mà bạn sẽ tra cứu và nhấp vào OK .

5. Bây giờ, hãy chọn sổ làm việc mà bạn sẽ tra cứu các giá trị trong hộp thoại Mở Chọn một Sổ làm việc và nhấp vào Mở .

Bây giờ tất cả các giá trị đã chọn được tra cứu trong sổ làm việc đã đóng được chỉ định và các giá trị tương ứng được trả về ở cột đã chỉ định. Xem ảnh chụp màn hình: