Bỏ qua nội dung chính

Làm cách nào để vlookup và nối nhiều giá trị tương ứng trong Excel?

Như chúng ta đã biết, Vlookup trong Excel có thể giúp chúng ta tra cứu một giá trị và trả về dữ liệu tương ứng trong một cột khác, nhưng nói chung, nó chỉ có thể lấy giá trị tương đối đầu tiên nếu có nhiều dữ liệu khớp. Trong bài viết này, tôi sẽ nói về cách vlookup và nối nhiều giá trị tương ứng chỉ trong một ô hoặc một danh sách dọc.

Vlookup và trả về nhiều giá trị phù hợp theo chiều dọc với công thức

Vlookup và nối nhiều giá trị phù hợp trong một ô với Hàm do Người dùng Xác định

Vlookup và nối nhiều giá trị phù hợp trong một ô với Kutools cho Excel


Giả sử, tôi có dải dữ liệu sau, để nhận tất cả các giá trị tương ứng dựa trên một giá trị cụ thể theo chiều dọc như hình minh họa sau đây, bạn có thể áp dụng công thức mảng.

doc vlookup nối 1

1. Nhập công thức này: =IF(COUNTIF($A$1:$A$16,$D$2)>=ROWS($1:1),INDEX($B$1:$B$16,SMALL(IF($A$1:$A$16=$D$2,ROW($1:$16)),ROW(1:1))),"") vào một ô trống nơi bạn muốn đặt kết quả, ví dụ: E2, rồi nhấn Ctrl + Shift + Enter các phím với nhau để nhận giá trị tương đối dựa trên một tiêu chí cụ thể, xem ảnh chụp màn hình:

doc vlookup nối 2

Chú thích: Trong công thức trên:

A1: A16 là phạm vi cột chứa giá trị cụ thể bạn muốn tìm kiếm;

D2 cho biết giá trị cụ thể bạn muốn vlookup;

B1: B16 là dải cột mà bạn muốn trả về dữ liệu tương ứng;

$ 1: $ 16 cho biết tham chiếu hàng trong phạm vi.

2. Sau đó, chọn ô E2 và kéo chốt điền xuống các ô cho đến khi bạn nhận được các ô trống và tất cả các giá trị phù hợp được liệt kê vào cột như hình minh họa sau:

doc vlookup nối 3


Thay vì nhận các giá trị tương đối theo chiều dọc, đôi khi, bạn muốn các giá trị phù hợp vào một ô và nối chúng bằng một dấu phân tách cụ thể. Trong trường hợp này, Hàm do Người dùng Xác định sau đây có thể giúp ích cho bạn.

1. Giữ phím tắt ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Vlookup và nối nhiều giá trị phù hợp trong một ô

Function CusVlookup(lookupval, lookuprange As Range, indexcol As Long)
'updateby Extendoffice
Dim x As Range
Dim result As String
result = ""
For Each x In lookuprange
    If x = lookupval Then
        result = result & " " & x.Offset(0, indexcol - 1)
    End If
Next x
CusVlookup = result
End Function

3. Sau đó, lưu và đóng mã này, quay lại trang tính và nhập công thức này: = cusvlookup (D2, A1: B16,2) vào một ô trống nơi bạn muốn đặt kết quả và nhấn đăng ký hạng mục thi , tất cả các giá trị tương ứng dựa trên một dữ liệu cụ thể đã được trả lại vào một ô có dấu cách, xem ảnh chụp màn hình:

doc vlookup nối 4

Chú thích: Trong công thức trên: D2 cho biết các giá trị ô mà bạn muốn tra cứu, A1:B16 là phạm vi dữ liệu mà bạn muốn tìm nạp dữ liệu, số 2 là số cột mà giá trị phù hợp sẽ được trả về, bạn có thể thay đổi các tham chiếu của luận đề theo nhu cầu của mình.


Nếu bạn có Kutools cho Excel, Với khả Các hàng kết hợp nâng cao bạn có thể nhanh chóng hoàn thành công việc này một cách dễ dàng. Tính năng này có thể giúp bạn kết hợp tất cả các giá trị phù hợp với một dấu phân cách cụ thể dựa trên cùng một dữ liệu trong một cột khác.

Kutools cho Excel : với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày.

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:

1. Chọn phạm vi dữ liệu mà bạn muốn nhận các giá trị tương ứng dựa trên dữ liệu cụ thể.

2. Sau đó nhấn vào Kutools > Hợp nhất & Tách > Các hàng kết hợp nâng cao, xem ảnh chụp màn hình:

3. Trong Các hàng kết hợp nâng cao hộp thoại, bấm vào tên cột mà bạn muốn kết hợp dựa trên, sau đó bấm Khóa chính nút, xem ảnh chụp màn hình:

doc vlookup nối 6

4. Sau đó bấm vào tên cột khác mà bạn muốn trả về các giá trị phù hợp và bấm Kết hợp để chọn một dấu phân tách để tách các giá trị kết hợp, hãy xem ảnh chụp màn hình:

doc vlookup nối 7

5. Và sau đó nhấp vào Ok , tất cả các giá trị tương ứng dựa trên các giá trị giống nhau đã được kết hợp với nhau bằng dấu phân tách cụ thể, xem ảnh chụp màn hình:

doc vlookup nối 8 2 doc vlookup nối 9

 Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!


Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay!

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there any way to get the unique "name" for "class1"
This comment was minimized by the moderator on the site
Hello, sym-john,
Maybe the below article can solve your problem, please view it:
https://www.extendoffice.com/documents/excel/3381-excel-extract-unique-values-with-criteria.html
This comment was minimized by the moderator on the site
This is working great for me - is there anyway to change it that it checks if the cell contains rather than a complete match? Basically I have a list of tasks where:
Column A: Dependencies (eg 10003 10004 10008)
Column B: Task Reference (eg 10001)
Column C: Dependent Tasks (the column for the formula result) - where it would lookup the task reference to see which rows contain it in Column A, and then list the Task Reference of those tasks.

E.g:

Row | Column A | Column B | Column C
1 | | 10001 | 10002 10003
2 | 10001 | 10002 | 10003
3 | 10001 10002 | 10003 |
This comment was minimized by the moderator on the site
you would want to use the Instr() function which will check for something in a string of text in a cell. You can also use Left() and Right() if you are looking for the starting or ending details.
This comment was minimized by the moderator on the site
The cusVlookup worked great for me. Another way to have a different separator is to wrap in two substitute functions. The first (from inside to out) replaces the first space with no space, the second replaces all other spaces with a " / " in mine. Could use "," if you want commas.
=SUBSTITUTE(SUBSTITUTE(cusVlookup(D2,Table1,2)," ","",1)," "," / ")

Also, if your lookup value isn't the first column, you can use 0 or negative numbers to go to column to the left.
=SUBSTITUTE(SUBSTITUTE(cusVlookup(D2,Table1,-1)," ","",1)," "," / ")
This comment was minimized by the moderator on the site
Hi, jeff,
Thanks for your sharing, you must be a warmhearted man.
This comment was minimized by the moderator on the site
I have to say, I have been trying to get a formula for combining multiple values and returning them to a single cell for 2 days now. This "How To" has saved me!! Thank you SO much! I would never have gotten it without your Module!
I do have 2 questions though. I have the deliminator as a comma instead of a space and because of that it starts out with a comma. Is there a way to prevent the start comma but keep the rest?
My second question is; When I use the fill handle it changes the range values as well as the cell value I want to look up. I want it to continue to change the cell number I want to look up but keep the same range values. How can I make this happen?

Thank you so much for your help!!
This comment was minimized by the moderator on the site
Is there a way to delete the duplicate values in the concatenate?
This comment was minimized by the moderator on the site
Hello, Jacob,
May be the following article can help you to solve your problem.
https://www.extendoffice.com/documents/excel/3381-excel-extract-unique-values-with-criteria.html

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is there a way to list the duplicate values only once, using the vba code and formula above? I am not sure where to put the countif>1 statement in the formula bar, or in the vba itself. Please help
This comment was minimized by the moderator on the site
you can add two extra condition to skip blank cells and to skip duplicates:For i = 1 To CriteriaRange.Count
If CriteriaRange.Cells(i).Value = Condition Then
If ConcatenateRange.Cells(i).Value <> "" Then 'SKIP BANKS
If InStr(xResult, ConcatenateRange.Cells(i).Value) = 0 Then 'SKIP IF FOUND DUPLICATE
xResult = xResult & Separator & ConcatenateRange.Cells(i).Value
End If
End If
End If
Next i
This comment was minimized by the moderator on the site
This is amazing but i am looking for something else, i have a table with RollNo StudentName sub1, sub2, sub3 ... Total Result, When I enter Rollnumber it should give a result like "SName Sub1 64, sub2 78,... Total 389, Result pass", is it possible
This comment was minimized by the moderator on the site
Loved the function for Excel 2013 but amended it slightly to change the separating character to ";" instead of " " and then remove the prefixed ";" from the concantenated values Results matching values in my example would have ;result01 or ;result01;result02 . Added the extra If Left(xResult, 1) = ";" to remove any extra ";" at the beginning of the string if it is the 1st character. I'm sure there is a neater way of doing it but it worked for me. :) Function CusVlookup(pValue As String, pWorkRng As Range, pIndex As Long) Dim rng As Range Dim xResult As String xResult = "" For Each rng In pWorkRng If rng = pValue Then xResult = xResult & ";" & rng.Offset(0, pIndex - 1) If Left(xResult, 1) = ";" Then xResult = MID(xResult,2,255) End If End If Next CusVlookup = xResult End Function
This comment was minimized by the moderator on the site
Make if condition for result if empty.

Function CusVlookup(lookupval, lookuprange As Range, indexcol As Long)
'updateby Extendoffice 20151118
Dim x As Range
Dim result As String
result = ""
For Each x In lookuprange
If x = lookupval Then
If Not result = "" Then
result = result & " " & x.Offset(0, indexcol - 1)
Else
result = x.Offset(0, indexcol - 1)
End If
Next x
CusVlookup = result
End Function
This comment was minimized by the moderator on the site
When using the cusvlookup is there a way to add the last name as well with a comma in between that might appear in Column C
This comment was minimized by the moderator on the site
How to get the result. Please help. data data1 result a 1 a1 b 2 a2 c b1 b2 c1 c2
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations