Прошу написать комментарии к каждой строке.Sub aaa()Randomize TimerFor r = 4 To 9For c = 2 To 8Cells(r, c) = 10 * Rnd - 5Next cNext rFor c = 2 To 8Set d = Range(Cells(4, c), Cells(9, c))d.Sort d, xlAscendingNext cEnd Sub

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