Desafortunadamente, no hay una forma directa de agregar espacios antes de las letras mayúsculas en Excel, pero puede crear una función definida por el usuario para resolver esta tarea.

1. Active su hoja de trabajo que contiene las cadenas de texto a las que desea agregar espacios.

2. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.

3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana del módulo.

Código de VBA: inserte espacios antes de las letras mayúsculas

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4. Luego guarde y cierre este código, regrese a la hoja de trabajo e ingrese esta fórmula = agrega espacios (A1) en una celda en blanco además de sus datos, vea la captura de pantalla:

5. Y luego arrastre el controlador de relleno sobre el rango que desea que contenga esta fórmula, obtendrá los espacios que se insertan antes de cada letra mayúscula.

Elimine fácilmente los espacios iniciales / finales / adicionales en las celdas

Kutools para Excel Eliminar espacios La utilidad permite a los usuarios de Excel eliminar fácilmente todo el espacio inicial, el espacio final, los espacios adicionales o todos los espacios de las celdas seleccionadas rápidamente.

Aquí hay otro código VBA que puede hacerte un favor, haz lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.

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

Código de VBA: inserte espacios antes de las letras mayúsculas

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. Entonces presione F5 para ejecutar este código, aparecerá un cuadro emergente que le permitirá seleccionar un rango de datos que desee utilizar.

4. Y luego haz clic OK para cerrar este cuadro de aviso, los espacios se han insertado antes de las letras mayúsculas a la vez, vea la captura de pantalla:

Kutools para Excel Añadir texto La utilidad puede ayudarlo a omitir las macros de VBA e insertar espacio antes de cada letra mayúscula fácilmente en Excel.

1. Seleccione el rango donde insertará el espacio antes de las letras mayúsculas y haga clic en el Kutools > Texto > Añadir texto. Ver captura de pantalla:

2. En el cuadro de diálogo de apertura Agregar texto, escriba un espacio en el Texto casilla, marque la Solo agregar a la opción y seleccionar La primera letra es mayúscula de Solo agregar a la lista desplegable.

3. Haga clic en Ok para insertar un espacio antes de cada letra mayúscula como se muestra en la siguiente captura de pantalla:

Notas: Este método también agregará espacio al comienzo de las celdas si la primera letra es mayúscula. Puede aplicar Kutools > Texto > Eliminar espacios para eliminar todos los espacios iniciales de las celdas seleccionadas.

¿Cómo agregar espacios después de las comas en Excel?