Excel - codigo alfanumerico consecutivo entre asteriscos

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 15 puestos en Excel (en relación al último mes)
Gráfica de Excel

codigo alfanumerico consecutivo entre asteriscos

Publicado por michael (1 intervención) el 28/03/2021 19:36:53
Hola , buenas tardes , soy nuevo en el foro y necesitaría ayuda con un tema que en principio es simple y que seguro que alguien sabe solucionarme .
Necesito generar un código alfanumérico consecutivo entre asteriscos con el siguiente formato :

*A000*
*A001*
*A002*
...
*A999*
*B000*
*B001*

Seria de gran ayuda que alguien pudiera decirme que formula utilizar. Muchas gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

codigo alfanumerico consecutivo entre asteriscos

Publicado por Antoni Masana (2488 intervenciones) el 29/03/2021 15:20:27
Este código genera de la A a la Z

1
2
3
4
5
6
7
8
9
10
11
Sub macro()
    Dim a As Byte, b As Integer, fila As Long
 
    fila = 1
    For a = 65 To 90
        For b = 0 To 999
            Cells(fila, "A") = "*" & Chr$(a) + Format(b, "000") & "*"
            fila = fila + 1
        Next
    Next
End Sub

En total genera 26000 códigos.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar