¿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:

Nota:: 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.

Ir a descargar Prueba gratis 30 díasComprar PayPal / Mi Comercio

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 Posición , luego escriba las posiciones en las que desea insertar el espacio, vea la captura de pantalla:

4. Y luego haz clic Ok or Aplicar , obtendrá el resultado de que los espacios se han insertado después de cada cuatro caracteres según lo necesite.

Consejos: 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?