Aqui está uma solução usando o VBA. Tenho certeza de que esta não é a solução mais eficiente, mas pode ser um ponto de partida para algo mais eloqüente.
Adiciona um 'a cada célula
Sub MarkUp()
Dim aCell As Range For Each aCell In Selection
aCell = "'" & aCell.Formula
Next
End Sub
Classifica o intervalo
Private Sub Sort()
Dim aRange As Range
Dim aCell As Range
Set aRange = Selection
Set aCell = ActiveCell
aRange.Sort Key1:=aCell, Order1:=xlAscending, Header:=xlGuess
End Sub
Limpa acima
Private Sub CleanUp()
Dim aCell As Range For Each aCell In Selection
aCell = WorksheetFunction.Substitute(aCell, "'", "")
Next
End Sub
e
Sub SortFormulas() MarkUp Sort CleanUp End Sub