¿Cómo reemplazar múltiples espacios con un solo espacio en las celdas de Excel?

Supongamos que tengo una lista de cadenas de texto que contienen múltiples espacios, y ahora necesito reemplazar estos espacios con un solo espacio entre las cadenas de texto para separar las palabras, como se muestra en la siguiente captura de pantalla. ¿Cómo podría reemplazar los múltiples espacios con uno solo a la vez sin tener que eliminarlos uno por uno?

Reemplazar múltiples espacios con un solo espacio usando una fórmula

Reemplazar múltiples espacios con un solo espacio usando Kutools para Excel

Reemplazar múltiples espacios con un solo espacio usando código VBA

Reemplazar múltiples espacios con un solo espacio usando una fórmula

En Excel, la función normal de Buscar y Reemplazar puede no funcionar bien para resolver este problema, así que podemos aplicar una fórmula simple para lidiar con ello. Por favor, haga lo siguiente:

1. Introduzca esta fórmula: =TRIM(SUBSTITUTE(A2,CHAR(32)," ")) en una celda en blanco junto al valor de su celda, vea la captura de pantalla:

2. Luego presione la tecla Enter para obtener el resultado, y seleccione la celda B2, luego arrastre el controlador de relleno sobre el rango de celdas al que desea aplicar esta fórmula, y todos los espacios adicionales se habrán eliminado de las cadenas de texto y solo se mantendrá un solo espacio entre el texto. Vea la captura de pantalla:

Reemplazar múltiples espacios con un solo espacio usando Kutools para Excel

Si tiene otros tipos de espacios que necesitan ser eliminados, como eliminar los espacios iniciales, espacios finales, todos los espacios del texto, recomiendo una herramienta poderosa: Kutools para Excel, con su utilidad Eliminar Espacios, puede eliminar cualquier espacio según sea necesario, como espacio inicial, espacios finales, todos los espacios...

Después de instalar Kutools para Excel, por favor haga lo siguiente:

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

2. Haga clic en Kutools > Texto > Eliminar Espacios, vea la captura de pantalla:

3. En el cuadro de diálogo Eliminar Espacios, elija Todos los espacios excesivos de la sección Tipo de espacio, y puede ver el resultado en el panel Vista previa, vea la captura de pantalla:

4. Y luego haga clic en el botón Aceptar o Aplicar, todos los espacios adicionales se habrán eliminado de la celda y solo quedará un solo espacio entre el texto.

¡Haga clic para descargar Kutools para Excel y pruébelo gratis ahora!

Reemplazar múltiples espacios con un solo espacio usando código VBA

Si está interesado en el código VBA, puedo crear un código para usted para reemplazar múltiples espacios con uno solo, por favor haga lo siguiente:

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

2. Luego haga clic en Insertar > Módulo, y pegue el siguiente código en la Ventana del Módulo.

Código VBA: Reemplazar múltiples espacios con un solo 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. Luego presione la tecla F5 para ejecutar este código, y aparecerá un cuadro de aviso para recordarle seleccionar el rango de datos del que desea eliminar los espacios adicionales, vea la captura de pantalla:

4. Y luego haga clic en el botón Aceptar, todos los espacios excesivos se habrán reemplazado con un solo espacio entre el texto.