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.