Saltar al contenido principal

Excel elimina caracteres, palabras, números de cadenas de texto

Supongamos que tiene una lista larga de cadenas de texto que contienen caracteres, números u otros símbolos específicos. En cierto caso, es posible que deba eliminar algunos caracteres según la posición, como los de la derecha, la izquierda o el centro de las cadenas de texto, o eliminar algunos caracteres no deseados, números de la lista de cadenas. Encontrar las soluciones una por una le dará un dolor de cabeza, este tutorial recopila todo tipo de métodos para eliminar caracteres, palabras o números en Excel.

Tabla de contenidos:

1. Elimina los caracteres de la izquierda, la derecha o el centro de las cadenas de texto.

2. Elimina los caracteres especiales o no deseados de las cadenas de texto.

3. Elimina caracteres / texto antes o después de un carácter específico.

4. Eliminar palabras de cadenas de texto


Eliminar caracteres de la izquierda, la derecha o el medio de las cadenas de texto

Puede ser un trabajo común para la mayoría de nosotros eliminar algunos caracteres de la izquierda, la derecha o el medio de las cadenas de texto en las hojas de cálculo de Excel. Esta sección presenta algunos trucos rápidos y fáciles para resolver esta tarea.

1.1 Eliminar los primeros n caracteres de las cadenas de texto

Si necesita eliminar los primeros n caracteres de una lista de cadenas de texto, los siguientes métodos pueden hacerle un favor.

 Usando fórmulas

Normalmente, para eliminar los caracteres del principio de las cadenas de texto, puede utilizar la función REEMPLAZAR o una combinación de funciones DERECHA y LARGA.

Función REEMPLAZAR para eliminar los primeros N caracteres:

=REPLACE(string, 1, num_chars, "")
  • cadena: La cadena de texto de la que desea eliminar caracteres;
  • num_chars: La cantidad de caracteres que desea eliminar.

Por ejemplo, para eliminar los primeros 2 caracteres de las celdas, use la fórmula a continuación y luego arrastre el controlador de relleno para copiar la fórmula a otras celdas, vea la captura de pantalla:

=REPLACE(A4, 1, 2, "")

Funciones DERECHA y LEN para eliminar los primeros N caracteres:

=RIGHT(string, LEN(string) - num_chars)
  • cadena: La cadena de texto de la que desea eliminar caracteres;
  • num_chars: La cantidad de caracteres que desea eliminar.

Para eliminar los primeros 2 caracteres de las celdas, aplique la siguiente fórmula:

=RIGHT(A4,LEN(A4)-2)


 Utilizando la función definida por el usuario

Para eliminar los primeros n caracteres de las celdas, también puede crear una función definida por el usuario para resolver esta tarea. Siga los siguientes pasos:

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: elimine los primeros n caracteres de las cadenas de texto

Function removeFirstx(rng As String, cnt As Long)
'Updateby Extendoffice
removeFirstx = Right(rng, Len(rng) - cnt)
End Function

3. Luego regrese a la hoja de trabajo y luego ingrese esta fórmula: = eliminarprimerox (A4,2) en una celda en blanco, y luego arrastre el controlador de relleno hacia abajo para obtener los resultados que necesita, vea la captura de pantalla:

Note: En esta fórmula: A4 es la celda de la que desea eliminar caracteres; El número 2 indica el número de caracteres que le gustaría eliminar del principio de la cadena de texto.


1.2 Eliminar los últimos n caracteres de las cadenas de texto

Para eliminar un número específico de caracteres del lado derecho de las cadenas de texto, también puede usar una fórmula o función definida por el usuario.

 Usando fórmula

Para eliminar los últimos n caracteres de las cadenas de texto, puede usar una fórmula basada en las funciones LEFT y LEN.

Funciones LEFT y LEN para eliminar los últimos N caracteres:

=LEFT(string, LEN(string) - num_chars)
  • cadena: La cadena de texto de la que desea eliminar caracteres;
  • num_chars: La cantidad de caracteres que desea eliminar.

Para eliminar 3 caracteres del final de las cadenas de texto, use esta fórmula y luego arrastre el controlador de relleno para copiar la fórmula a otras celdas, vea la captura de pantalla:

=LEFT(A4, LEN(A4) - 3)


 Utilizando la función definida por el usuario

Aquí, una función definida por el usuario también puede ayudarlo a eliminar los últimos n caracteres de una lista de celdas, haga lo siguiente:

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: elimine los últimos n caracteres de las cadenas de texto

Function removeLastx(rng As String, cnt As Long)
'Updateby Extendoffice
removeLastx = Left(rng, Len(rng) - cnt)
End Function

3. Luego regrese a la hoja de trabajo e ingrese esta fórmula: = quitar últimox (A4,3) en una celda en blanco, y luego arrastre el controlador de relleno hacia abajo para obtener los resultados que necesita, vea la captura de pantalla:

Note: En esta fórmula: A4 es la celda de la que desea eliminar caracteres; El número 3 indica la cantidad de caracteres que le gustaría eliminar del final de la cadena de texto.


1.3 Elimine los primeros, los últimos n caracteres o ciertos caracteres de posición mediante el uso de una función poderosa

Puede resultarle doloroso recordar varias fórmulas, eliminar caracteres de la izquierda, la derecha o una posición específica de las cadenas de texto, Kutools for Excel admite una característica poderosa: Eliminar por posición. Con esta pequeña herramienta, puede manejar estas tareas con unos pocos clics sin recordar ninguna fórmula.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione las celdas que desea eliminar caracteres y luego haga clic en Kutools > Texto > Eliminar por posición, ver captura de pantalla:

2. En la Eliminar por posición cuadro de diálogo, realice las siguientes operaciones:

2.1 Elimine los primeros n caracteres de las celdas:

  • In Números cuadro de texto, escriba la cantidad de caracteres que desea eliminar de las cadenas. En este ejemplo, eliminaré los primeros 2 caracteres.
  • Seleccione Desde la izquierda en opción Puesto de trabajo .
  • Luego, haz clic Ok or ¡Aplicá! para obtener el resultado como se muestra a continuación.

2.2 Elimine los últimos n caracteres de las celdas:

  • In Números cuadro de texto, escriba la cantidad de caracteres que desea eliminar de las cadenas. En este ejemplo, eliminaré los últimos 3 caracteres.
  • Seleccione Desde la derecha en opción Puesto de trabajo .
  • Luego, haz clic Ok or ¡Aplicá! para obtener el resultado como se muestra a continuación.

2.3 Eliminar n caracteres de la posición específica de las celdas:

Si necesita eliminar un número específico de caracteres de una determinada posición de las cadenas de texto, por ejemplo, la eliminación de 3 caracteres comienza desde el tercer carácter de las cadenas.

  • In Números cuadro de texto, escriba la cantidad de caracteres que desea eliminar de las cadenas. En este ejemplo, eliminaré 3 caracteres de una determinada posición.
  • Seleccione Especificar opción, y escriba el número desde el que desea eliminar los caracteres en el cuadro de texto del Puesto de trabajo sección. Aquí, eliminaré caracteres del tercer carácter.
  • Luego, haz clic Ok or ¡Aplicá! para obtener el resultado como se muestra a continuación.

¡Descargue y pruebe Kutools para Excel ahora!


1.4 Elimina tanto el primer n como el último n caracteres de las cadenas de texto con la fórmula

Cuando necesite eliminar algunos caracteres en ambos lados de las cadenas de texto en Excel, puede combinar las funciones MID y LEN para crear una fórmula para hacer frente a esta tarea.

=MID(string, left_chars + 1, LEN(string) - (left_chars + right_chars)
  • cadena: La cadena de texto de la que desea eliminar caracteres;
  • caracteres_izquierdos: El número de caracteres que se eliminarán de la izquierda;
  • caracteres_derechos: La cantidad de caracteres que se eliminarán de la derecha.

Por ejemplo, debe eliminar los primeros 7 caracteres y los últimos 5 caracteres de las cadenas de texto al mismo tiempo, ingrese la siguiente fórmula en una celda en blanco:

=MID(A4, 7+1, LEN(A4) - (7+5))

Note: En esta fórmula: A4 es la celda de la que desea eliminar caracteres; El número 7 es la cantidad de caracteres que desea eliminar del lado izquierdo; El número 5 es el número de caracteres que desea eliminar del lado derecho.

Y luego, arrastre el controlador de relleno hacia abajo hasta donde desea aplicar esta fórmula, y obtendrá el resultado como se muestra a continuación:


Eliminar caracteres no deseados / especiales de cadenas de texto

Al importar datos desde otro lugar a Excel, es posible que se peguen muchos caracteres especiales o no deseados en su hoja de trabajo. Para eliminar estos caracteres no deseados como # @ $% ^ &, espacios, números, números no numéricos, saltos de línea, etc., esta sección le proporcionará algunos métodos útiles para ayudarle.

2.1 Eliminar algunos caracteres especiales de las cadenas de texto

Si hay algunos caracteres especiales como% ^ & * () dentro de las cadenas de texto, para eliminar este tipo de caracteres, puede aplicar los siguientes tres trucos.

 Elimina varios caracteres especiales de las cadenas de texto con la función SUSTITUIR

Normalmente, en Excel, puede anidar varias funciones SUSTITUIR para reemplazar cada carácter específico con nada, la sintaxis genérica es:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(string_cell, char1, ""), char2, ""), char3, "")
  • celda_cadena: La celda contiene la cadena de texto de la que desea eliminar los caracteres especiales;
  • char1, char2, char3: Los caracteres no deseados que desea eliminar.

Ahora, copie o ingrese la fórmula a continuación en una celda en blanco:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2, "#", ""), "&", ""), "*", ""), "%", "")

Y luego, arrastre el controlador de relleno hacia las celdas donde desea aplicar esta fórmula, y todos los caracteres no deseados que especificó se eliminarán a la vez, vea la captura de pantalla:

Tips: Si hay más caracteres que desea eliminar, solo necesita anidar más funciones SUSTITUIR dentro de la fórmula.


 Elimine varios caracteres especiales de las cadenas de texto con la función definida por el usuario

Las funciones de SUSTITUCIÓN anidadas anteriores funcionan bien si hay pocos caracteres especiales para eliminar, pero si tiene docenas de caracteres para eliminar, la fórmula se volverá demasiado larga y difícil de administrar. En este caso, la siguiente función definida por el usuario puede ayudarlo a terminar esta tarea rápida y fácilmente.

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: elimine varios caracteres especiales de las cadenas de texto

Function RemoveUnwantedChars(Str As String, xchars As String)
'Updateby Extendoffice
    For Index = 1 To Len(xchars)
        Str = Replace(Str, Mid(xchars, Index, 1), "")
    Next
    RemoveUnwantedChars = Str
End Function

3. Luego, cierre la ventana de código y regrese a la hoja de trabajo, ingrese esta fórmula = Eliminar caracteres no deseados (A2, $ D $ 2) en una celda en blanco donde generar el resultado, y luego arrastre el controlador de relleno hacia abajo para obtener los resultados que necesita, vea la captura de pantalla:

Note: En la fórmula anterior: A2 es la celda de la que desea eliminar caracteres; $ D $ 2 contiene los caracteres especiales que le gustaría eliminar (puede escribir cualquier otro carácter especial que necesite).


 Elimina varios caracteres especiales de las cadenas de texto con una característica sorprendente

Si tienes instalado Kutools for Excel, Con su Quitar caracteres función, puede eliminar todo tipo de caracteres, como caracteres numéricos, caracteres alfabéticos, caracteres que no se imprimen ... de una lista de celdas que necesite.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione el rango de celdas del que desea eliminar los caracteres especiales y luego haga clic en Kutools > Texto > Quitar caracteres, ver captura de pantalla:

2. En la Quitar caracteres caja de diálogo:

  • cheque Personalizado Bajo el Quitar caracteres .
  • Y luego ingrese los caracteres especiales en el cuadro de texto que desea eliminar.
  • Luego, haz clic Ok or ¡Aplicá! para eliminar los caracteres que especificó de una vez. Ver captura de pantalla:

¡Descargue y pruebe Kutools para Excel ahora!


2.2 Eliminar todos los números de las cadenas de texto

Si tiene una lista de cadenas de texto que se mezclan con números, letras y caracteres especiales, y ahora, solo desea eliminar todos los números y conservar otros caracteres. Esta sección le proporcionará algunas formas prácticas de ayudarlo.

 Eliminar números de cadenas de texto con la función SUSTITUIR

En Excel, la función SUSTITUIR anidada puede ayudar a reemplazar todos los números con nada, por lo que puede usar la siguiente fórmula para eliminar todos los números de las celdas:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,""),0,"")

Luego, arrastre el controlador de relleno hacia las celdas donde desea aplicar esta fórmula, y todos los números se eliminarán de la lista de cadenas de texto, vea la captura de pantalla:


 Eliminar números de cadenas de texto con la función TEXTJOIN

Si tiene Excel 2019, 2021 o 365, la nueva función TEXTJOIN también puede ayudar a eliminar números de cadenas de texto.

Copie la siguiente fórmula en una celda en blanco y luego presione Ctrl + Shift + Enter juntas para obtener el primer resultado:

=TEXTJOIN("", TRUE, IF(ISERR(MID(A2, ROW(INDIRECT( "1:"&LEN(A2) )), 1) *1), MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1), ""))

Y luego copie la fórmula en otras celdas a continuación donde desea aplicar esta fórmula, vea la captura de pantalla:

Note: Este TEXTJOIN solo está disponible en Excel 2019, 2021 y Office 365.


 Elimine números de cadenas de texto con la función definida por el usuario

Además de las dos fórmulas anteriores, una función definida por el usuario también puede hacerle un favor, siga los siguientes pasos:

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: eliminar números de cadenas de texto

Function RemoveNumbers(Txt As String) As String
'Updateby Extendoffice
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[0-9]"
RemoveNumbers = .Replace(Txt, "")
End With
End Function

3. Luego, cierre y salga de la ventana de código, vuelva a la hoja de trabajo e ingrese esta fórmula: = Eliminar números (A2) en una celda en blanco, luego arrastre el controlador de relleno hacia las celdas donde desea aplicar esta fórmula, vea la captura de pantalla:


 Elimina números de cadenas de texto con una práctica opción

Si está cansado de las fórmulas complicadas, ahora, permítame mostrarle una herramienta fácil: Kutools for Excel, Quitar caracteres. Con esta práctica función, puede realizar esta tarea con solo unos pocos clics.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione el rango de celdas donde desea eliminar los números y luego haga clic en Kutools > Texto > Quitar caracteres.

2. En la Quitar caracteres cuadro de diálogo, realice las siguientes operaciones:

  • cheque Numérico Bajo el Quitar caracteres .
  • Luego, haz clic Ok or ¡Aplicá! para eliminar los números inmediatamente. Ver captura de pantalla:

¡Descargue y pruebe Kutools para Excel ahora!


2.3 Eliminar caracteres no numéricos de cadenas de texto

Para eliminar todos los caracteres no numéricos y solo mantener los números de las cadenas de texto, esta sección hablará sobre algunas formas de resolver esta tarea en Excel.

 Elimine caracteres no numéricos de cadenas de texto con fórmula en Excel 2016 y versiones anteriores

Si está utilizando Excel 2016 o versiones anteriores, debe aplicar una fórmula compleja para lograr este trabajo, copie o ingrese la fórmula a continuación en una celda en blanco:

=SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1)) * ROW(INDIRECT("1:"&LEN(A2))), 0), ROW(INDIRECT("1:"&LEN(A2))))+1, 1) * 10^ROW(INDIRECT("1:"&LEN(A2)))/10)

Y luego copie la fórmula en otras celdas a continuación donde desea aplicar esta fórmula, vea la captura de pantalla:

Note: Si los números en una cadena de texto comienzan con 0, el 0 se perderá.


 Elimine caracteres no numéricos de cadenas de texto con la función TEXTJOIN en Excel 2019, 2021, 365

La fórmula anterior puede resultar demasiado difícil de entender para la mayoría de nosotros. Si tiene Excel 2019, 2021 o 365, hay una fórmula ordenada que puede ayudarlo.

Copie o ingrese la siguiente fórmula en una celda en blanco y presione Ctrl + Shift + Enter claves juntas para obtener el primer resultado correcto:

=TEXTJOIN("",TRUE,IFERROR(MID(A2,ROW(INDIRECT("1:100")),1)+0,""))

Luego, arrastre el controlador de relleno hacia las celdas donde aplicará esta fórmula, y obtendrá el resultado como se muestra a continuación:

Note: Con esta fórmula, puede ver que los ceros iniciales se mantendrán ya que los números se devuelven como texto.


 Elimine caracteres no numéricos de cadenas de texto con la función definida por el usuario

Por supuesto, también puede crear su propia función definida por el usuario con una sintaxis más simple, haga lo siguiente:

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: elimine los caracteres no numéricos de las cadenas de texto

Function Removenonnumeric(str As String) As String
'Updateby Extendoffice
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^0-9]"
        Removenonnumeric = .Replace(str, "")
    End With
End Function

3. Luego, cierre y salga de la ventana de código, vuelva a la hoja de trabajo e ingrese esta fórmula: = Eliminadonumérico (A2) en una celda en blanco, luego arrastre el controlador de relleno hacia las celdas donde desea aplicar esta fórmula, solo se extraerán los números como se muestra a continuación:


 Elimine caracteres no numéricos de cadenas de texto con una función simple

Para eliminar caracteres no numéricos en un rango de celdas directamente, Kutools for Excel, Quitar caracteres La utilidad puede hacerlo con solo unos pocos clics.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione el rango de celdas del que desea eliminar los caracteres no numéricos y luego haga clic en Kutools > Texto > Quitar caracteres.

2. En la Quitar caracteres cuadro de diálogo, configure las siguientes operaciones:

  • cheque No numérico Bajo el Quitar caracteres .
  • Luego, haz clic Ok or ¡Aplicá! para eliminar todos los caracteres no numéricos inmediatamente. Ver captura de pantalla:

