Hsieh

¦^´_ 3# yeh6712

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. s = Application.CountA([A:A]) - 1
   
4. UsedRange.Offset(1, 2) = ""
   
5. For i = 1 To Application.CountA([B:B]) - 1 '¼ú¶µ
   
6.     Do
   
7.        j = Int((s * Rnd) + 1)
   
8.     Loop Until d.exists(j) = False
   
9.     d(j) = i
   
10.     Range([A2], [A2].End(xlDown)).Cells(j).Offset(, 2) = i 'CÄæ±o¼ú
    
11.     Range([B2], [B2].End(xlDown)).Cells(i).Offset(, 2) = Range([A2], [A2].End(xlDown)).Cells(j)  'DÄæ±o¼ú
    
12. Next
    
13. End Sub

½Æ»s¥N½X

¤U¸ü (72.87 KB)

2014-1-20 16:57