consulta sobre lista en excel

[3pies]

Si sabes hacer macros, puedes utilizar algo como esto:

Código:

Sub unir_correos()
'nos situamos en la 1ª celda con datos
Range("A1").Select
'hasta que no encuentre una celda vacía...
Do While Not IsEmpty(ActiveCell)
    'que vaya añadiendo lo que encuentre, a una variable,
    'y separaremos cada dato con un punto y coma
    emails = emails & ";" & ActiveCell
    'bajamos una fila
    ActiveCell.Offset(1, 0).Select
'seguimos con el bucle
Loop
'Hacemos un arreglo, pues al principio, delante
'de la primera cuenta de correo, nos saldrá una coma
emails = Mid(emails, 2)
'escribimos el dato que necesitamos en la
'celda de abajo
ActiveCell = emails
End Sub

De nada