Tekst til kolonner

Hej er det noget i den retning?

https://www.dropbox.com/s/zzm52oesbff0j9d/Tekst%20i%20kolonner.xlsx?dl=0

Brug Søg og erstat et par gange, så alle "skilletegnene" er ens inden du bruger Tekst til kolonner.

Mads32 - Ikke helt jeg vil gerne af med de "skillere" således at for eksempel:

URA/FL        bliver til        URA          FL
IBM MAR      bliver til        IBM            MAR
TKS,IBM      bliver til        TKS          IBM

Jan K - det kunne måske være en løsning, hvis jeg automatiserede med en makro.

Hvis det er de samme skilletegn hver gang, kunne det være en god ide. Eller lad makroen løbe cellere igennem og selv erstatte tegnene ad én omgang.

Fx noget i denne stil

Sub Opdel()
    For Each c In Selection.Cells
        Cells.Replace What:=",", Replacement:="/", LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:=" ", Replacement:="/", LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:="-", Replacement:="/", LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next
    Selection.TextToColumns Destination:=Range("a1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End Sub

Elle denne Løsning
https://www.dropbox.com/s/k2pnwra8nuisuwb/ini.xlsx?dl=0