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 agregar / insertar cierto carácter cada x caracteres en las celdas?

Supongamos que tengo una lista de cadenas de texto que quiero insertar guiones o cualquier otro separador después de cada cuatro caracteres en celdas para obtener el siguiente resultado de captura de pantalla. Se necesitan demasiadas celdas para insertar el cierto carácter, ¿hay formas rápidas de insertar guiones cada cuatro caracteres en Excel?

Inserte cierto carácter cada x caracteres en la celda con el código VBA

Inserte cierto carácter cada x caracteres en la celda con Kutools para Excel

doc insertar cada x caracter 1


Agregar carácter específico antes / después / cierta posición de la cadena de texto:

Kutools for Excel, Añadir texto la utilidad puede ayudarlo a agregar un carácter o letra específica antes o después de todas las celdas, al mismo tiempo también puede insertar el carácter entre la posición determinada de las cadenas de texto.

doc insertar cada x caracter 11

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


Inserte cierto carácter cada x caracteres en la celda con el código VBA


Puede aplicar el siguiente código VBA para insertar un carácter específico después de cada cuatro caracteres en celdas, haga lo siguiente:

1. Mantenga presionado el ALT + F11 teclas en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

Código de VBA: inserte cierto carácter cada x caracteres en la celda

Sub InsertCharacter()
'Updateby20150813
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3. Entonces presione F5 tecla para ejecutar este código, y aparecerá un cuadro emergente para recordarle que seleccione el rango de datos en el que desea insertar cierto carácter dentro de las cadenas de texto, vea la captura de pantalla:

doc insertar cada x caracter 2

4. Y haga clic en OK, en el siguiente cuadro de diálogo, ingrese el número que desea insertar cada carácter, vea la captura de pantalla:

doc insertar cada x caracter 3

5. Sigue haciendo clic OK, y en el cuadro de diálogo seguido, ingrese el cierto carácter que desea agregar al texto, vea la captura de pantalla:

doc insertar cada x caracter 4

6. Hacer clic OK y elija una celda donde desea dar salida al resultado en el cuadro de solicitud, vea la captura de pantalla:

doc insertar cada x caracter 5

7. Por último, haz clic OK, el cierto carácter se ha insertado en cada cadena de texto cada cuatro caracteres, ver captura de pantalla:

doc insertar cada x caracter 6


Inserte cierto carácter cada x caracteres en la celda con Kutools para Excel

El código anterior puede ser un tanto difícil para la mayoría de los principiantes de Excel, aquí, puedo presentar una herramienta útil: Kutools for Excel, Con su Añadir texto función, puede agregar rápidamente un texto o carácter específico antes, después o en ciertas posiciones del valor de la celda.

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

Si tienes instalado Kutools for Excel, haz lo siguiente:

1. Seleccione el rango de datos que desea insertar un carácter específico.

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

doc insertar cada x caracter 7 7

3. En la Añadir texto cuadro de diálogo, especifique un carácter que desea insertar en Texto caja, y luego elegir Especificar desde la posición sección, en el cuadro de texto, ingrese las posiciones en las que desea insertar el carácter, al mismo tiempo, puede obtener una vista previa del resultado en el panel derecho, vea la captura de pantalla:

doc insertar cada x caracter 8

Consejos: Aquí escribo 4,8,12 en el cuadro de texto de Especificar que indican insertar el texto específico después de los caracteres 4th, 8th y 12th de la cadena de texto.

4. A continuación, haga clic en Ok or Aplicar botón, el carácter especificado se ha insertado en los valores de celda en posiciones específicas.

doc insertar cada x caracter 9  2 doc insertar cada x caracter 10

Haga clic para obtener más detalles sobre esta utilidad Agregar texto.

Descargue y pruebe de forma gratuita Kutools for Excel Now!


Demostración: inserte cierto carácter cada x caracteres en la celda con Kutools para Excel

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


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.
  • To post as a guest, your comment is unpublished.
    John · 1 months ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios