Hsieh

¦^´_ 1# asus103

1. Sub getarray()
   
2. Dim ar(10, 10)
   
3. For i = 0 To 9
   
4. Randomize
   
5.   ar(i, 0) = Rnd 'µ¹²Ä¤@ºû¤¸¯À½á­È
   
6. Next
   
7. For i = 0 To 9
   
8. s = Application.Match(Application.Large(Application.Index(ar, , 1), i + 1), Application.Index(ar, , 1), 0) - 1 '­pºâ²Äi+1¤jªº­È¦b²Ä¤@ºûªº¦ì¸m
   
9. ar(s, 1) = i + 1 ''µ¹²Ä¤@ºû¤¸¯À½á­È
   
10. Next
    
11. [A1].Resize(10, 2) = ar
    
12. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# asus103
·|­«½Æ¡A¸Õ¸Õ¬Ý

1. Sub getarray()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Dim ar(1500, 1500)
   
4. Do Until d.Count = 1500
   
5. Randomize
   
6. x = Rnd
   
7. If d.exists(x) = False Then d.Add x, i: ar(i, 0) = x: i = i + 1 'µ¹²Ä¤@ºû¤¸¯À½á­È
   
8. Loop
   
9. ay = Application.Index(ar, , 1)
   
10. For i = 0 To 1499
    
11. x = Application.Large(ay, i + 1)
    
12.   s = Application.Match(x, ay, 0) - 1
    
13.   ar(s, 1) = i + 1
    
14. Next
    
15. [A1].Resize(1500, 2) = ar
    
16. End Sub

½Æ»s¥N½X