dividir columnas <br> con excel

[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.