¿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
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:
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:
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:
6. Hacer clic OK y elija una celda donde desea generar el resultado en el cuadro de aviso, vea la captura de pantalla:
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:
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:
Tips: 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 ¡Aplicá! , el carácter especificado se ha insertado en los valores de celda en posiciones específicas.
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
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!