¿Cómo insertar / agregar espacio después de cada x caracteres en las celdas?
Si tiene varias cadenas de texto en una lista de hoja de trabajo, ahora desea insertar un espacio después de cada 3 o x caracteres en las celdas, como se muestra en la siguiente captura de pantalla. ¿Cómo podría resolver este problema en Excel de forma rápida y sencilla?
Insertar / agregar espacio después de cada x caracteres en celdas con código VBA Insertar / Agregar espacio después de cada x caracteres en las celdas con Kutools para Excel |
Insertar / agregar espacio después de cada x caracteres en celdas con código VBA
Aplicando el siguiente código VBA, puede insertar rápidamente el espacio después de cada n caracteres para varias celdas a la vez, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Luego haga clic recuadro > Móduloy pegue el siguiente código en el Módulo ventana.
Código de VBA: inserte un espacio después de cada x caracteres:
Sub addspace()
'updateby Extendoffice
Dim i As Long
Dim xCell As Range
Dim xRg As Range
Dim xTxt As String
Dim xStr As String
Dim xUpdate As Boolean
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
xStr = xCell.Text
xTxt = ""
For i = 1 To Len(xStr) Step 4
If xTxt = "" Then
xTxt = Mid(xStr, i, 4)
Else
xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
End If
Next
xCell = xTxt
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Entonces presione F5 para ejecutar este código, y en el cuadro de aviso, seleccione las celdas en las que desea insertar espacio, vea la captura de pantalla:
4. Y luego haz clic OK , y los espacios se han insertado en el contenido de la celda después de cada cuatro caracteres, vea las capturas de pantalla:
Note: En el código anterior, puede cambiar el número 4 a otro número para insertar un espacio después. Y también puede cambiar el espacio delimitador a otros delimitadores en esta regla xTxt = Recortar (xTxt) & "" & Mid (xStr, i, 4) del código anterior.
Insertar / Agregar espacio después de cada x caracteres en las celdas con Kutools para Excel
Kutools for Excel, Añadir texto La función también puede ayudarlo a resolver este problema rápida y fácilmente.
Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haz lo siguiente :( ¡Descarga gratis Kutools para Excel ahora! )
1. Seleccione las cadenas de texto en las que desea insertar espacio.
2. Luego haga clic Kutools > Texto > Añadir texto, ver captura de pantalla:
3. En la Añadir texto cuadro de diálogo, presione la barra espaciadora una vez en el Texto cuadro y seleccione el Especificar Bajo el Puesto de trabajo, luego escriba las posiciones en las que desea insertar el espacio, vea la captura de pantalla:
4. Y luego haz clic Ok or ¡Aplicá! , obtendrá el resultado de que los espacios se han insertado después de cada cuatro caracteres según lo necesite.
Tips: El número de posiciones en el cuadro de texto Especificar debe estar separado por comas.
¡Descarga gratis Kutools para Excel ahora!
Artículo relacionado:
¿Cómo agregar / insertar cierto carácter cada x caracteres en las celdas?
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!