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

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

Sub aaa() // "ааа" - имяПроцедуры (списокПараметров)Randomize Timer // генератор случайных чиселFor r = 4 To 9 // переменная r будет генерироваться от 4 до 9For c = 2 To 8 // переменная с будет генерироваться от 2 до 8Cells(r, c) = 10 * Rnd - 5 // Генерируем случайные числа от -5 до 10Next c // значение сNext rFor c = 2 To 8Set d = Range(Cells(4, c), Cells(9, c))d.Sort d, xlAscendingNext cEnd Sub

ой, подожди минутку, тут не всё. мой косяк.

Первая часть: Sub aaa() // "ааа" - имяПроцедуры (списокПараметров)Randomize Timer // генератор случайных чиселFor r = 4 To 9 // переменная "r" будет генерироваться от 4 до 9For c = 2 To 8 // переменная "с" будет генерироваться от 2 до 8Cells(r, c) = 10 * Rnd - 5 // Генерируем случайные числа от -5 до 10Next c // значение сNext r // значение rFor c = 2 To 8 // теперь переменая "с" будет генирировать случайное число от 2 до 8

Вторая часть: Set d = Range(Cells(4, c), Cells(9, c)) // Set предназначена для закрепления объекта за переменной d, Range описывает диапазон ячеек рабочего листа и возвращает свойства и методы, range - обеспечивает доступ к ячейке. В скобках указываются координаты ячейки от 4 до с и от 9 до с

Третья часть: d.Sort d, xlAscending // Sort осуществляет сортировку по твоим критериям d, xlAscending -задает порядок упорядочивания. Next c // значение сEnd Sub // конец программы под название 'Sub'

Читай комментарии, там всё в трёх частях подробно описано(всё после " // " - комментарии), если что-то непонятно - читай про макросы для exel, которые пишут с помощью твоего языка программирование VBA. Удачи!. ______________________________________________________________Не забудь сказать "Спасибо", ведь я старался!