Estoy trabajando en un proyecto en VisualBasic for Applications (VBA), dentro de Excel.
Teniendo en cuenta el siguiente código, busco saber como podría hacer para separar datos que están dentro de una misma celda. Mi objetivo es separarlos por un delimitador, el cual sería "-" (Guión).
Dim WrdArray() As String
Dim expresion As String
expresion = ActiveSheet.Cells(5, 3).Select
'expresion = ActiveSheet.Range(C5:C38).Select
WrdArray() = Split(expresion, "-")
'For i = LBound(WrdArray) To UBound(WrdArray)
strg = strg & vbNewLine & " - " & WrdArray(i)
'Next i
MsgBox strg
End Sub
Con este código, el resultado que obtengo es el siguiente
A continuación dejo una imagen de apoyo.
Es decir, que con esta macro sea posible dividir los datos tomando en cuenta el guión intermedio.
Que 1081 lo ponga en una celda y 1091 en otra
Espero sea posible obtener su ayuda
Muchas gracias, buen día