Clasificación repetida en Excel vba (de mayor a menor)

Dim i, j, k, temp, a (510) es un número entero

Dim Str, b (510) es una cadena

str = Rango ("b5")amp. Range("c5")

j = 0

Para i = 1 a Len(Str)

Si i = función de hoja de cálculo. buscar(Mid(Str,I,1),Str,1) entonces

temp = Len(Str)-Len(Replace(Str,Mid(Str,I,1)"")) p>

j = j 1

k = j

Cuando (k)

Está bien si la temperatura es gt

a(k 1) = a(k)

b(k 1) = b(k)

Temperatura

b(k) = Mid(Str , I, 1)

Terminará si...

k = k - 1

Fila

It terminará si...

Entonces

Para k = 1 a j

Rango (Chr(k 97) y "2") = b(k )

Rango(Chr(k 97) y "3") = a(k)

Entonces