Programación VB excel

Const?C1?=?10?'Número de valores de ajuste continuo

Const?C2?=?15?'Número de valores de ajuste no continuo

Const?S?=? 10 ?'Establecer rango continuo

Sub?proceso()

Dim?a,?i!?j!,?d!,?n

Rango ( "A1").Ordenar?key1:=Rango("A1"),?order1:=xlAscendente

a?=?WorksheetFunction.Transpose(Range("A1:A"? &?[A65536 ] .End(xlUp).Row))

For?i?=?1?To?UBound(a)

d?=?a(i)?+?S

¿Para?j?=?i?A?UBound(a)

¿Si?j?+?1?>?UBound(a)?Entonces?¿Salir?For

Si?a(j?+?1)?>?d?Entonces?¿Salir?Para

Si?i?=?j?Entonces? ' Número discontinuo

a(i)? =?a(i)?-?C2

¿En caso contrario? 'Número continuo

n? =?a(i)?-?C1

Para?k?=?i?A?j

a(k)?=?n

i?=?j

Fin?Si

Rango("B1").Resize(UBound(a ))?=?WorksheetFunction.Transpose(a)

¿Fin?