¿Cómo reemplazar varios espacios por un único espacio en las celdas de Excel?
Supongamos que tengo una lista de cadenas de texto con varios espacios y necesito reemplazarlos por un único espacio entre las palabras, tal como se muestra en la siguiente captura de pantalla. ¿Cómo puedo reemplazar todos los espacios múltiples por uno solo de forma simultánea, sin tener que eliminarlos uno a uno?
Reemplazar varios espacios por un único espacio mediante fórmula
Reemplazar varios espacios por un único espacio mediante Kutools para Excel
Reemplazar varios espacios por un único espacio mediante código VBA
Reemplazar varios espacios por un único espacio mediante fórmula
En Excel, la función habitual de Buscar y reemplazar podría no resolver adecuadamente este problema, por lo que podemos aplicar una fórmula sencilla. Siga estos pasos:
1. Introduzca esta fórmula: =TRIM(SUBSTITUTE(A2,CHAR(32),« »)) en una celda vacía junto al valor de su celda, como se muestra en la captura:
2. A continuación, pulse la tecla Intro para obtener el resultado, seleccione la celda B2 y arrastre el controlador de relleno hasta el rango de celdas al que desee aplicar esta fórmula. Así, todos los espacios adicionales se eliminarán de las cadenas de texto, conservando únicamente un espacio entre las palabras. Vea la captura:
Reemplazar varios espacios por un único espacio mediante Kutools para Excel
Si necesita eliminar otros tipos de espacios, como los espacios al principio, los espacios al final o todos los espacios del texto, le recomiendo una herramienta potente: Kutools para Excel, con su utilidad Eliminar espacios. ¡Podrá eliminar cualquier tipo de espacio que necesite: espacios iniciales, espacios finales, todos los espacios…!
Tras instalar Kutools para Excel, proceda como sigue:
1. Seleccione el rango de datos del que quiera eliminar los espacios adicionales.
2. Haga clic en Kutools > Texto > Eliminar espacios. Véase la captura:
3. En el cuadro de diálogo Eliminar espacios, seleccione Todos los espacios excesivos en la sección Tipo de espacio y podrá ver el resultado en el panel Vista previa. Véase la captura:
4. A continuación, haga clic en el botón Aceptar o Aplicar, y todos los espacios adicionales se habrán eliminado de la celda, dejando únicamente un espacio entre las palabras.
¡Haga clic para descargar Kutools para Excel y pruébelo gratis ahora!
Reemplazar varios espacios por un único espacio mediante código VBA
Si le interesa el código VBA, puedo proporcionarle un fragmento para reemplazar varios espacios consecutivos por un solo espacio. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. A continuación, haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Reemplazar varios espacios por un único espacio
Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
For Each x In Workx
x = WorksheetFunction.Trim(x)
Next x
End Sub
3. A continuación, pulse la tecla F5 para ejecutar este código y aparecerá un cuadro de diálogo que le pedirá que seleccione el rango de datos del que desee eliminar los espacios adicionales; consulte la captura siguiente:
4. A continuación, haga clic en el botón Aceptar y todos los espacios excesivos se reemplazarán por un único espacio entre las palabras.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos