¿Cómo extraer todas las coincidencias parciales en Excel?
Si desea extraer todas las coincidencias que contienen una palabra clave específica de una columna y enumerarlas en una columna o en una celda separada por un delimitador como se muestra a continuación, ¿cómo podría resolver esta tarea en Excel?
Extraiga todas las coincidencias parciales verticalmente con fórmula
Extraiga todas las coincidencias parciales en una sola celda con la función definida por el usuario
Extraiga todas las coincidencias parciales verticalmente con fórmula
Para extraer todas las coincidencias verticalmente en una columna basada en un texto parcial, la siguiente fórmula de matriz puede hacerle un favor:
Step1: copie y pegue la fórmula a continuación en una celda en blanco donde desea colocar el resultado:
Note: En la fórmula anterior, A2: A14 es que las celdas pueden contener la palabra clave de la que desea obtener coincidencias, C2 contiene la palabra clave, E1 es la celda sobre la fórmula.
Step2: Entonces presione Ctrl + Shift + Enter teclas simultáneamente para obtener el primer resultado y luego arrastre el controlador de relleno hacia abajo para obtener todas las coincidencias hasta que aparezca el valor de error. Por último, elimine los valores de error, vea la captura de pantalla:
Extraiga todas las coincidencias parciales en una sola celda con la función definida por el usuario
Si necesita extraer todas las coincidencias en una sola celda y separarlas por un delimitador específico, tal vez no haya una fórmula que pueda resolverlo. Aquí, debe aplicar la siguiente función definida por el usuario:
Step1: Prensa Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
Step2: En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, luego copie el siguiente código en el Módulo.
Código de VBA: extraiga todas las coincidencias parciales en una sola celda
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: Después de pegar el código, regrese a la hoja de trabajo donde desea ubicar el resultado, luego ingrese esta fórmula: =ExtractPartMatch(C2,$A$2:$A$14)y, a continuación, presione Participar clave para obtener el resultado como se muestra a continuación:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!