Formula Inteligente y Complicada

[dubiweb]

Ojo necesito hacer esta formula la verdad no le encuentro ni pies ni nada ya intente de todo vean

tengo estos códigos en una sola columna de excel:

255a25-25-555ss7-xx-52a
01a-dkd25-kiu-ror-02
2252-odjf02-541-d52d-6d2d

si lo notan son bloque de 5 y lo que necesito es sacarlo en columnas asi

colum1 colum2 colum3 colum4 colum5
255a25 25 555ss7 xx 52a
01a dkd25 kiu ror 02
2252 odjf02 541 d52d 6d2d


son como 50,00 o mas registros señores a pie me muero habrá una formula que detecte guiones y deje de leer el dato no se si me pueden ayudar

[ceSharp]

hola dubiweb,

hay una opción en datos-->texto en columnas que te permite hacer lo que quieres.
Sigue los pasos que te va indicando y hay un momento en el que le dices cual es el separador de columnas; ahí le dices que el guión.

salu2

[dubiweb]

muchas gracias por tu ayuda y también encontré este macro que me pasaron en ínter que también hace lo mismo, que te delimita y te separa en columnas aquí se los dejo para que lo vean y haber si le es útil a alguien, ya resuelve el problema igual que la solución que me dio ceSharp

Sub desmarcar()

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1)), TrailingMinusNumbers:=True

With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
Columns("A:E").EntireColumn.AutoFit
Range("A1").Select
ActiveWorkbook.Save
End Sub