consulta sobre lista en excel

[mrocf]

Una opción para pasar de
[email protected], [email protected], [email protected], [email protected], [email protected]

a
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]

es el siguiente código:

Código PHP:

  Sub DeTextoA_Lista()
Dim Ce1 As Range, Ce2 As Range, MyLst As Variant, i As Byte
On Error Resume Next
 
Rem Ce1 es asociado a la celda seleccionada
Set Ce1 = Application.InputBox("Seleccione la celda en la que se encuentra " & _
  "el texto a procesar", Type:=8)
If Ce1 Is Nothing Then Exit Sub
 
Rem Ce2 es asociado a la celda seleccionada
Set Ce2 = Application.InputBox("Seleccione la celda a partir de la cual " & _
  "desea colocar la lista", Type:=8)
If Ce2 Is Nothing Then Exit Sub
On Error GoTo 0
 
Rem Asigno al variant MyLst las direcciones de correo.
Rem MyLst será un vector debido a la función Split
Rem WorksheetFunction.Substitute elimina los inter-espacios
Rem Split es la base principal de este código
MyLst = Split(WorksheetFunction.Substitute(Ce1, " ", ""), ",")
 
Rem Paso las componentes de MyLst a las celdas de la hoja
Rem LBound brinda el menor subíndice del vector MyLst
Rem UBound brinda el mayor sub índice del vector MyLst
For i = LBound(MyLst) To UBound(MyLst)
  Ce2.Offset(i - LBound(MyLst)) = MyLst(i)
Next i
 
Rem Interrumpo las asociaciones de las variables de objeto Ce1 y Ce2
Set Ce1 = Nothing
Set Ce2 = Nothing
End Sub 
   

Saludos, Cacho.