Сколько раз встречается какой-то текст в заданном диапазоне
Скопировано
qty = Application.CountIf(Range("A1:D25"), "искомое слово")
MsgBox qty