Добрый день!
Подскажите, как бы закрутить с методом Find чтобы он искал все совпадения на листе?
Пока у меня так
находим первое совпадение будь то "водитель", "вода", "водка" и переходим к следующему листу. Тут все понятно и правильно. Но хотелось бы найти все совпадения на каждом листе.
Мне, кроме как после каждого найденного совпадения на листе изменять размер диапазона для поиска исключая из него найденную ячейку, ничего в голову не приходит.
Подскажите, как бы закрутить с методом Find чтобы он искал все совпадения на листе?
Пока у меня так
| Цитата |
|---|
dataSr = "вод" For Each ws In Worksheets a = ws.Name If ws.Name <> "wwww" Then Sheets(ws.Name).Activate Set uz = Range(Cells(3, 4), Cells((Cells.SpecialCells(xlLastCell).Row), 2)).Find(dataSr) MsgBox uz Next |
Мне, кроме как после каждого найденного совпадения на листе изменять размер диапазона для поиска исключая из него найденную ячейку, ничего в голову не приходит.
