Kubi

¦^´_ 1# jeff5424

½Ð°Ñ¦Ò¡C

1. Sub test()
   
2.     Randomize
   
3.     Dim arr(1 To 15, 1 To 20)
   
4.     v = 20
   
5.     For r = 2 To 16
   
6.         tpm = Cells(r, 3).Value * 2 + 0.1
   
7.         nt = Cells(r, 2).Value - Cells(r, 3).Value
   
8.         For i = 1 To UBound(arr)
   
9.             For j = 1 To UBound(arr, 2)
   
10.                 arr(i, j) = nt + Round(Rnd * tpm, 1)
    
11.             Next j
    
12.         Next i
    
13.         Cells(v, 3).Resize(UBound(arr), UBound(arr, 2)) = arr
    
14.         v = v + 18
    
15.     Next r
    
16. End Sub

½Æ»s¥N½X