Salt la conținutul principal

Cum se extrag toate potrivirile parțiale în Excel?

Dacă doriți să extrageți toate potrivirile care conțin un anumit cuvânt cheie dintr-o coloană și să le enumerați într-o coloană sau într-o celulă separată de un delimitator, așa cum se arată mai jos, cum ați putea rezolva această sarcină în Excel?

Extrage toate potrivirile parțiale pe verticală cu formula

Extrageți toate potrivirile parțiale într-o singură celulă cu funcția definită de utilizator


Extrage toate potrivirile parțiale pe verticală cu formula

Pentru a extrage toate potrivirile pe verticală într-o coloană pe baza unui text parțial, următoarea formulă de matrice vă poate ajuta:

Step1: Copiați și lipiți formula de mai jos într-o celulă goală în care doriți să puneți rezultatul:

=INDEX($A$2:$A$14,SMALL(IF(ISNUMBER((SEARCH($C$2,$A$2:$A$14))),MATCH(ROW($A$2:$A$14),ROW($A$2:$A$14)), ""),ROWS($E$1:E1)),COLUMNS($E$1:E1))

notițe: În formula de mai sus, A2: A14 este că celulele pot conține cuvântul cheie de la care doriți să returnați potriviri, C2 conține cuvântul cheie, E1 este celula de deasupra formulei.

Step2: Apoi apăsați Ctrl + Shift + Enter tastele simultan pentru a obține primul rezultat, apoi trageți mânerul de umplere în jos pentru a obține toate potrivirile până când apare valoarea de eroare. În cele din urmă, ștergeți valorile de eroare, vedeți captura de ecran:


Extrageți toate potrivirile parțiale într-o singură celulă cu funcția definită de utilizator

Dacă trebuie să extrageți toate potrivirile într-o singură celulă și separate printr-un anumit delimitator, poate că nu există nicio formulă care să o rezolve. Aici, trebuie să aplicați funcția definită de utilizator de mai jos:

Step1: Presa Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

Step2: În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați următorul cod în modul.

Cod VBA: extrageți toate potrivirile parțiale într-o singură celulă

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: După ce lipiți codul, vă rugăm să reveniți la foaia de lucru unde doriți să localizați rezultatul, apoi introduceți această formulă: =ExtractPartMatch(C2,$A$2:$A$14), apoi apăsați Intrați tasta pentru a obține rezultatul, după cum se arată în imaginea de mai jos:

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations