Colección de citas famosas - Slogan de motivación - 20121212
20121212
No es necesario utilizar vba.
a1 b1
20121212 2012-12-12
Ingrese 20121212 en la celda a1 e ingrese la fórmula =MID(A1,1,4)& en b1 "-"&MID(A1,5,2)&"-"&MID(A1,7,2)
Luego copie y pegue los datos de la columna b en la columna a.
O
Configuración de celda----Número---Personalizado---####-##-##
Sub Macro1 ()
Selección.NumberFormatLocal = "####-##-##"
End Sub