¡Descargue y pruebe Kutools para Excel ahora!


2.4 Separe el texto y los números de una celda en dos columnas

A veces, es posible que desee extraer el texto y los números de las cadenas de texto en dos columnas separadas, con la ayuda de los siguientes métodos, puede terminar esta tarea rápida y fácilmente.

 Separe el texto y los números de una celda en dos columnas con la función definida por el usuario

Al usar la siguiente función definida por el usuario, puede extraer el texto y los números a la vez, siga los pasos a continuación:

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código VBA: separe el texto y los números de las cadenas de texto en dos columnas

Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
    xStr = VBA.Mid(pWorkRng.Value, i, 1)
    If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
        SplitText = SplitText + xStr
    End If
Next
End Function

3. Luego, cierre y salga de la ventana de código, vuelva a la hoja de trabajo e ingrese esta fórmula: = SplitText (A2, FALSO) en una celda en blanco y luego arrastre el controlador de relleno hacia las celdas en las que desea llenar esta fórmula para obtener todo el texto, vea la captura de pantalla:

4. Y luego, sigue escribiendo esta fórmula: = SplitText (A2, TRUE) en otra celda y arrastre el controlador de relleno hacia abajo a las celdas que desea llenar esta fórmula para obtener los números, vea la captura de pantalla:


 Separe el texto y los números de una celda en dos columnas con una función sencilla

Si tiene Kutools for Excel, su Células partidas La utilidad puede ayudarlo a dividir celdas en múltiples columnas o filas en función de cualquier separador, ancho especificado o texto y número.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione el rango de celdas que desea dividir y luego haga clic en Kutools > Fusionar y dividir > Células partidas, ver captura de pantalla:

2. En la Células partidas cuadro de diálogo, seleccione Dividir en columnas Bajo el Tipo de Propiedad sección, y luego verifique Texto y número del desplegable Dividido por sección, ver captura de pantalla:

3. Luego, haz clic Ok botón, y otro Células partidas aparecerá el cuadro de diálogo, seleccione una celda para generar el texto y los números separados, y luego haga clic en el OK botón. Ahora, puede ver que el texto y los números en las celdas seleccionadas se dividen en dos columnas a la vez, como se muestra a continuación:

¡Descargue y pruebe Kutools para Excel ahora!


2.5 Eliminar caracteres de salto de línea de cadenas de texto

Un salto de línea es algo que le permite tener varias líneas en la misma celda en Excel. A veces, cuando copia datos del sitio web o separa el contenido de su celda con Alt + Enter manualmente, obtendrá los saltos de línea o los retornos de carro. En cierto caso, es posible que desee eliminar los saltos de línea para hacer que el contenido de la celda sea una línea como se muestra a continuación. Aquí, presentaré algunas formas de resolver esta tarea en Excel.

 Elimine los caracteres de salto de línea de las cadenas de texto con la función Buscar y reemplazar

En Excel, puede utilizar el Buscar y reemplazar función para eliminar los saltos de línea, haga lo siguiente:

1. Seleccione el rango de datos del que desea eliminar los saltos de línea.

2. Luego, haz clic Inicio > Buscar y seleccionar > Reemplaza (o presione Ctrl + H llaves) para ir al Buscar y reemplazar cuadro de diálogo, ver captura de pantalla:

3. En el estalló Buscar y reemplazar cuadro de diálogo, realice las siguientes operaciones:

  • Coloque el cursor en el Encuentra lo que campo y presione Ctrl + J en el teclado, es posible que no vea nada, pero se ha insertado el carácter de salto de línea.
  • En reemplazar campo, deje este campo vacío para eliminar los saltos de línea o presione el Espacio bar una vez para reemplazar los saltos de línea con espacios en blanco.

4. Luego, haz clic reemplazar todo , todos los saltos de línea en las celdas seleccionadas se eliminarán o reemplazarán con espacios en blanco a la vez. Ver captura de pantalla:


 Elimine los caracteres de salto de línea de las cadenas de texto con la función SUSTITUIR

También puede crear una fórmula basada en las funciones SUBSTITUTE y CHAR para eliminar los saltos de línea de las cadenas de texto.

Aplique la siguiente fórmula para obtener el resultado:

=SUBSTITUTE(A2,CHAR(10),"")

Tips: La función SUSTITUIR busca y reemplaza el carácter CHAR (10) que representa el carácter de salto de línea con nada. Si desea que el resultado esté separado por una coma y un espacio, puede usar la siguiente fórmula:

=SUBSTITUTE(A2,CHAR(10),", ")


 Elimine los caracteres de salto de línea de las cadenas de texto con código VBA

Si se siente cómodo usando el código VBA, aquí también se proporciona un código para usted, siga los siguientes pasos:

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: elimine los saltos de línea de las cadenas de texto

Sub RemoveCarriage()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

3. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro de aviso, seleccione el rango en el que desea eliminar los saltos de línea, vea la captura de pantalla:

4. Y luego, haga clic en OK , todos los saltos de línea se eliminarán del rango de datos seleccionado.


 Elimine los caracteres de salto de línea de las cadenas de texto con una opción inteligente

Aquí, Kutools for Excel, Quitar caracteres La función también puede ayudarlo a eliminar los saltos de línea con facilidad.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione el rango de celdas donde desea eliminar los saltos de línea y luego haga clic en Kutools > Texto > Quitar caracteres.

2. En la Quitar caracteres cuadro de diálogo, configure las siguientes operaciones:

  • cheque No imprime Bajo el Quitar caracteres .
  • Luego, haz clic Ok or ¡Aplicá! para eliminar todos los saltos de línea del rango de datos seleccionado. Ver captura de pantalla:

¡Descargue y pruebe Kutools para Excel ahora!


2.6 Eliminar espacios (iniciales, finales, adicionales o todos los espacios) de las cadenas de texto

Hacer frente y pegar texto de una fuente externa a una hoja de cálculo de Excel a menudo trae algunos espacios en blanco sobrantes molestos, será tedioso eliminar manualmente los espacios iniciales, finales u otros espacios adicionales. Afortunadamente, Excel proporciona algunos trucos sencillos para realizar esta tarea.

 Elimine los espacios adicionales (al principio, al final, en exceso) de las cadenas de texto con la función TRIM

En Excel, para eliminar los espacios iniciales, finales y adicionales de las cadenas de texto, la función TRIM simple puede ayudarlo. Esta función borra todos los espacios excepto los espacios simples entre palabras.

Ingrese la siguiente fórmula en una celda en blanco:

=TRIM(A2)

Y luego arrastre el controlador de relleno hacia abajo para copiar la fórmula de otras celdas, ahora puede ver que todos los espacios iniciales, finales y espacios adicionales entre las palabras se eliminan a la vez de la captura de pantalla:


 Eliminar todos los espacios de las cadenas de texto

Si desea eliminar todos los espacios en blanco de las cadenas de texto, la siguiente función SUSTITUIR y la función Buscar y reemplazar pueden hacerle un favor.

Utilizando la función SUSTITUIR

Puede usar la función SUSTITUIR para reemplazar todos los espacios con nada, aplique la fórmula a continuación en una celda en blanco:

=SUBSTITUTE(A2," ","")

Luego, arrastre el controlador de relleno hacia abajo para copiar esta fórmula a otras celdas que necesite, y todos los espacios se eliminarán como se muestra a continuación:


Utilizando la función Buscar y reemplazar

De hecho, la Buscar y reemplazar La función en Excel también puede ayudar a eliminar todos los espacios de las celdas seleccionadas, siga los siguientes pasos:

1. Seleccione el rango de datos del que desea eliminar todos los espacios.

2. Luego, haz clic Inicio > Buscar y seleccionar > Reemplaza (o presione Ctrl + H llaves) para ir a la Buscar y reemplazar cuadro de diálogo, en el abierto Buscar y reemplazar cuadro de diálogo, realice las siguientes operaciones:

  • Prensa Barra espaciadora existentes Encuentra lo que campo;
  • En reemplazar campo, deje este campo vacío.

3. Y luego, haga clic en reemplazar todo , todos los espacios en blanco de las celdas seleccionadas se eliminarán a la vez. Ver captura de pantalla:


 Elimine todo tipo de espacios de cadenas de texto con una función poderosa

Kutools for Excel tiene una característica poderosa - Eliminar espacios, con esta utilidad, no solo puede eliminar los espacios iniciales, los espacios finales, los espacios en exceso, sino también todos los espacios de los rangos seleccionados en un cuadro de diálogo, lo que mejorará la productividad de su trabajo.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione el rango de datos del que eliminará los espacios y luego haga clic en Kutools > Texto > Eliminar espacios. Ver captura de pantalla:

2. En la Eliminar espacios cuadro de diálogo, seleccione un tipo de espacio que desee eliminar del Tipo de espacios:

  • Quite los espacios iniciales, seleccione el Espacios principales opción;
  • Elimine los espacios finales, seleccione el Espacios finales opción;
  • Elimine los espacios iniciales y los espacios finales a la vez, seleccione el Espacios iniciales y finales opción;
  • Elimine todos los espacios adicionales, seleccione el Todos los espacios sobrantes opción;
  • Eliminar todos los espacios, seleccione el Todos los espacios .

3. Luego, haz clic Ok or ¡Aplicá! , obtendrá el resultado que necesita.

¡Descargue y pruebe Kutools para Excel ahora!


Eliminar caracteres / texto antes o después de un carácter específico

En esta sección, presentaré algunas operaciones para eliminar el texto o los caracteres antes o después de la primera, última o enésima aparición de un carácter específico.

3.1 Eliminar texto antes o después del primer carácter específico

Si desea eliminar el texto antes o después del primer carácter específico, como espacio, coma de una lista de cadenas de texto como se muestra a continuación, aquí publicaré dos métodos para usted.

 Eliminar el texto antes del primer carácter específico con una fórmula

Para eliminar texto o caracteres antes del primer carácter específico, puede crear una fórmula basada en las funciones RIGHT, LEN y FIND, la sintaxis genérica es:

=RIGHT(cell, LEN(cell)-FIND("char", cell))
  • (SCD por sus siglas en inglés),: La referencia de celda o la cadena de texto de la que desea eliminar el texto;
  • tanque: El separador específico en el que desea eliminar el texto.

Por ejemplo, para eliminar todo lo que está antes de la primera coma de las cadenas de la lista, debe aplicar la siguiente fórmula en una celda en blanco y luego arrastrarla hacia las celdas que necesita, vea la captura de pantalla:

=RIGHT(A2,LEN(A2)-FIND(",",A2))

Note: En la fórmula anterior: A2 es la celda de la que desea eliminar el texto; , es el carácter específico en el que desea eliminar el texto, puede cambiarlo a cualquier otro carácter que necesite.


 Eliminar texto después del primer carácter específico con una fórmula

Para eliminar todo después del primer carácter específico, puede usar las funciones IZQUIERDA y ENCONTRAR para obtener el resultado, la sintaxis genérica es:

=LEFT(cell,FIND("char",cell)-1)
  • (SCD por sus siglas en inglés),: La referencia de celda o la cadena de texto de la que desea eliminar el texto;
  • tanque: El separador específico en el que desea eliminar el texto.

Ahora, ingrese la fórmula a continuación en una celda en blanco y luego arrastre el controlador de relleno hacia abajo a otras celdas donde desea aplicar esta fórmula, y todos los caracteres después de la primera coma se eliminarán a la vez, vea la captura de pantalla:

=LEFT(A2,FIND(",",A2)-1)


3.2 Eliminar texto antes o después de la enésima aparición de un carácter

A veces, las cadenas de texto contienen varias instancias de un delimitador específico, es posible que desee eliminar todos los caracteres antes o después de una instancia específica, como el segundo, el tercero o el cuarto, según lo necesite. Para hacer frente a este tipo de eliminación, puede utilizar los siguientes trucos:

 Eliminar el texto antes de la enésima aparición de un carácter con una fórmula

