Spero di aver capito bene

codice:
Function concatena()
Dim str As String
str = ""
For Each cella In Range("a1:a100")
str = str & cella.Value & ";"
Next cella
str = Left(str, Len(str) - 1)
concatena = str
End Function
Ovviamente adatta il range al tuo contesto
A questo punto nella finestra immediata scrivi

?concatena

avrai l'elenco di tutte le mail separate dal punto e virgola. Ti basta adesso fare copia incolla.