[john_revelator]

Ti ho scritto questa macro che mi sembra funzioni a dovere

Sub splitta()
Dim cella As Range
Dim k, i As Byte
Dim parole As Variant
For Each cella In Selection.Cells
    parole = Split(cella, " ")
    k = 1
        For i = 0 To UBound(parole)
            Cells(cella.Row, cella.Column + k) = parole(i)
            k = k + 1
        Next i
Next cella
End Sub

Una volta selezionate tutte le celle che vuoi "splittare" lancia la mia macro. Per prudenza prova su una copia del tuo file.