Поиск

[Andr]

Не подскажите, как найти на листе ячейку, которая содержит заданный текст?

[pashulka]

Dim iCell As Range
Set iCell = ThisWorkbook.Worksheets(1).UsedRange.Find( _
What:="Образец для поиска", LookIn:=xlValues, LookAt:=xlWhole)
'Укажите свою рабочую книгу, лист и искомый текст

If Not iCell Is Nothing Then
   MsgBox "Искомый текст найден : " & vbNewLine & _
   iCell.Address(External:=True), vbInformation, ""
Else
   MsgBox "Искомый текст не найден", vbInformation, ""
End If

Примечание :
- Если образец для поиска представляет собой только часть текста нужной ячейки, то для его поиска нужно заменить константу xlWhole на xlPart или использовать символ подстановки * т.е. искать *текст*
- Если при поиске необходимо учитывать регистр, т.е. Текст <> текст, то необходимо добавить ещё один необязательный аргумент MatchCase:=True
- Если необходимо найти все ячейки содержащие искомый текст, то воспользуйтесь ещё и методом FindNext (пример есть в справке)

[Andr]

Большое спасибо