oobird

¥H§Aªº«ä¸ô¡A¥i¥Hµy¥[§ïÅÜ¡G

1. Sub Lottery()
   
2.     Dim B1%, B2%, B3%, ball%, m&
   
3.     Dim arr()
   
4.     ball = 49
   
5.     For B1 = 1 To ball - 2
   
6.         For B2 = B1 + 1 To ball - 1
   
7.             For B3 = B2 + 1 To ball
   
8.                 m = m + 1
   
9.                 ReDim Preserve arr(1 To 3, 1 To m)
   
10.                 arr(1, m) = B1
    
11.                 arr(2, m) = B2
    
12.                 arr(3, m) = B3
    
13.             Next B3, B2, B1
    
14.             ActiveSheet.[a1].Resize(m, 3) = Application.Transpose(arr)
    
15.         End Sub

½Æ»s¥N½X