Как проверить, есть или нет в указанном столбце указанное слово с помощью макроса?
Макрос ищет указанное слово в столбце 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