¿Cómo insertar espacios antes de las 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í: Insertar filas en blanco entre datos, y ahora desea agregar los espacios antes de cada letra con letras mayúsculas para separar las palabras como Insertar filas en blanco entre datos. ¿Cómo podría agregar espacios delante de las letras mayúsculas rápidamente en lugar de escribir espacios uno por uno en Excel?
- Inserte espacios antes de las letras mayúsculas con la función definida por el usuario
- Inserte espacios antes de las letras mayúsculas con código VBA
- Inserte un espacio antes de cada letra mayúscula con Kutools para Excel
Inserte espacios antes de las letras mayúsculas con la 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 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.
Inserte espacios antes de las letras mayúsculas con código VBA
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:
Inserte un espacio antes de cada letra 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.
Kutools for Excel - Equipado con más de 300 herramientas esenciales para Excel. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! ¡Descargar ahora!
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 del desplegable 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:
Kutools for Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de 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. Puede aplicar Kutools > Texto > Eliminar espacios para eliminar todos los espacios iniciales de las celdas seleccionadas.
Artículo relacionado:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- 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!