Para eliminar el texto antes de la enésima aparición de un carácter específico, la siguiente fórmula puede ayudarlo, la sintaxis genérica es:

=RIGHT(cell,LEN(cell)-FIND("#",SUBSTITUTE(cell,"char","#",N)))
  • (SCD por sus siglas en inglés),: La referencia de celda o la cadena de texto de la que desea eliminar el texto;
  • tanque: El separador específico en el que desea eliminar el texto;
  • N: La aparición del personaje antes de la cual eliminar texto.

Por ejemplo, para eliminar todo lo que esté antes de la segunda coma de las cadenas de texto, debe aplicar la siguiente fórmula:

=RIGHT(A2,LEN(A2)-FIND("#",SUBSTITUTE(A2,",","#",2)))

Note: En la fórmula anterior: A2 es la celda de la que desea eliminar el texto; , es el carácter específico en el que desea eliminar el texto, puede cambiarlo a cualquier otro carácter que necesite; 2 indica la enésima coma antes de la cual desea eliminar el texto.

Y luego, arrastre el controlador de relleno para copiar la fórmula a otras celdas, vea la captura de pantalla:


 Eliminar texto después de la enésima aparición de un carácter con una fórmula

Para eliminar el texto después de la enésima aparición de un separador específico, las funciones IZQUIERDA, SUSTITUIR y ENCONTRAR pueden hacerle un favor. La sintaxis genérica es:

=LEFT(cell, FIND("#", SUBSTITUTE(cell, "char", "#", N)) -1)
  • (SCD por sus siglas en inglés),: La referencia de celda o la cadena de texto de la que desea eliminar el texto;
  • tanque: El separador específico en el que desea eliminar el texto;
  • N: La aparición del personaje después de la cual eliminar el texto.

Una vez que comprenda la sintaxis básica, copie o ingrese la fórmula siguiente en una celda en blanco:

=LEFT(A2, FIND("#", SUBSTITUTE(A2, ",", "#", 2)) -1)

Note: En la fórmula anterior: A2 es la celda de la que desea eliminar el texto; , es el carácter específico en el que desea eliminar el texto, puede cambiarlo a cualquier otro carácter que necesite; 2 indica la enésima coma después de la cual desea eliminar el texto.

Luego, arrastre el controlador de relleno para copiar la fórmula a otras celdas, y todos los caracteres después de la segunda coma se eliminarán a la vez, vea la captura de pantalla:


 Eliminar texto antes o después de la enésima aparición de un carácter con la función definida por el usuario

Como puede ver, puede resolver los casos para eliminar texto antes o después de la enésima aparición de un carácter utilizando las funciones nativas de Excel en diferentes combinaciones. El problema es que debes recordar estas complicadas fórmulas. En este caso, crearé una función definida por el usuario para cubrir todos los escenarios, haga lo siguiente:

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: elimine el texto antes o después de la enésima aparición de un carácter

Function RemoveTextOccurrence(Str As String, Delimiter As String, Occurrence As Integer, IsAfter As Boolean)
Dim xStr As String
Dim xStrLen, xF, xIntStart As Integer
xStr = Str
xStrLen = Len(xStr)
xIntStart = 1
For xF = 1 To Occurrence
xIntStart = InStr(xIntStart + 1, xStr, Delimiter, vbTextCompare)
If (xIntStart = 0) Or (xIntStart < 0) Then
    If IsAfter Then
    RemoveTextOccurrence = xStr
    Else
    RemoveTextOccurrence = ""
    End If
    Exit Function
End If
Next
If IsAfter Then
    RemoveTextOccurrence = Mid(Str, 1, xIntStart - 1)
Else
    RemoveTextOccurrence = Mid(Str, xIntStart + 1)
End If
End Function

3. Luego, cierre y salga de la ventana de código, vuelva a la hoja de trabajo, use las siguientes fórmulas:

Quite el texto antes de la segunda aparición de una coma:

=RemoveTextOccurrence(A2, ", ", 2, FALSE)

Eliminar texto después de la segunda aparición de una coma

=RemoveTextOccurrence(A2, ", ", 2, TRUE)


3.3 Eliminar texto antes o después de la última aparición de un carácter

Si necesita eliminar todo el texto antes o después del último carácter específico, y solo deja las subcadenas después o antes del último carácter específico como se muestra a continuación, esta sección hablará sobre algunas fórmulas para resolver este problema.

 Eliminar texto antes de la última aparición de un carácter con una fórmula

Para eliminar todos los caracteres antes de la última aparición de un carácter, la sintaxis genérica es:

=RIGHT(cell,LEN(cell)-SEARCH("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char","")))))
  • (SCD por sus siglas en inglés),: La referencia de celda o la cadena de texto de la que desea eliminar el texto;
  • tanque: El separador específico en el que desea eliminar el texto;

Ahora, si necesita eliminar el texto antes de la última aparición de una coma, copie o ingrese la fórmula a continuación en una celda en blanco:

=RIGHT(A2,LEN(A2)-SEARCH("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",","")))))

Note: En la fórmula anterior: A2 es la celda de la que desea eliminar el texto; , es el carácter específico en el que desea eliminar el texto, puede cambiarlo a cualquier otro carácter que necesite.

Luego, arrastre el controlador de relleno para copiar la fórmula a otras celdas, y todos los caracteres antes de la última coma se eliminarán como se muestra a continuación:


 Eliminar texto después de la última aparición de un carácter con fórmulas

Si los valores de la celda están separados con un número variable de delimitadores, ahora desea eliminar todo después de la última instancia de ese delimitador, la sintaxis genérica es:

=LEFT(cell,FIND("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char",""))))-1)
  • (SCD por sus siglas en inglés),: La referencia de celda o la cadena de texto de la que desea eliminar el texto;
  • tanque: El separador específico en el que desea eliminar el texto;

Copie o ingrese la fórmula a continuación en una celda en blanco y luego arrastre el controlador de relleno hacia abajo para obtener otros resultados que necesita, vea la captura de pantalla:

