kimbal

¦p
A1  123
A2  234
A3  678
A4  789
A5  345
A6  456
A7  567
     .
     .
     .
«ç¼Ë±N¨º¨Ç ...
wwh126 µoªí©ó 2013-2-24 16:12

1.     For i = 0 To 9
   
2.         Cells(Int(65535 * Rnd) + 1, Int(199 * Rnd) + 1).Value = Range("A1").Offset(i, 0)
   
3.     Next   

½Æ»s¥N½X

kimbal

¦p­n¦b«ü©wÀx¦s®æ¦p­n¦bD2¡AD5¡AD10¶i¦æÀH¾÷¼g¤JA¦æªº¼Æ­ÈÀ³¸ÓÂI¼g¡H
wwh126 µoªí©ó 2013-2-28 08:09

¤èªk¦³«Ü¦h, ³o¬O¨ä1

1. Sub test()
   
2.     Dim dic
   
3.     Dim itemCount, randItem, randItemCounter, strKey
   
4.     Dim dataOffset
   
5.    
   
6.     Set dic = CreateObject("Scripting.Dictionary")
   
7.     dic.Add "D2", "D2"
   
8.     dic.Add "D5", "D5"
   
9.     dic.Add "D10", "D10"
   
10.    
    
11.     dataOffset = 0
    
12.    
    
13.     For itemCount = dic.Count To 1 Step -1
    
14.         randItem = Int(itemCount * Rnd) + 1
    
15.         randItemCounter = 0
    
16.         For Each strKey In dic.Keys
    
17.             randItemCounter = randItemCounter + 1
    
18.             If randItemCounter = randItem Then
    
19.                 Range(dic.Item(strKey)).Value = Range("A1").Offset(dataOffset, 0).Value
    
20.                 dataOffset = dataOffset + 1
    
21.                 Call dic.Remove(strKey)
    
22.                 Exit For
    
23.             End If
    
24.         Next
    
25.     Next
    
26. End Sub

½Æ»s¥N½X