Структура макроса

[1134]

Хочу организовать макрос таким образом, чтобы пробегая по строкам в каждом листе он отыскивал нужные (у меня те в, которых есть ''Qж м3/сут'', таких строк 12 по количеству месяцев), затем в нужных строках определял диапазон ячеек (в соответствии с количеством дней в месяце) производил над ним математическую операцию (находил среднее арифметическое) и записывал результаты в столбик на соседнем листе. В результате должен получиться столбик в котором, будут идти сначала 12 расчитанных значений для первого листа, затем 12 для второго и так далее для всех листов. Было бы идеально, если напротив каждого значения в соседних ячейках отображались месяц и имя листа в котором брались значения. Проблема в том, что я никак не могу чётко представить себе "анатомию" такого макроса. Помогите пожалуйста составить алгоритм, схему, возможно, у кого-то найдётся похожий код... Спасибо!

[EducatedFool]

Проблема в том, что я никак не могу чётко представить себе "анатомию" такого макроса.

Проблема в том, что я вообще никак не могу представить себе "анатомию" Вашего файла.

1) Выкладываете файл
2) Указываете на примере файла, что и где должен искать макрос (помечаете цветом обрабатываемые диапазоны), и куда помещать результат.
3) Объясняете, чем Вас не устраивают формулы (ими решить задачу проще, нежели макросами)

[1134]

Формулы не устраивают, потому что в реальном файле слишком много листов и как минимум 12 расчётов для каждого.

[SAS888]

Посмотрите вложение. Запустите макрос "Tablica".

[1134]

Я немного видоизменил предложенный SAS888 макрос и столкнулся с новыми трудностями. В приложенном файле, в Макросе "Tablica" разкоментируйте закоментированные участки и вы тоже с ними столкнётесь!

[SAS888]

Я не разбирался, зачем Вам все это нужно, просто, исправил и оптимизировал Ваш макрос. Посмотрите вложение.

[1134]

SAS888, спасибо за помощь, но к сожалению когда я применяю макрос в своём реальном файле он выдаёт ошибку Run-time error '13' type mismatch в этой строке:

Cells(i, 3) = Application.AverageIf(ws.Range(ws.C ells(x.Row + 1, 6), ws.Cells(x.Row + 1, 36)), "<>0") / ws.[AG5]


Как я понимаю, это происходит в том случае, если в диапозоне отсутствуют значения, в таких случаях хотелось бы Cells(i, 3) ="0"

[SAS888]

Все правильно. У Вас ячейка "AG5 " проверяется на пустоту, а на 0 проверки нет. Для корректной работы, строку кода

If Cells(i, 5) <> "0" And ws.[AG5] <> "" Then _
                        Cells(i, 3) = Application.AverageIf(ws.Range(ws.Cells(x.Row + 1, 6), ws.Cells(x.Row + 1, 36)), "<>0") / ws.[AG5]

замените на

If Cells(i, 5) <> 0 And Val(ws.[AG5]) <> 0 Then _
    Cells(i, 3) = Application.AverageIf(ws.Range(ws.Cells(x.Row + 1, 6), ws.Cells(x.Row + 1, 36)), "<>0") / ws.[AG5] Else Cells(i, 3) = 0

[1134]

Заменил, но почему-то не помогает, возможно, когда в диапазоне:

ws.Range(ws.Cells(x.Row + 1, 6), ws.Cells(x.Row + 1, 36))

присутствуют только 0 и пустые значения, то формула:

Application.AverageIf(ws.Range(ws.C ells(x.Row + 1, 6), ws.Cells(x.Row + 1, 36)), "<>0")

не считается?

[SAS888]

Не хочу гадать. Прикрепите пример с проблемным файлом и Вашим макросом - разберемся.