=LEFT(A2,FIND("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",",""))))-1)

Note: En la fórmula anterior: A2 es la celda de la que desea eliminar el texto; , es el carácter específico en el que desea eliminar el texto, puede cambiarlo a cualquier otro carácter que necesite.


3.4 Quitar texto entre paréntesis

Si tiene una lista de cadenas de texto con parte de los caracteres entre paréntesis, ahora, es posible que desee eliminar todos los caracteres entre paréntesis, incluidos los paréntesis, como se muestra a continuación. Esta sección hablará sobre algunos trucos para resolver esta tarea en Excel.

 Elimina el texto entre paréntesis con la función Buscar y reemplazar

En Excel, la función integrada Buscar y reemplazar puede ayudarlo a encontrar todos los textos entre paréntesis y luego reemplazarlos con nada. Por favor haz lo siguiente:

1. Seleccione la lista de datos que desea eliminar los textos entre paréntesis.

2. Luego, haz clic Inicio > Buscar y seleccionar > Reemplaza (o presione Ctrl + H teclas) para ir al cuadro de diálogo Buscar y reemplazar, en el Buscar y reemplazar cuadro de diálogo, realice las siguientes operaciones:

  • En Encuentra lo que Tipo de campo (*) en el cuadro de texto;
  • En reemplazar campo, deje este campo vacío.

3. Luego, haz clic reemplazar todo , todos los caracteres entre paréntesis (incluidos los paréntesis) en las celdas seleccionadas se eliminarán a la vez. Ver captura de pantalla:

Tips: Los Buscar y reemplazar La característica también funciona para dos o más pares de paréntesis dentro de las cadenas de texto.


 Eliminar texto entre paréntesis con fórmula

Además de la función Buscar y reemplazar, también puede usar una fórmula para resolver esta tarea en Excel, la sintaxis genérica es:

=SUBSTITUTE(text,MID(LEFT(text,FIND(")",text)),FIND("(",text),LEN(text)),"")
  • texto: La cadena de texto o la referencia de celda de la que desea eliminar caracteres.

Ahora, copie o ingrese la siguiente fórmula en una celda en blanco donde desea obtener el resultado:

=SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),"")

Luego, arrastre el controlador de relleno hacia las celdas donde desea aplicar esta fórmula, y todos los textos entre paréntesis, incluidos los paréntesis, se eliminarán a la vez, vea la captura de pantalla:

Tips: Si no hay paréntesis en el valor de la celda, se mostrará un error después de aplicar la fórmula anterior, para ignorar el error, utilice la fórmula siguiente:

=IFERROR(SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),""),A2)


 Elimina el texto entre paréntesis con la función definida por el usuario

La fórmula anterior funciona bien para eliminar texto de un par de paréntesis, si necesita eliminar los textos de varios pares de paréntesis dentro de las cadenas de texto, la fórmula no funcionará correctamente. Aquí, crearé una función definida por el usuario simple para resolver esta tarea.

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: elimine el texto entre paréntesis

Function remtxt(ByVal str As String) As String
'Updateby Extendoffice
  While InStr(str, "(") > 0 And InStr(str, ")") > InStr(str, "(")
    str = Left(str, InStr(str, "(") - 1) & Mid(str, InStr(str, ")") + 1)
  Wend
  remtxt = Trim(str)
End Function

3. Luego, regrese a la hoja de trabajo e ingrese esta fórmula en una celda en blanco: = remtxt (A2), luego arrastre el controlador de relleno hacia las celdas donde desea aplicar esta fórmula, todos los textos dentro de todos los paréntesis, incluidos los paréntesis, se eliminarán como se muestra a continuación:


Eliminar palabras de cadenas de texto

En cierto caso, es posible que desee eliminar algunas palabras de una lista de celdas, como la primera o la última palabra, palabras duplicadas de una celda. Para resolver este tipo de eliminación, esta sección le presentará algunos métodos.

4.1 Eliminar la primera o la última palabra de la cadena de texto

Para eliminar la primera o la última palabra de una lista de cadenas de texto, las siguientes fórmulas pueden hacerle un favor.

 Eliminar la primera palabra de la cadena de texto con fórmula

Elimine las primeras palabras de una lista de cadenas de texto, puede crear una fórmula simple basada en las funciones RIGHT, LEN y FIND, la sintaxis genérica es:

=RIGHT(text,LEN(text)-FIND(" ",text))
  • texto: La cadena de texto o la referencia de celda de la que desea eliminar la primera palabra.

Ahora, ingrese o copie la siguiente fórmula en una celda en blanco:

=RIGHT(A2,LEN(A2)-FIND(" ",A2))

Y luego, arrastre el controlador de relleno hacia abajo para aplicar la fórmula a otras celdas, vea la captura de pantalla:

Tips: Si necesita eliminar las primeras N palabras de las celdas, utilice la siguiente fórmula:

=MID(TRIM(text),1+FIND("~",SUBSTITUTE(TRIM(text)," ","~",N)),255)
  • texto: La cadena de texto o la referencia de celda de la que desea eliminar las primeras n palabras;
  • N: Indica cuántas palabras desea eliminar del principio de la cadena de texto.

Por ejemplo, para eliminar las dos primeras palabras de las celdas, copie o ingrese la fórmula a continuación en una celda en blanco para obtener el resultado que necesita, vea la captura de pantalla:

=MID(TRIM(A2),1+FIND("~",SUBSTITUTE(TRIM(A2)," ","~",2)),255)


  Eliminar la última palabra de la cadena de texto con fórmula

Para eliminar la última palabra de las cadenas de texto, también puede usar una fórmula para resolver esta tarea, la sintaxis genérica es:

=LEFT(TRIM(text),FIND("~",SUBSTITUTE(text," ","~",LEN(TRIM(text))-LEN(SUBSTITUTE(TRIM(text)," ",""))))-1)
  • texto: La cadena de texto o la referencia de celda de la que desea eliminar la última palabra;

Use la fórmula a continuación en una celda en blanco y luego arrastre el controlador de relleno hacia abajo para aplicar la fórmula a otras celdas, vea la captura de pantalla:

