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 / 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 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 rápida y fácilmente?

doc agrega espacio después de x caracteres 1

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 celdas con Kutools para Excel


flecha azul burbuja derecha Insertar / Agregar espacio después de cada x caracteres en celdas con código VBA

Al aplicar 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 presionado 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 Módulo ventana.

Código de VBA: inserte espacio después de cada x caracteres:

Sub addspace()
'updateby Extendoffice 20151207
    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 clave para ejecutar este código, y en el cuadro de diálogo, seleccione las celdas a las que desea insertar espacio, vea la captura de pantalla:

doc agrega espacio después de x caracteres 2

4. Y luego haz clic OK botón, y los espacios se han insertado en el contenido de la celda después de cada cuatro caracteres, ver capturas de pantalla:

doc agrega espacio después de x caracteres 3  2 doc agrega espacio después de x caracteres 4

Nota: En el código anterior, puede cambiar el número 4 a otro número para insertar espacio después. Y también puedes cambiar el espacio del delimitador a otros delimitadores en esta regla xTxt = Trim (xTxt) & "" & Mid (xStr, i, 4) del código anterior.


flecha azul burbuja derecha Insertar / Agregar espacio después de cada x caracteres en celdas con Kutools para Excel

Kutools for Excel, Añadir texto la función también puede ayudarlo a resolver este problema de manera rápida y fácil.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente :( Descarga gratuita Kutools for Excel ahora! )

1. Seleccione las cadenas de texto que desea insertar espacio.

2. Luego haga clic Kutools > Texto > Añadir texto, mira la captura de pantalla:

doc agrega espacio después de x caracteres 5

3. En la Añadir texto cuadro de diálogo, presione la barra espaciadora una vez hacia Texto cuadro, y seleccione la Especificar Bajo el Posición, luego escriba las posiciones en las que desea insertar el espacio, vea la captura de pantalla:

doc agrega espacio después de x caracteres 6

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

Consejos: El número de posiciones en el cuadro de texto Especificar debe estar separado por comas.

Descarga gratuita Kutools for Excel ahora!


Artículo relacionado:

¿Cómo agregar / insertar cierto carácter cada x caracteres en las celdas?


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...
  • Más de potentes funciones de 300. Funciona con Office 2007-2019 y 365. Soporta todos los idiomas. Fácil despliegue en compañía. 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.

Be the first to comment.