Да, я для примера поставил 5й столбец. Спасибо большое за помощь  

А если все таки считать на лесте через Worksheetfunction.
Есть ли возможность заменить диапазон Q1:Q57 на какой нибудь типа такого range(cells(1,5), cells(lastRow, 5))   ? ? ?

Ну да, в этом и суть. Нужно перенесли все вычисления, что бы не делать их на листе. Просто не знал как написать процедуру подходящую. Чуть позже попробую вариант, который предложил Sanja и обязательно отпишусь

Попробую, спасибо большое

Вот пример файла
и в нем макрос - 2 строки. Если жестко прописать ДИАПАЗОН, то все работает, а вот как заменить адреса ячеек на диапазон в массиве я не пойму.

Добрый день)
Подскажите пожалуйста, есть ли возможность применить такую функцию :
a = WorksheetFunction.SumIf(Range("E2:E11"), "A1 = A3")
но не для листа, а для массива.
В таблице более 100 тыс. строк и около 100 столбцов.
Нужно получить сложения по условию. Формула СУММЕСЛИ на листе работает, но как сами понимаете ОЧЕНЬ ДОЛГО ДУМАЕТ.
Можно ли как то применить эту же функцию к массиву, и как тогда указать диапазон?
Заранее, спасибо большое за помощь.

Спасибо большое!
Да, в основном рабочем файле данная формула тоже работает, но к сожалению тоже очень долго при большом объеме данных.
Вот я и хотел узнать, может есть какой то более оптимизированный вариант? Может стороннюю процедуру, которая вызывается только в том случае, если цены у одного ШК разные и тогда компьютеру не придется в холостую просчитывать весь список значений, даже там, где цены одинаковые и ничего менять не надо??  

Доброго времени суток всем.
Несколько дней бьюсь над задачей и хотя и решил ее примитивнейшим образом, хочу попросить помощи в более оптимальном решении.

Есть таблица с данными.
Необходимо найти одинаковые значения в столбце "С" (это штрихкоды товара) и сравнить цены (столбец "Е").
Далее найти наибОльшую цену и присвоить ее всем ячейкам в столбце "Е" соответствующим данному ШТРИХКОДУ.

Сделал цикл For each
Но, что бы он все поменял как надо, его надо прогонять 10 раз (т.к. всегда 9-10 повторных штрихкодов), а это очень замедляет работу, особенно если учесть, что в рабочем файле 70тыс строк.

Математического склада ума у меня нет и ничего толкового придумать не могу.
Если поможете найти решение, буду очень благодарен.
файл примера с моим решением прилагаю

Всем хорошего дня.

