Programación Vba 17

a 1 = ABCDEFGHIJKLMNOPQRSTUVWXYZ

B1 =TEXTO(RANDBETWEEN(0,9999999999)," 0000000000")

C1 =MEDIO($A$1,RANDBETWEEN(1,26),1) ;MEDIO($A$1,RANDBETWEEN(1,26),1);MEDIO($A$1,RANDBETWEEN(1,26),1);MEDIO($A$1,RANDBETWEEN(1,26),1);MEDIO ($A$1,RANDBETWEEN(1,26),1);MEDIO($A$1,RANDBETWEEN(1,26),1);MEDIO($A$1,RANDBETWEEN(1,26),1);MEDIO($ A$1,RANDBETWEEN(1,26),1);MEDIO($A$1,RANDBETWEEN(1,26),1);MEDIO($A$1,RANDBETWEEN(1,26),1);MEDIO($A$1 ,RANDBETWEEN(1,26),1)

D1 =C1. B1

E1 =MID(D1, RANDBETWEEN(1, 6), 17)

Copie 2200 copias de BCDE en las siguientes cuatro columnas. La columna E es lo que desea.