Przejdź do głównej zawartości

Jak pominąć i połączyć wiele odpowiadających wartości w programie Excel?

Jak wszyscy wiemy, plik Vlookup funkcja w programie Excel może pomóc nam w wyszukaniu wartości i zwróceniu odpowiednich danych w innej kolumnie, ale generalnie może uzyskać pierwszą wartość względną tylko wtedy, gdy istnieje wiele pasujących danych. W tym artykule omówię, jak przeglądać i łączyć wiele odpowiednich wartości tylko w jednej komórce lub na liście pionowej.

Wyszukaj i zwróć wiele pasujących wartości pionowo za pomocą formuły

Wyszukaj i połącz wiele pasujących wartości w komórce za pomocą funkcji zdefiniowanej przez użytkownika

Wyszukaj i połącz wiele pasujących wartości w komórce za pomocą Kutools for Excel


Przypuśćmy, że mam następujący zakres danych, aby uzyskać wszystkie odpowiednie wartości na podstawie określonej wartości w pionie, jak pokazano na poniższym zrzucie ekranu, możesz zastosować formułę tablicową.

doc vlookup konkatenacja 1 .

1. Wprowadź tę formułę: =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))),"") do pustej komórki, w której chcesz umieścić wynik, na przykład E2, a następnie naciśnij Ctrl + Shift + Enter klucze razem, aby uzyskać względną podstawę wartości na podstawie określonego kryterium, patrz zrzut ekranu:

doc vlookup konkatenacja 2 .

Note: W powyższym wzorze:

A1: A16 to zakres kolumn zawierający określoną wartość, której chcesz szukać;

D2 wskazuje konkretną wartość, którą chcesz przeoczyć;

B1: B16 to zakres kolumn, z którego mają zostać zwrócone odpowiednie dane;

$ 1: $ 16 wskazuje odwołanie do wierszy w zakresie.

2. Następnie wybierz komórkę E2 i przeciągnij uchwyt wypełniania w dół do komórek, aż uzyskasz puste komórki, a wszystkie pasujące wartości zostaną wymienione w kolumnie, jak pokazano na poniższym zrzucie ekranu:

doc vlookup konkatenacja 3 .


Zamiast pobierać względne wartości w pionie, czasami chcesz dopasować wartości do jednej komórki i połączyć je z określonym separatorem. W takim przypadku następująca funkcja zdefiniowana przez użytkownika może wyświadczyć Ci przysługę.

1. Przytrzymaj przycisk ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: przeglądaj i łącz wiele pasujących wartości w komórce

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. Następnie zapisz i zamknij ten kod, wróć do arkusza i wprowadź następującą formułę: = cusvlookup (D2, A1: B16,2) do pustej komórki, w której chcesz umieścić wynik, i naciśnij Wchodzę klucz, wszystkie odpowiadające wartości oparte na określonych danych zostały zwrócone do jednej komórki z separatorem spacji, patrz zrzut ekranu:

doc vlookup konkatenacja 4 .

Note: W powyższym wzorze: D2 wskazuje wartości komórek, które chcesz wyszukać, A1: B16 to zakres danych, z którego chcesz pobrać dane, liczba 2 to numer kolumny, z której ma zostać zwrócona pasująca wartość, możesz zmienić te odniesienia w zależności od potrzeb.


Jeśli Kutools dla programu Excel, Z siedzibą w Zaawansowane wiersze łączenia możesz szybko i łatwo zakończyć tę pracę. Ta funkcja może pomóc w połączeniu wszystkich pasujących wartości z określonymi separatorami na podstawie tych samych danych w innej kolumnie.

Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni.

Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:

1. Wybierz zakres danych, dla których chcesz uzyskać odpowiednie wartości na podstawie określonych danych.

2. Następnie kliknij Kutools > Połącz i podziel > Zaawansowane wiersze łączeniazobacz zrzut ekranu:

3, w Zaawansowane wiersze łączenia w oknie dialogowym kliknij nazwę kolumny, na podstawie której chcesz połączyć, a następnie kliknij Główny klucz przycisk, zobacz zrzut ekranu:

doc vlookup konkatenacja 6 .

4. Następnie kliknij nazwę innej kolumny, dla której chcesz zwrócić dopasowane wartości, i kliknij Połączyć aby wybrać jeden separator do oddzielenia połączonych wartości, zobacz zrzut ekranu:

doc vlookup konkatenacja 7 .

5. A następnie kliknij Ok przycisk, wszystkie odpowiednie wartości oparte na tych samych wartościach zostały połączone razem z określonym separatorem, patrz zrzuty ekranu:

doc vlookup konkatenacja 8 . 2 doc vlookup konkatenacja 9 .

 Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!


Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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