O seguinte dá nome, espaço e última inicial. Eu gostaria primeiro inicial e sobrenome sem um espaço entre.
Sub FNLI()
Dim cell
For Each cell In Selection
cell.Offset(0, 1) = Mid$(cell.Value2, 1, InStr(cell.Value2, Chr(32)) + 1)
Next...
02.01.2014 / 04:44