=LEFT(TRIM(A2),FIND("~",SUBSTITUTE(A2," ","~",LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ",""))))-1)

Tips: Para eliminar las últimas N palabras de una lista de celdas, la sintaxis genérica es:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",LEN(text)-LEN(SUBSTITUTE(text," ",""))-(N-1))))
  • texto: La cadena de texto o la referencia de celda de la que desea eliminar las últimas n palabras;
  • N: Indica la cantidad de palabras que desea eliminar del final de la cadena de texto.

Supongamos que, para eliminar las últimas 3 palabras de una lista de celdas, use la fórmula a continuación para devolver el resultado, vea la captura de pantalla:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))-(3-1))))


4.2 Eliminar caracteres o palabras duplicados dentro de una celda

Al eliminar valores o filas duplicados, Excel ofrece algunas opciones diferentes, pero, cuando se trata de eliminar algunos caracteres o palabras duplicados dentro de una celda determinada, es posible que no haya una buena función incorporada para resolverlo. En este caso, esta sección ayudará a crear algunas funciones definidas por el usuario para resolver este rompecabezas.

 Elimine los caracteres duplicados dentro de una celda mediante la función definida por el usuario

Si tiene varias apariciones del mismo carácter en una celda, para eliminar los caracteres duplicados dentro de una celda y mantener solo las primeras apariciones como se muestra a continuación, puede usar la siguiente función definida por el usuario.

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: elimine los caracteres duplicados dentro de una celda

Function RemoveDupeschars(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupeschars = xOutValue
End Function

3. Luego cierre la ventana de código, regrese a la hoja de trabajo e ingrese esta fórmula = Eliminarcaracteres duplicados (A2) en una celda en blanco además de sus datos, y luego arrastre el controlador de relleno a las celdas a las que desea aplicar esta fórmula, vea la captura de pantalla:

NoteA2 es la celda de datos de la que desea eliminar los caracteres duplicados.

Consejo: La función distingue entre mayúsculas y minúsculas, por lo que trata las letras minúsculas y mayúsculas como caracteres diferentes.


 Elimine palabras duplicadas dentro de una celda mediante la función definida por el usuario

Suponiendo que tiene las mismas palabras o cadenas de texto en una celda y le gustaría eliminar las mismas palabras de la celda como se muestra a continuación. Puede utilizar la siguiente función definida por el usuario para resolver esta tarea en Excel.

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código VBA: elimine palabras duplicadas dentro de una celda

Function RemoveDupeswords(txt As String, Optional delim As String = " ") As String
'Updateby Extendoffice
    Dim x
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupeswords = Join(.keys, delim)
    End With
End Function

3. Luego cierre la ventana de código, regrese a la hoja de trabajo e ingrese esta fórmula = Eliminar palabras duplicadas (A2, ",") en una celda en blanco además de sus datos, y luego arrastre el controlador de relleno a las celdas a las que desea aplicar esta fórmula, vea la captura de pantalla:

Note: A2 es la celda de la que desea eliminar las palabras duplicadas, y la coma y el espacio (, ) son los delimitadores para separar las cadenas de texto, puede cambiarlos por otros delimitadores según sus necesidades.

Consejo: Esta función no distingue entre mayúsculas y minúsculas, las letras minúsculas y mayúsculas se tratan como los mismos caracteres.


4.3 Recortar la cadena de texto a N palabras

Si tiene una cadena de texto larga en una celda, a veces, es posible que desee recortar la cadena de texto a un cierto número de palabras, lo que significa mantener solo las primeras n palabras y cortar las palabras restantes. Esta sección hablará sobre algunos trucos para ayudarlo a lograr este trabajo en Excel.

 Recorte la cadena de texto a N palabras con fórmula

Para recortar una cadena de texto a N palabras, puede crear una fórmula basada en las funciones IZQUIERDA, ENCONTRAR y SUSTITUIR, la sintaxis genérica es:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",N))-1)
  • texto: La cadena de texto o la referencia de celda que desea recortar;
  • N: La cantidad de palabras que desea mantener del lado izquierdo de la cadena de texto dada.

Para lidiar con este trabajo, copie o ingrese la siguiente fórmula en una celda en blanco:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",B2))-1)

Y luego, arrastre el controlador de relleno hacia abajo para aplicar esta fórmula a otras celdas, vea la captura de pantalla:


 Recorte la cadena de texto a N palabras con la función definida por el usuario

Excepto la fórmula anterior, también puede crear una función definida por el usuario para resolver esta tarea, haga lo siguiente:

1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código VBA: recorte la cadena de texto a N palabras

Function GetNWords(StrWords As String, Num_of_Words As Integer) As String
'Updateby Extendoffice
Dim xArr
Dim xRes As String
Dim xF As Integer
xStr = StrWords
If (Num_of_Words < 1) Then
    GetNWords = ""
    Exit Function
End If
xArr = Split(xStr, " ")
xRes = ""
On Error Resume Next
For xF = 0 To UBound(xArr)
    If Trim(xArr(xF)) <> "" Then
    Num_of_Words = Num_of_Words - 1
        If xRes = "" Then
            xRes = Trim(xArr(xF))
        Else
            xRes = xRes & " " & Trim(xArr(xF))
        End If
    End If
    If Num_of_Words = 0 Then Exit For
Next
If Num_of_Words = 0 Then
    GetNWords = xRes & "..."
Else
    GetNWords = xRes & "..."
End If
End Function

3. Luego cierre y salga de la ventana de código, vuelva a la hoja de trabajo e ingrese esta fórmula: = GetNWords (A2, B2) en una celda en blanco, y luego arrastre el controlador de relleno hacia abajo para aplicar esta fórmula a otras celdas, solo el primer número específico de palabras se mantiene como se muestra a continuación:


  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y conservación de datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertar rápidamente, Rangos, gráficos e imágenes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Agrupación de tablas dinámicas por número de semana, día de la semana y más ... Mostrar celdas bloqueadas y desbloqueadas por diferentes colores; Resalte las celdas que tienen fórmula / nombre...
pestaña kte 201905
  • 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!
officetab parte inferior
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