Note: The other languages of the website are Google-translated. Back to English
Iniciar sesión  \/ 
x
or
x
Registrarse  \/ 
x

or

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

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

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

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

doc inserta cada x carácter 1


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

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

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

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

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

Sub InsertCharacter()
'Updateby Extendoffice
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 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 inserta cada x carácter 2

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

doc inserta cada x carácter 3

5. Sigue haciendo clic OK, y en el cuadro de aviso seguido, ingrese el carácter específico que desea agregar al texto, vea la captura de pantalla:

doc inserta cada x carácter 4

6. Hacer clic OK y elija una celda donde desea generar el resultado en el cuadro de aviso, vea la captura de pantalla:

doc inserta cada x carácter 5

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

doc inserta cada x carácter 6


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

El código anterior puede ser algo 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 característica, puede agregar rápidamente un texto o carácter específico antes, después o ciertas posiciones del valor de la celda.

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. 

Si tienes instalado Kutools for Excel, haga lo siguiente:

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

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

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

doc inserta cada x carácter 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 4, 8 y 12 de la cadena de texto.

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

doc inserta cada x carácter 9 2 doc inserta cada x carácter 10

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

¡Descargue y pruebe Kutools para Excel ahora!


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

Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas 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 Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office / Excel 2007-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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

  • 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!
officetab parte inferior
Say something here...
symbols left.
You are guest
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.
    anaid83 · 29 days ago
    Creo que en vez de macros, es más fácil (aunque más largo):
    1. Separar en columnas la columna A (Pestaña Datos - botón texto en columnas) y separar por Ancho fijo. Así podrás poner un separador cada 4 caracteres.
    2. Elige destino desde B2 (si lo dejas predeterminado, pisará la columna A y no podrás ver el texto original).
    3. Ahora viene lo bueno, ya que son 4 series de 4caracteres cada uno, en la columna G o H (considerando que los valores de 4 caracteres estén desde las columnas B a la F), colocarás la siguiente fórmula: =CONCATENAR(B2;"-";C2;"-";D2;"-";E2;"-";F2). Ahora copia esa celda al resto de valores por insertar el símbolo -.
    4. Finalmente, copia toda la columna de resultados y pégala en una columna vacía pero como valor de texto (Inicio-Pegar-Valores... o con las teclas ALT+O+V+V) y listo, ya tienes tus seriales listos para pegar donde quieras sin necesidad de macros.
  • To post as a guest, your comment is unpublished.
    Wuilf · 1 years ago
    Muy buena esta macro, una pregunta curiosa al momento de ejecutarla los caracteres los aplica de izquierda a derecha, puede cambiarse ese orden que de derecha a izquierda? En caso de ser posible como es el proceso? Gracias.
  • To post as a guest, your comment is unpublished.
    John · 1 years 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