Макрос сортировки по возрастанию построчно в области

[whizzzkey]

Всем привет, помогите пожалуйста составить макрос EXCEL для построчной сортировки по возрастанию - к примеру есть некая матрица(область) данных из 3 строк и 5 столбцов
..............
0 12 4 8 9
3 6 2 14 7
18 5 9 0 4
.............
нужно осторитровать по возрастанию в каждой строке
..............
0 4 8 9 12
2 3 6 7 14
0 4 5 9 18
..............

[Serge 007]

whizzzkey , Вы на всех форумах хотите запостить?

[whizzzkey]

вы бы лучше ответ дали бы, вот и приходится везде постить

[Wasilic]

вы бы лучше ответ дали бы, вот и приходится везде постить

Прежде чем это писать, почитали бы п.2 правил_форума или то, что написано выше окна сообщения - после строки "Тема".
А в данном случае макрос такой:

Код Выделить Развернуть

   Range("A1:E1").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
       DataOption1:=xlSortNormal

   Range("A2:E2").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
       DataOption1:=xlSortNormal

   Range("A3:E3").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
       DataOption1:=xlSortNormal