Skip to main content
se añadieron 16 caracteres en el cuerpo
Origen Enlace

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
Resultado actual

A continuación dejo una imagen de apoyo.

  
Datos a separar

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

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
Resultado actual

A continuación dejo una imagen de apoyo.

 Datos a separar

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

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
Resultado actual

A continuación dejo una imagen de apoyo. 
Datos a separar

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

Origen Enlace

Separar datos de una misma celda en Excel

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
Resultado actual

A continuación dejo una imagen de apoyo.

Datos a separar

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