Extraiga la enésima palabra de la cadena de texto en Excel

Si tiene una lista de cadenas de texto u oraciones, ahora desea extraer la enésima palabra específica de la lista como se muestra a continuación. En este artículo, presentaré algunos métodos para resolver este trabajo en Excel.

• Extraiga y obtenga la enésima palabra de la cadena de texto con fórmula
• Extraiga y obtenga la enésima palabra de la cadena de texto con la función definida por el usuario
• Extraiga y obtenga la enésima palabra de la cadena de texto con una función poderosa

---

Extraiga y obtenga la enésima palabra de la cadena de texto con fórmula

Para hacer frente a esta tarea, puede utilizar una fórmula que combine las funciones TRIM, MID, SUBSTITUTE, REPT y LEN. La sintaxis genérica es:

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

1. Ingrese o copie 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 desea usar, B2 es el número de la palabra que desea extraer, también se puede ingresar como un número.

2. Luego, arrastre el controlador de relleno hacia las celdas para aplicar esta fórmula, y toda la enésima palabra específica se extrajo como se muestra en la siguiente captura de pantalla:

---

Explicación de la fórmula:

• 1. SUSTITUIR (A2, "", REPT ("", LEN (A2))):
• REPETIR ("", LEN (A2): Esta función REPT se usa para repetir el carácter de espacio por un número específico de veces que es la longitud del texto de la celda A2, esto obtendrá un número de caracteres de espacio;
• SUSTITUIR (A2, "", REPETIR ("", LEN (A2))): La función SUSTITUIR reemplazará cada carácter de espacio en la celda A2 con muchos caracteres de espacio devueltos por la función REPT, esto obtendrá una cadena de texto con múltiples espacios entre cada palabra.
• Esta parte se reorganiza como argumento de texto en la función MID.
• 2. (B2-1)*LEN(A2)+1: Esta fórmula devolverá 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 MID.
• 3. MEDIO (SUSTITUIR (A2, "", REPT ("", LEN (A2))), (B2-1) * LEN (A2) +1, LEN (A2)): Esta función MID extrae la enésima palabra de la cadena de texto en la celda A2 según los argumentos que devuelven las fórmulas anteriores.
• 4. RECORTAR (): Esta función TRIM elimina todos los espacios adicionales entre las palabras.

---

---

Extraiga y obtenga la enésima palabra de la cadena de texto con la función definida por el usuario

Si la fórmula anterior es un poco difícil de entender para usted, aquí, presentaré una función definida por el usuario, con el siguiente código, también puede extraer la enésima palabra de una cadena de texto. Haz lo siguiente:

1. presione el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Módulo, copie y pegue el siguiente código en la ventana 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, guarde y cierre el módulo de código, ingrese esta fórmula: = palabra de búsqueda (A2, B2) en una celda en blanco donde desea generar el resultado:

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

4. Y luego, arrastre la fórmula a otras celdas para obtener el resultado que necesite, vea la captura de pantalla:

---

Extraiga y obtenga la enésima palabra de la cadena de texto con una función poderosa

---

Funciones relativas utilizadas:

---

Más artículos: