Excel VBA Макросы: Как проверить наличие заданного слова в столбце?

Автор umbik, 15 апреля 2014, 21:16

umbik

Как проверить, есть или нет в указанном столбце указанное слово с помощью макроса?

Администратор

Макрос ищет указанное слово в столбце A:

Макрос
Sub Макрос()

    Dim rng As Range
   
   
    Set rng = Columns("A").Find(What:="слово", LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
       
    If Not rng Is Nothing Then
        MsgBox "В столбце есть указанное слово.", vbInformation
    Else
        MsgBox "В столбце нет указанного слова.", vbExclamation
    End If

End Sub
[свернуть]