Sütunlarda bulunan verilerden mail adresini alma

[mustilem23]

Merhaba ,

Ekte bulunan örnek dosyamda görüleceği gibi müşteri ismi teli ve e-mail adresleri ayrı sütunlarda bulunuyor ve bu veri yaklaşık 5000 satır olacak yapmaya çalıştığım
satıra karşılık gelen sütunlarda @ işareti olan sütunu yine aynı aynı satırın uygun bir hücresinde aralarına ;işareti ekleyerek birleştirmek istiyorum .
Konuya ilişkin yardımcı olabilir misiniz.teşekkürler.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodları deneyiniz.

Sub kod()
Dim a As Integer, b As Byte, posta As String, son As Integer
son = Cells(Rows.Count, 1).End(3).Row
dz = Range("I1:I" & son)
For a = 1 To son
    For b = 1 To 8
        If InStr(1, Cells(a, b), "@") > 0 Then
            posta = posta & ";" & Cells(a, b)
        End If
    Next
    dz(a, 1) = Mid(posta, 2)
    posta = Empty
Next
Range("I1:I" & son) = dz
End Sub

 

[mustilem23]

Ömer bey ,

Çok teşekkür ederim ,fikrinize sağlık .

 

[ÖmerBey]

Rica ederim, iyi çalışmalar...