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.