içinde belli harf olanları taşıma yada silme

[press_ok]

Merhaba;

içinde mail adreslerinin olduğu 3000 küsür satırlık bir listem var.

Acaba içinde hotmail kelimesi geçen hücreleri nasıl kolayca başka bir sütuna taşır yada silerim.

Teşekkürler

 

[uzmanamele]

Merhaba

A sütunundaki mail adreslerinden hotmail olanları siler, deneyiniz.

Sub HotmailSil()
    For i = Range("a65536").End(xlUp).Row To 1 Step -1
        If Cells(i, 1) Like "*hotmail*" Then
            Rows(i).Delete
        End If
    Next
End Sub

 

[press_ok]

peki b sütununa taşımak istersem?

 

[tahsinanarat]

Sub ayikla()
For x = 1 To [a65536].End(3).Row
d = Split(Cells(x, 1))
For Each elem In d
If InStr(elem, "@") Then
a = a + 1
Sheets("sayfa2").Cells(a, 1) = Trim(Replace(Replace(Replace(elem, ",", ""), "e-mail:", ""), Chr(160), ""))
End If
Next elem
Next x
Sheets("sayfa2").Select
End Sub