Попробовал. Спасибо большое за такой удобный метод. На моем компьютере отлично отрабатывает. А на проблемном тоже почему то не докопировал 1700 строк((( Причем я в макросе подправил код, что бы не создавалась новая вкладка, а очищалась старая, и все равно тоже самое. Попробую на том компьютере поставить свежий офис. Больше не хочу Ваше время отнимать, потому что судя по всему, я не могу корректно и точно сформулировать проблему. Всем спасибо большое, кто откликнулся и постарался помочь.  

Если говорить про конкретный участок с кодом, то это вот эта часть:

Скрытый текст
Скрытый текст ThisWorkbook.Worksheets("Ж АВИАТОР").Range("A1:G" & lr3).Copy ThisWorkbook.Worksheets("ОСТАТКИ").Range("A1") ThisWorkbook.Worksheets("Альфа").Range("A1:G" & lr2).Copy ThisWorkbook.Worksheets("ОСТАТКИ").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) и т.д. Скрытый текст

Спасибо большое. Сейчас попробую. В рабочем файле просто кроме вкладок с магазинами и остатками еще куча других. но это я постараюсь обойти

Я и рад стараться, просто у меня не получается сразу отвечать на сообщения. Форум пишет: "слишком часто отправляете сообщения, потерпите несколько минут"

Задача, как я и написал: собрать данные с нескольких магазинов с товарами и получить наглядную таблицу по остатком, чего где сколько осталось и что куда нужно дозаказать. А фигня то работала раньше, в этом вся соль. И сейчас каким то чудом на моем компе работает нормально, а на других нет(((

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

Да, я сделал так, что бы просто подготовить вкладки, а потом в готовом виде скопировать все данные и вставить в лист "остатки"

Получается по моему макросу неправильно копируются диапазоны из вкладок во вкладку "остатки". Он почему то копирует не все (например из 9000 строк может скопировать и вставить только 6000, а может и 8800).
Я не смог даже логики какой то найти, к сожалению

Да, Эта процедура делается примерно 2 раза в неделю.
Каждый раз создается новый лист "остатки", старый предварительно удаляется  

У меня везде офис 2010, но почему то "сохранить как" предлагает только в таких вариантах как на картинке.

То, что "на грани фола" не спорю))) яж написал, что все очень примитивно, методом тыка.  

Нужно:
1 - Собрать все данные со всех вкладок в одну.
2 - Поменять местами столбцы (столбец B поместить в столбец G, столбец D поместить в столбец B)
3 - Добавить столбец А, где присвоить строке имя вкладки в зависимости от того откуда эта строка взята
4 - ячейкам каждой вкладки присвоить собственный (конкретный) цвет. Что бы в итоговом файле не только благодаря подписи в первом столбце было понятно из какой вкладки это подтянуто, но и цветом было выделено.

Я по сути, сначала покрасил все вкладки  и добавил столбец с именем, а потом уже всю кучу скопировал в новую вкладку "Остатки"
Итоговый результат должен получатся такой какой получается при запуске макроса сейчас. Но он почему то неправильно работает на двух других компьютерах.

Понятно, что методы, которыми я пользовался далеки от оптимальных, но это хоть как то работало. Если еще нужна какая то информация, спрашивайте пожалуйста.  

Но ведь этот макрос, хоть он и корявый сам по себе, прекрасно работал около полугода на всех компьютерах. Я его не менял. А пару недель назад начались проблемы, причем не на всех компьютерах.....

Доброго времени суток всем!
Помогите разобраться с задачкой.
Версия Ексель 2010 (на всех проверяемых компьютерах)
Операционная система Windows 10  (на всех проверяемых компьютерах)
Есть файл ексель с несколькими вкладками (урезанную версию с данными прикладываю)
Прописал простенький макрос, который собирает все данные в кучу, с определенными требованиями к форматированию.
Все сделал примитивно, как смог. И всегда ответы на все вопросы находил на Вашем форуме.
Но сейчас какая то мистика происходить стала.
Данный файл (точнее макрос) прекрасно работает на моем компьютере но на двух других, он работает без ошибок НО НЕПРАВИЛЬНО.
Т.е. он запускается, выполняется (но выдает некорректные данные).
когда пытаюсь скопировать целый столбец с 60тыс ячеек, он копировал только 12288 ячеек и все. (столбец копировал и вставлял, что бы просто местами поменять)
Убрал копирование целого столбца и вставил цикл, что бы он копировал ячейку за ячейкой. эта проблема ушла, но возникла другая, еще более загадочная. После выполнения макроса, он выборочно не переносит некоторые строки из первичных вкладок. Причем каждый раз разные. Этого я совсем не могу понять.
Когда запускаю макрос на своем компе, все работает отлично.
Что бы было понятно сколько строк не переносится - в каждой из 10 вкладок примерно по 5000-1000 строк в 6 столбцах всего около 65000 значений в общей вкладке получается по итогу, так вот если запускать на "проблемных" компах, то там получается всегда разное количество строк в меньшую сторону. т.е. он по каким то неведомым причинам не копирует некоторые строки из вкладок. И каждый раз разные.
Я просто даже не понимаю  в каком направлении "копать". Может вирус там какой то, который нарушает работу макроса. Может с "железом" что то. Просто раньше все работало прекрасно и требуемая задача выполнялась. А недели 2 назад начались эти "танцы с бубном".
Или все таки проблема с моими руками? Подскажите пожалуйста, в чем может быть проблема.
Может проблема в размере вкладок?
Заранее спасибо за уделенное время