A Sütununda alt alta sıralanmış e-postaları, B Sütununda yan yana birleştirerek yaz

[antonio]

Arkadaşlar A sütununda alt alta sıralı, 100 den fazla e-posta adresi var. Bunları mail grubu olarak yan yana birleştirmek ve aralarına noktalı virgül bırakmak istiyorum.
Yardımlarınız için önceden teşekkürler, örnek dosya ektedir. Saygılarımla.

 

[Mahir64]

MErhaba,

Forumda arama yaparsanız örnekler mevcut.
http://www.excel.web.tr/f47/satyrlary-tek-hucrede-birle-tirme-t51792.html
http://www.excel.web.tr/f48/hucre-birle-tirme-t88843.html

 

[Orion1]

Dosyanız ektedir.

Sub Birlestir59()
Dim i As Long, sat As Long, sat2 As Long, deg As String
Range("B2").Value = ""
Application.ScreenUpdating = False
sat = Cells(Rows.Count, "A").End(xlUp).Row
sat2 = 2
For i = 2 To sat
    deg = Cells(i, "A").Value & ";" & deg
Next i
deg = Left(deg, Len(deg) - 1)
Range("B2").Value = deg
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName

End Sub

 

[antonio]

Evren Hocam tek kelimeyle harikasınız.. Sonsuz teşekkürler.. Mahir Hocam sizin verdiğiniz link de işime çok yaradı. Çok teşekkür ederim.