Jak wyodrębnić wszystkie częściowe dopasowania w programie Excel?
Jeśli chcesz wyodrębnić wszystkie dopasowania, które zawierają określone słowo kluczowe z kolumny i wyświetlić je w kolumnie lub w komórce oddzielonej ogranicznikiem, jak pokazano na poniższym zrzucie ekranu, jak możesz rozwiązać to zadanie w programie Excel?
Wyodrębnij wszystkie częściowe dopasowania pionowo za pomocą formuły
Wyodrębnij wszystkie częściowe dopasowania pionowo za pomocą formuły
Aby wyodrębnić wszystkie dopasowania w pionie w kolumnie na podstawie fragmentu tekstu, przyda się następująca formuła tablicowa:
Step1: Skopiuj i wklej poniższą formułę do pustej komórki, w której chcesz umieścić wynik:
Note: W powyższym wzorze, A2: A14 czy komórki mogą zawierać słowo kluczowe, z którego chcesz zwrócić dopasowania, C2 zawiera kluczowe słowo, E1 to komórka nad formułą.
Step2: Następnie naciśnij Ctrl + Shift + Enter klawisze jednocześnie, aby uzyskać pierwszy wynik, a następnie przeciągnij uchwyt wypełniania w dół, aby uzyskać wszystkie dopasowania, aż pojawi się wartość błędu. W końcu usuń wartości błędów, zobacz zrzut ekranu:
Wyodrębnij wszystkie częściowe dopasowania do pojedynczej komórki za pomocą funkcji zdefiniowanej przez użytkownika
Jeśli musisz wyodrębnić wszystkie dopasowania do pojedynczej komórki i oddzielić je określonym ogranicznikiem, być może nie ma formuły, która mogłaby to rozwiązać. Tutaj musisz zastosować poniższą funkcję zdefiniowaną przez użytkownika:
Step1: Naciśnij Alt + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
Step2: W Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj następujący kod do modułu.
Kod VBA: Wyodrębnij wszystkie częściowe dopasowania do pojedynczej komórki
Function ExtractPartMatch(rngInput As Range, rngSource As Range, Optional sDelimiter As String)
'Updateby ExtendOffice
Dim rng As Range
If sDelimiter = "" Then sDelimiter = ", "
For Each rng In rngSource
If InStr(1, rng.Value, rngInput.Value, vbTextCompare) > 0 Then ExtractPartMatch = ExtractPartMatch & sDelimiter & rng.Value
Next
If Len(ExtractPartMatch) > 0 Then ExtractPartMatch = Mid(ExtractPartMatch, 2, Len(ExtractPartMatch))
End Function
Step3: Po wklejeniu kodu wróć do arkusza, w którym chcesz znaleźć wynik, a następnie wprowadź tę formułę: =ExtractPartMatch(C2,$A$2:$A$14), a następnie naciśnij Wchodzę klucz, aby uzyskać wynik, jak pokazano na poniższym zrzucie ekranu:
Najlepsze narzędzia biurowe
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...
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!
