Если надо каждую строку отдельно сортировать, то как-то так
[vba]Код
Sub sort()
Dim rng As Range, i&
Application.ScreenUpdating = False
Set rng = Range("A1").CurrentRegion
For i = 1 To rng.Rows.Count
ActiveSheet.sort.SortFields.Clear
ActiveSheet.sort.SortFields.Add Key:=rng.Rows(i), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.sort
.SetRange rng.Rows(i)
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
Next i
Application.ScreenUpdating = True
End Sub
[/vba]