20.09.2009, 17:33
|
|
Постоянный
Регистрация: 07.03.2009
Сообщений: 357
С нами:
9042754
Репутация:
399
|
|
Ну или как-то так
PHP код:
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
|
|
|