Cómo agregar o insertar caracteres específicos cada X caracteres en las celdas de Excel

En Excel, agregar separadores como guiones u otros caracteres específicos en ciertas posiciones dentro de cadenas de texto puede ser una tarea tediosa si se realiza manualmente. Por ejemplo, insertar un guion después de cada cuatro caracteres en múltiples celdas requiere un enfoque eficiente. Este artículo proporciona dos soluciones simples: usar código VBA o la utilidad Agregar Texto en Kutools para Excel para insertar caracteres a intervalos fijos sin problemas.

Insertar un carácter específico cada X caracteres en una celda con código VBA

Insertar un carácter específico cada X caracteres en una celda con Kutools para Excel

Insertar un carácter específico cada X caracteres en una celda con código VBA

Puedes aplicar el siguiente código VBA para insertar un carácter específico después de cada cuatro caracteres en las celdas; sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 en Excel, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la ventana del Módulo.

Código VBA: Insertar un carácter específico cada X caracteres en una 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. Presiona la tecla F5 para ejecutar este código. Aparecerá un cuadro de diálogo solicitándote seleccionar el rango de datos donde deseas insertar un carácter específico en las cadenas de texto. Consulta la captura de pantalla a continuación:

4. Haz clic en Aceptar, en el siguiente cuadro de diálogo, ingresa el número después del cual deseas insertar un carácter específico, consulta la captura de pantalla:

5. Continúa haciendo clic en Aceptar, y en el siguiente cuadro de diálogo, ingresa el carácter específico que deseas agregar al texto, consulta la captura de pantalla:

6. Haz clic en el botón Aceptar y selecciona una celda donde deseas mostrar el resultado en el cuadro de diálogo, consulta la captura de pantalla:

7. Finalmente, haz clic en Aceptar. El carácter especificado ahora se insertará en cada cadena de texto después de cada cuatro caracteres. Consulta la captura de pantalla a continuación:

Insertar un carácter específico cada X caracteres en una celda con Kutools para Excel

El código VBA puede ser complicado para principiantes en Excel. Aquí hay una alternativa más fácil: Kutools para Excel. Usando su función Agregar Texto, puedes agregar rápidamente texto o caracteres específicos antes, después o en posiciones específicas dentro de los valores de las celdas.

1. Selecciona el rango de datos donde deseas insertar un carácter específico.

2. Luego haz clic en Kutools > Texto > Agregar Texto, consulta la captura de pantalla:

3. En el cuadro de diálogo Agregar Texto, especifica el carácter que deseas insertar en el campo Texto. En la sección Posición, elige Especificar e ingresa las posiciones donde debe insertarse el carácter. Puedes ver una vista previa del resultado en el panel derecho. Consulta la captura de pantalla a continuación:

Consejos: Aquí escribo 4,8,12 en el cuadro de texto de Especificar, lo que indica que se insertará el texto específico después del 4º, 8º y 12º carácter de la cadena de texto.

4. Luego haz clic en el botón Aceptar o Aplicar, y el carácter especificado se habrá insertado en los valores de las celdas en posiciones específicas.

Haz clic para conocer más detalles sobre esta utilidad Agregar Texto.

Demostración: Insertar un carácter específico cada X caracteres en una celda con Kutools para Excel