Как сделать чтобы массив не брал(игнорил) нули? 
Скрытый текст |
|---|
| Sub progr() Dim I, min As Integer For I = 3 To 10 Cells(11, I) = Int(Rnd * 9) Next I min = Cells(11, 2) For I = 3 To 10 If min > Cells(I, 2) Then min = Cells(I, 2) End If Next I Cells(13, 3) = min End Sub |
