Extraer la enésima palabra de una cadena de texto en Excel

Si dispone de una lista de cadenas de texto o frases y desea extraer la enésima palabra de cada una, como se muestra en la siguiente captura de pantalla, a continuación le presentamos algunos métodos para llevar a cabo esta tarea en Excel.

• Extraer y obtener la enésima palabra de una cadena de texto con fórmula
• Extraer y obtener la enésima palabra de una cadena de texto con una función definida por el usuario
• Extraer y obtener la enésima palabra de una cadena de texto con una potente característica

Extraer y obtener la enésima palabra de una cadena de texto con fórmula

Para llevar a cabo esta tarea, puede usar una fórmula que combina las funciones ESPACIOS, EXTRAE, SUSTITUIR, REPT y LARGO. La sintaxis genérica es:

• stringLa cadena de texto o el valor de celda del que desea extraer una palabra.
• NEl número de la palabra que desea extraer.

1. Introduzca o copie la siguiente fórmula en una celda vacía:

Nota: En la fórmula anterior, A2 es la celda que contiene la cadena de texto que desea utilizar y B2 es el número de la palabra que desea extraer; también puede introducirse directamente como un número.

2. A continuación, arrastre el controlador de relleno hacia abajo hasta las demás celdas para aplicar esta fórmula y se extraerán todas las enésimas palabras específicas, tal como se muestra en la siguiente captura de pantalla:

Explicación de la fórmula:

• 1. SUSTITUIR(A2,« »,REPT(« »,LARGO(A2))):
• REPT(« »,LARGO(A2): Esta función REPT se utiliza para repetir el carácter de espacio un número específico de veces, que corresponde al Longitud del texto de la celda A2; esto generará varios caracteres de espacio;
• SUSTITUIR(A2,« »,REPT(« »,LARGO(A2))): La función SUSTITUIR reemplaza cada espacio en la celda A2 por una cadena de espacios generada por la función REPT, creando así un texto con múltiples espacios entre cada palabra.
• Esta parte se reorganiza como argumento de texto en la función EXTRAE.
• 2. (B2-1)*LARGO(A2)+1: Esta fórmula devuelve la posición inicial de la enésima palabra de la cadena de texto en la celda A2. Es el argumento núm_inicial de la función EXTRAE.
• 3. EXTRAE(SUSTITUIR(A2,« »,REPT(« »,LARGO(A2))), (B2-1)*LARGO(A2)+1, LARGO(A2)): Esta fórmula EXTRAE obtiene la enésima palabra de la cadena de texto ubicada en la celda A2, utilizando los argumentos generados por las fórmulas anteriores.
• 4. ESPACIOS(): La función ESPACIOS elimina todos los espacios adicionales entre las palabras.

Extraer y obtener la enésima palabra de una cadena de texto con una función definida por el usuario

Si la fórmula anterior le resulta algo difícil de entender, a continuación le presento una función definida por el usuario. Con el siguiente código, también podrá extraer la enésima palabra de una cadena de texto. Siga estos pasos:

1. Pulse las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y copie y pegue el siguiente código en la ventana del módulo.

Function FindWord(Source As String, Position As Integer)
'Update by Extendoffice
Dim arr() As String
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount < 1 Or (Position - 1) > xCount Or Position < 0 Then
    FindWord = ""
Else
    FindWord = arr(Position - 1)
End If
End Function

3. A continuación, guarde y cierre el módulo de código e introduzca esta fórmula: =findword(A2,B2) en una celda vacía donde desee mostrar el resultado:

Nota: En esta fórmula, A2 es la celda que contiene la cadena de texto que desea utilizar y B2 es el número de la palabra que desea extraer; también puede introducirse directamente como un número.

4. A continuación, arrastre la fórmula a las demás celdas para obtener el resultado deseado, tal como se muestra en la captura de pantalla:

Extraer y obtener la enésima palabra de una cadena de texto con una potente característica

Funciones relacionadas utilizadas:

Más artículos: