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

Si tienes una lista de cadenas de texto u oraciones y deseas extraer una palabra específica enésima de la lista, como se muestra en la captura de pantalla a continuación, este artículo te presentará algunos métodos para resolver esta tarea en Excel.

• Extraer y obtener la palabra enésima de una cadena de texto con fórmula
• Extraer y obtener la palabra enésima de una cadena de texto con una Función Definida por el Usuario
• Extraer y obtener la palabra enésima de una cadena de texto con una función avanzada

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

Para manejar esta tarea, puedes usar una fórmula que combine las funciones TRIM, MID, SUBSTITUTE, REPT y LEN. La sintaxis genérica es:

• cadena: La cadena de texto o valor de celda del cual deseas extraer una palabra.
• N: El número de la palabra que deseas extraer.

1. Por favor, introduce o copia la siguiente fórmula en una celda en blanco:

Nota: En la fórmula anterior, A2 es la celda que contiene la cadena de texto que deseas usar, B2 es el número de la palabra que deseas extraer, también puede ingresarse como un número.

2. Luego, arrastra el controlador de relleno hacia abajo hasta las celdas para aplicar esta fórmula, y todas las palabras específicas enésimas habrán sido extraídas como se muestra en la siguiente captura de pantalla:

Explicación de la fórmula:

• 1. SUBSTITUTE(A2," ",REPT(" ",LEN(A2))):
• REPT(" ",LEN(A2)): Esta función REPT se utiliza para repetir el carácter de espacio un número específico de veces, que es la longitud del texto de la celda A2, esto generará varios caracteres de espacio;
• SUBSTITUTE(A2," ",REPT(" ",LEN(A2))): La función SUBSTITUTE reemplazará cada carácter de espacio en la celda A2 con muchos caracteres de espacio devueltos por la función REPT, esto generará una cadena de texto con múltiples espacios entre cada palabra.
• Esta parte se reorganiza como el argumento de texto en la función MID.
• 2. (B2-1)*LEN(A2)+1: Esta fórmula devolverá la posición inicial de la palabra enésima de la cadena de texto en la celda A2. Es el argumento start_num de la función MID.
• 3. MID(SUBSTITUTE(A2," ",REPT(" ",LEN(A2))), (B2-1)*LEN(A2)+1, LEN(A2)): Esta función MID extrae la palabra enésima de la cadena de texto en la celda A2 basándose en los argumentos devueltos por las fórmulas anteriores.
• 4. TRIM(): Esta función TRIM elimina todos los caracteres de espacio adicionales entre las palabras.

Extraer y obtener la palabra enésima de una cadena de texto con una Función Definida por el Usuario

Si la fórmula anterior es un poco difícil de entender para ti, aquí te presentaré una Función Definida por el Usuario, con el siguiente código, también puedes extraer la palabra enésima de una cadena de texto. Por favor, sigue estos pasos:

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

2. Haz clic en Insertar > Módulo, copia y pega 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. Luego, guarda y cierra el módulo de código, introduce esta fórmula: =findword(A2,B2) en una celda en blanco donde deseas mostrar el resultado:

Nota: En esta fórmula, A2 es la celda que contiene la cadena de texto que deseas usar, B2 es el número de la palabra que deseas extraer, también puede ingresarse como un número.

4. Y luego, arrastra la fórmula a otras celdas para obtener el resultado según sea necesario, ver captura de pantalla:

Extraer y obtener la palabra enésima de una cadena de texto con una función avanzada

Funciones relacionadas utilizadas:

Más artículos: