Eu não sei de nenhuma função de planilha que seja mais elegante que os SUBSTITUTOS aninhados, infelizmente. Se você quiser usar uma função definida pelo usuário do VBA, esta pode começar.
Public Function CleanAlpha(Target As Range) As String
Dim rCell As Range
Dim sReturn As String
Dim i As Long
'Only act on first cell
Set rCell = Target.Cells(1)
'loop through each character
For i = 1 To Len(rCell.Value)
Select Case Asc(Mid$(rCell.Value, i, 1))
Case 65 To 90, 97 To 122 'letters
sReturn = sReturn & Mid$(rCell.Value, i, 1)
Case 32 'spaces
sReturn = sReturn & Mid$(rCell.Value, i, 1)
End Select
Next i
CleanAlpha = Trim(sReturn)
End Function
Use em uma planilha como
=TRIM(cleanalpha(A1))