Označ první řádek (nebo jeho část) oblasti k setřídění a spusť níže uvedené makro. Projede všechny řádky směrem dolů po první první prázdnou buňku a setřídí buňky v jednotlivých řádcích.Sub TriditRadkyZlevaDoprava()'' Třídí buňky v rámci řádku vzestupně zleva doprava'Dim VybranyRadek As RangeSet VybranyRadek = Application.SelectionVybranyRadek.SelectDo Until IsEmpty(ActiveCell)Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRightSelection.Offset(1, 0).SelectLoopEnd Sub