Cómo añadir o insertar caracteres específicos cada X caracteres en celdas de Excel
En Excel, añadir separadores como guiones u otros caracteres específicos cada pocas posiciones en cadenas de texto puede resultar una tarea tediosa si se realiza manualmente. Por ejemplo, insertar un guion después de cada cuatro caracteres en varias celdas exige un enfoque más eficiente. Este artículo presenta dos soluciones sencillas: utilizar código VBA o la utilidad *Agregar texto* de Kutools para Excel, para insertar caracteres a intervalos fijos de forma rápida y sin esfuerzo.
Insertar un carácter determinado cada x caracteres en una celda con código VBA
Insertar un carácter determinado cada x caracteres en una celda con Kutools para Excel
Insertar un carácter determinado cada x caracteres en una celda con código VBA
Puede aplicar el siguiente código VBA para insertar un carácter específico tras cada cuatro caracteres en las celdas. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 en Excel; esto abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Insertar un carácter determinado 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. Pulse la tecla F5 para ejecutar este código. Aparecerá un cuadro de diálogo que le pedirá que seleccione el rango de datos donde desea insertar un carácter específico en las cadenas de texto. Vea la captura de pantalla siguiente:
4. A continuación, haga clic en Aceptar. En el cuadro de diálogo siguiente, introduzca el número de caracteres tras los cuales desea insertar el carácter específico. Vea la captura de pantalla:
5. Siga haciendo clic en Aceptar y, en el cuadro de diálogo posterior, introduzca el carácter específico que desea añadir al texto. Vea la captura de pantalla:
6. Haga clic en el botón Aceptar y seleccione la celda en la que desee mostrar el resultado en el cuadro de diálogo. Vea la captura de pantalla:
7. Por último, haga clic en Aceptar. El carácter especificado se insertará ahora en cada cadena de texto después de cada cuatro caracteres. Vea la captura de pantalla siguiente:
Insertar un carácter determinado cada x caracteres en una celda con Kutools para Excel
El código VBA puede resultar complicado para usuarios principiantes de Excel. He aquí una alternativa mucho más sencilla: Kutools para Excel. Gracias a su función Agregar texto, podrás añadir rápidamente texto o caracteres específicos antes, después o en posiciones concretas dentro de los valores de las celdas.
1. Seleccione el rango de datos en el que quiera insertar un carácter específico.
2. A continuación, haga clic en Kutools > Texto > Agregar texto. Vea la captura de pantalla:
3. En el cuadro de diálogo Agregar texto, especifique el carácter que desea insertar en el campo Texto. En la sección Posición, seleccione Especificar e introduzca las posiciones en las que debe insertarse el carácter. Puede previsualizar el resultado en el panel derecho. Vea la captura de pantalla siguiente:
Consejos: Aquí he escrito 4, 8, 12 en el cuadro de texto de Especificar, lo que indica que se debe insertar el texto específico tras el 4.º, 8.º y 12.º carácter de la cadena de texto.
4. A continuación, haga clic en el botón Aceptar o Aplicar. El carácter especificado se insertará en los valores de las celdas en las posiciones indicadas.
 |  |  |
Haga clic para descubrir más detalles sobre esta útil función Agregar texto.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Demostración: Insertar un carácter determinado cada x caracteres en una celda con Kutools para Excel
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos