Макрос аналог функции СЧЁТЕСЛИМН по диапазонам ячеек по нескольким листам книги

Доброго вечера, форумчане!
Во вложении файл с примером расчета, примененными формулами, и комментарием того в чем потребностью

Реальный файл содержит 365 листов. Имя каждого листа имеет формат 1 Jan 2019 .. и так до 31 Dec 2019. Т.е. каждый лист книги имеет имя одного календарного дня месяца 2019 года.

В каждом листе 8640 строк в столбце B. Нужно посчитать количество повторений целых чисел (от 0 до 100) в задаваемых диапазонах ячеек столбца B (в файле-примере диапазон из 5 ячеек, но в реальном файле нужно смотреть по диапазонам из 360 ячеек B1:B359 ...B360:B719 и т.д. до B8281:B8640).

С помощью формулы =СЧЁТЕСЛИМН(Лист1!$B$1:$B$5;C1) можно посчитать количество раз появления того или иного числа в диапазоне ячеек, НО только на ОДНОМ листе. Если указать в формуле =СЧЁТЕСЛИМН("*"!$B$1:$B$5;C1) то она выдает ошибку #ЗНАЧ! То есть, формула эта не работает в многомерном массиве, она может работать по диапазону ячеек, но только одного листа.

С учетом того, что реальный файл имеет 365 листов с уникальными именами, в каждом листе по 8640 строк, и поиск нужно проводить по 24 диапазонам из 360 строк, вручную это делать ооочено долго.

Можно ли применить макрос VBA который будет заменять формулу =СЧЁТЕСЛИМН('*Лист'!$B$1:$B$5;C1) но работать сразу по диапазону во всех листах книги?

Вложения

Пример счетеслимн диапазон + листы.xlsx (18.8 Кб, 17 просмотров)

0

testuser2, да можно и комп взломать и вирус закинуть - только какой в этом смысл, если можно просто галочку проставить? К тому же, придётся после себя чистить всё и восстанавливать (а для этого считывать и запоминать) и нахрен пойдёт вся оптимизация по скорости. Думать надо над конечной задачей и уметь вовремя отсеять бесперспективные варианты…

0

PaRADoXerRUS, все может быть, но по крайне мере для своего удобства думаю можно запилить настроечку для включение того-сего по клику, чтоб не рыться в референсах каждый раз

0

Сообщение от testuser2 можно запилить настроечку для включение того-сего по клику

как запилите - выложите, будьте любезны

0