Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo insertar espacios antes de letras mayúsculas en excel?

Supongamos que tiene una lista de cadenas de texto en la que todos los espacios entre las palabras se eliminan accidentalmente, así: InsertBlankRowsBetweenData, y ahora desea agregar los espacios antes de cada letra con mayúsculas para separar las palabras como Insertar filas en blanco entre los datos. ¿Cómo podría agregar espacios en frente de las letras mayúsculas rápidamente en lugar de escribir espacios uno por uno en Excel?

Insertar espacios antes de mayúsculas con función definida por el usuario

Insertar espacios antes de mayúsculas con código VBA

Insertar espacio antes de cada mayúscula con Kutools para Excel

Elimine fácilmente espacios principales / finales / adicionales en las celdas

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

quitar espacio 1

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

flecha azul burbuja derecha Insertar espacios antes de mayúsculas con función definida por el usuario


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 que desea agregar espacios.

2. Mantenga presionado 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 Ventana del módulo.

Código de VBA: inserte espacios antes de 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 = addspaces (A1) en una celda en blanco además de tus datos, mira la captura de pantalla:

doc-add-spaces-before-uppercase-1

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

doc-add-spaces-before-uppercase-1


flecha azul burbuja derecha Insertar espacios antes de mayúsculas con código VBA

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

1. Mantenga presionado 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 Ventana del módulo.

Código de VBA: inserte espacios antes de 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 desea usar.

doc-add-spaces-before-uppercase-1

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, ver captura de pantalla:

doc-add-spaces-before-uppercase-1


flecha azul burbuja derecha Insertar espacio antes de cada mayúscula con Kutools para Excel

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 va a insertar espacio antes de letras mayúsculas, y haga clic en Kutools > Texto > Añadir texto. Ver captura de pantalla:

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

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

doc agregar espacios antes de mayúsculas 7

Kutools for Excel - Incluye más de útiles herramientas 300 para Excel. Prueba gratuita de funciones completas 60-day, ¡no se requiere tarjeta de crédito! CONSÍGUELO AHORA

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


flecha azul burbuja derechaArtículo relacionado:

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


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Luca · 11 months ago
    Hello

    First thanks a lot for your code example and the explanations. It works very well for my case.

    I just have 1 Problem, some of the Strings contain words like URL, which should not be seperated.
    Do you see a way to except for example "URL" from adding spaces?

    Would be very nice if you can help. I tried already a while, but i dont know how to solve this..


    Best regards
    luca
    • To post as a guest, your comment is unpublished.
      kellytte · 7 months ago
      Hi,
      Thanks for your comment and advice. I have sent your suggestion to the Kutools project team, I’m sure they’ll improve it soon.
  • To post as a guest, your comment is unpublished.
    Excelsior · 2 years ago
    Hi there, your code works fantastic. Do you know how to adapt code 20140723 to work on multiple sheets? I would like to add spaces between capital letters throughout the entire workbook.

    Thanks!
  • To post as a guest, your comment is unpublished.
    Paul · 2 years ago
    i need a help in excel
    i want to find Uppercase in a cell.
    for example: Sagar Paul MBA
    16:04
    i want MBA to be highlighted
    • To post as a guest, your comment is unpublished.
      Jay · 2 years ago
      I hope you can see it and give it a trial.

      Sub Test()
      Dim Rg As Range, xCell As Range
      Dim i As Long
      Dim xChar As String
      Set Rg = Application.Selection
      For Each xCell In Rg
      For i = 1 To xCell.Characters.Count
      xChar = xCell.Characters(i, 1).Text
      If Asc(xChar) > 64 And Asc(xChar) < 91 Then
      xCell.Characters(i, 1).Font.Color = vbRed
      End If
      Next
      Next
      End Sub