Подсчитать количество ячеек во всей книге, где встречается слово "Выдан" - VBA
Формулировка задачи:
Есть книга Excel. количество листов может быть от 20 до 200.
необходимо подсчитать сколько ячеек содержит слово "Выдан" во всей книге и вывести сообщением на экран.
слово "Выдан" в ячейке может располагаться, как в начале текста в ячейке, как в середине текста в ячейке, так и в конце.
прошу помочь с написанием макроса!!! заранее благодарен!!
Решение задачи: «Подсчитать количество ячеек во всей книге, где встречается слово "Выдан"»
textual
Листинг программы
Private Sub Test() Dim iList As Worksheet, iCount& For Each iList In Worksheets iCount = iCount + Application.CountIf(iList.UsedRange, "*выдан*") Next MsgBox "Количество искомых ячеек = " & iCount, , "" End Sub