­ã´£³¡ªL

¥þ³¡¥Î°}¦C±Æ§Ç¡G
Arr = xD2.keys
Brr = xD2.items
Y = xD2.Count
ReDim Crr(1 To Y, 1 To 2)
For i = 1 To Y
¡@¡@For j = i - 1 To 1 Step -1
¡@¡@¡@¡@If Brr(i - 1) < Crr(j, 2) Then Exit For
¡@¡@¡@¡@Crr(j + 1, 1) = Crr(j, 1)
¡@¡@¡@¡@Crr(j + 1, 2) = Crr(j, 2)
¡@¡@Next j
¡@¡@¡@¡@Crr(j + 1, 1) = Arr(i - 1)
¡@¡@¡@¡@Crr(j + 1, 2) = Brr(i - 1)
Next i
[F1:G1].Resize(Y) = Crr¡@'¦C¥X¥þ³¡
[H1:I1].Resize(3) = Crr¡@'¦C¥X«e¤T¦h