Hej hej

För detta behöver du vba. Lägg in nedan kod i en egen modul i VBA editorn (alt f11), högerclicka på vba-projekt - lägg till modul. Klistra in koden i det tomma stora fönstret. Därefter kan du i valfri cell skriva:

=dDelaUppMeningar($A$1;RAD(A1)) om du vill att orden ska delas upp när du drar formeln nedåt. eller:
=dDelaUppMeningar($A$1;Kolumn(A1)) om du vill dela upp dem genom att dra formeln åt höger.

Första argumentet av $A$1 motsvarar platsen där datan som du vill dela upp ligger.

mvh
Christian
----------------------------------------------------
Function dDelaUppMeningar(ByVal str As String, ByVal n As Long)

Dim splitstr As Variant
splitstr = Split(str, ",")
Dim i As Long, k As Long: k = 0
ReDim tmparr(0 To upperx) As Variant

For i = 0 To UBound(splitstr)

If Not Trim(Left(splitstr(i), 1)) = UCase(Left(Trim(splitstr(i)), 1)) Then
tmparr(k - 1) = tmparr(k - 1) & splitstr(i)
k = k + 1
Else
tmparr(k) = splitstr(i)
k = k + 1
End If
Next i

dDelaUppMeningar = Trim(tmparr(n - 1))

End Function

Är det alltid Massa, papper och förpackningar där kommatecknet sitter fel? I så fall kan du bara använda sök och ersätt.. När detta är gjort s fungerar text till kolumner med komma som separator.

Sök: Massa, papper och förpackningar
Ersätt: Massa papper och förpackningar

Annars får du gärna maila över filen till mig då det är svårt att se vad som har gått fel annars.
Christian.hagglund@xls.se

mvh
Christian