¿Cómo agrego guiones automáticamente en excel cuando ya tengo gran cantidad sin ellos?
En la celda los tengo así 0010308890021Q y los necesito así 001-030889-0021Q
1 Respuesta
H o l a:
¿El dato que pusiste "0010308890021Q" siempre tiene la misma longitud?
Siempre se debe dividir así:
3 caracteres
Guión
6 caracteres
Guión
5 caracteres
Puedes poner la siguiente fórmula en la columna de al lado, por ejemplo si tu dato lo tienes en la celda D2, pon la siguiente fórmula en la celda E2:
=EXTRAE(D2,1,3)&"-"&EXTRAE(D2,4,6)&"-"&EXTRAE(D2,10,5)
Copia o arrastra la fórmula hasta el final de tus datos de la columna D.
Gracias por la respuesta! Pero no me funciono.
Te explico:
Guardo los siguientes datos de esta manera: 0010308890021Q
Pero yo la necesito así: 001-030889-0021Q
Los números y letras pueden variar ya que es un documento de identificación, pero solo llevan letras al final.
Me encantaría poder recibir otra opción, adjunto mi correo
Pero, ¿qué es lo que no te funcionó?
Una vez que tienes los datos con guiones en la columna de la fórmula, puedes copiar la columna y pegarla como valores en la columna origen, y listo, ya tienes todos tus datos con guiones.
Otra opción es que ejecutes una macro y entonces cambia de esto:
0010308890021Q a esto: 001-030889-0021Q
Para realizar la macro me tienes que decir exactamente en qué columna y en qué fila empiezan tus datos.
E spero tus comentarios.
Los datos están en la columna F y empiezan desde la F3 hasta la F502.
Te anexo la macro
Sub Macro4()
'Por.Dante Amor
For i = 3 To Range("F" & Rows.Count).End(xlUp).Row
If InStr(1, Cells(i, "F"), "-") = 0 Then
Cells(i, "F") = Mid(Cells(i, "F"), 1, 3) & "-" & Mid(Cells(i, "F"), 4, 6) & "-" & Mid(Cells(i, "F"), 10, 5)
End If
Next
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Macro4
- Aceptar.
- Para ejecutarla dale click a la imagen.
Recuerda cambiar la valoración a la respuesta. Sal u dos
