Прошу написать комментарии к каждой строке.

[email protected] в категроии Информатика, вопрос открыт 09.12.2017 в 00:37

Sub aaa()
Randomize Timer
For r = 4 To 9
For c = 2 To 8
Cells(r, c) = 10 * Rnd - 5
Next c
Next r
For c = 2 To 8
Set d = Range(Cells(4, c), Cells(9, c))
d.Sort d, xlAscending
Next c
End Sub