Вопрос по Excel

[GoodGod]

xxx

[noo0]

регулярки

[Nelzone]

ест скрипт от шарки юзай ево

[GoodGod]

ест скрипт от шарки юзай ево
посмотрел я все 5 страниц выданные поиском по шарку, но чето то так и не найду то что нужно. может кинешь мне в пм?

[AlexPro]

Есть такая программка... Специально для этого предназначена!

Вытаскивает из списка указанный вами домен и сразу же удаляет повторы!

Думаю, разобраться не проблема ;)

Скачать (http://rapidshare.com/files/282613947/Spam_Editor.exe.html)

(NOD32 странно реагирует, пишет SpamTools.Agent - вероятно модифицированный троян)

[Gray_Wolf]

Ну или как-то так

Private Sub CommandButton1_Click()
Dim srt, fnd As String
fnd = "@mail.ru"
i = 1
txt = Cells(1, 1)
Do While txt <> ""
txt = Cells(i, 1)
If InStr(1, txt, fnd) = 0 Then
Rows(i).Delete
MsgBox InStr(1, txt, fnd)
End If
i = i + 1
Loop
End Sub

[GoodGod]

thx