dividir columnas <br> con excel

[carabassa]

Hola, mi proveedor me ha pasado una tabla con excel con la siguiente forma:



Lo que quiero es dividir la 4ª columna en muchas. Es decir cada vez que aparezca "<br>" que cree una columna.

¿Alguien tiene idea de algo?

[carabassa]

Creo que no me he explicado correctamente. La idea es esta:

tabla ahora:

columna1
x<br>y<br>z<br>

Quiero conseguir:

columna1 columna2 columna3
x y z

[alexg88]

Te paso una macro que he creado en un momento que te puede ayudar:

Código vb:

Sub separarEnColumnas(separador As String)
 
 Dim cadena
 Dim tokens
 Dim i
 If (Selection.Cells.Columns.Count = 1) Then
 For Each fila In Selection.Cells.Rows
  cadena = fila.Cells(1, 1).Value
  tokens = Split(cadena, separador)
  For i = 0 To UBound(tokens)
   fila.Cells(1, i + 1).Value = tokens(i)
  Next i
 Next
 End If
 
End Sub
 
Private Sub CommandButton1_Click()
 separarEnColumnas ("<br>")
End Sub
 

Luego tienes que crear un botón ActiveX en la hoja excel para llamar a la macro y crear el evento asociado al botón que en mi caso es CommandButton1_Click y en el tuyo dependerá del nombre del botón. Dentro del método metes la llamada al procedimiento y seleccionas la columna que deseas separar en varias y das click al botón y deberías tener separada la columna en tantas como <br> tengas.

Eso sí, tienes que dejar espacio a la derecha en caso de que tengas datos a la derecha de esa columna si no quieres que se sobreescriban, porque no he hecho que se creen nuevas columnas, sólo que escriba en las columnas de la derecha.

Espero que te sirva y saludos.

[carabassa]

Muchas gracias, voy a probar...

[mrocf]

Hola! carabassa (y Alexg)
La siguiente variante puede implementarse manualmente pues son -tan sólo- dos acciones, o puede implementarse mediante una macro.
Ella es:

Código PHP:

  Sub TextoEnColumnas()
With Range([d1], Cells(Rows.Count, "d").End(xlUp))
  .Replace What:="<br>", Replacement:="@", LookAt:=xlPart, SearchFormat:=False
  .TextToColumns Destination:=[d1], DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
    Other:=True, OtherChar:="@", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
End With
End Sub 
   

Saludos, Cacho R.

[carabassa]

Estáis hechos unas maquinas, muchas gracias!!!

[mrocf]

Iniciado por carabassa

Estáis hechos unas maquinas, muchas gracias!!!

Es eso o la grabadora de macros está funcionando de lo más bien...

Gracias por la devolución.
Cacho R.