Split tekst i kolonne før sidste mellemrum

Med VBA kan det gøres sådan her.

Sub SidsteNavn()
  Dim Arr
  Arr = Split(ActiveCell.Text, " ")
  ActiveCell.Offset(0, 1) = Arr(UBound(Arr))
End Sub

Ja, så splitter den første række. Hvordan får jeg den til at køre videre i de næste rækker?

Den starter fra den celle man står i og bevæger sig nedad indtil der ikke er flere.

Sub SidsteNavn()
    Do Until Len(ActiveCell.Text) = 0
        Dim Arr
        Arr = Split(ActiveCell.Text, " ")
        ActiveCell.Offset(0, 1) = Arr(UBound(Arr))
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

Super. Det virker strålende

Opretter du lige et svar?

Her er et svar :-)