Ускорить макрос

[roborrr]

Архив ZIP - WinRAR.zipДобрый день форумчане!

Выкладываю перед вами пример для понятия сути моей проблемы:

На листе книги имеется таблица продажи.
В первом столбце указан всклад, во втором -клиент, в третьем- сумма
количество продаж- 162595
количество складов- 26
количество клиентов- 1139

Нужна было Чтоб в Четвертом в столбце выводились общие суммы для того клиента и для того всклада, которые записаны в конлретном в строке.

Kонечно это можно сделать формулой " суммеслимного ", но многоразовое применение этой формулы перегружает книгу.

Написал макрос с применением обычного цикла for to next, макрос тоже работает очень медленно (см. вложение).

как я узнал for to next медленный цикл.
Помогите пожалуста, если можно, ускорить этот макрос с применением более быстрого цикла (например for each) .

Или же, можно решить этот вопрос с помощью надстройки Pover pivot.

Ускорителей, таких как Application.ScreenUpdating = False. Application.Calculation = xlCalculationManual и тому подобное, прошу не предлагать, пожалуйста, так как с применением таких ускорителей, код все равно работает медленно.
Архив ZIP - WinRAR.zip
P.S. Я хочу ускорить код не за счот улучшения блок схемы кода, а за счот применения более быстрых инструментов вычисления, не только для этого конкретного случая, но и более большими данными.

[Казанский]

архив пустой

[roborrr]

Добрый день форумчане!

Выкладываю перед вами пример для понятия сути моей проблемы:
На листе книги имеется таблица продажи.
В первом столбце указан всклад, во втором -клиент, в третьем- сумма
количество продаж- 162595
количество складов- 26
количество клиентов- 1139
Нужна было Чтоб в Четвертом в столбце выводились общие суммы для того клиента и для того всклада, которые записаны в конлретном в строке
Kонечно это можно сделать формулой " суммеслимного ", но многоразовое применение этой формулы перегружает книгу.
Написал макрос с применением обычного цикла for to next, макрос тоже работает очень медленно (см. вложение).
как я узнал for to next медленный цикл.
Помогите пожалуста, если можно, ускорить этот макрос с применением более быстрого цикла (например for each) .
Или же, можно решить этот вопрос с помощью надстройки Pover pivot.
Ускорителей, таких как Application.ScreenUpdating = False. Application.Calculation = xlCalculationManual и тому подобное, прошу не предлагать, пожалуйста, так как с применением таких ускорителей, код все равно работает медленно.
P.S. Я хочу ускорить код не за счот улучшения блок схемы кода, а за счот применения более быстрых инструментов вычисления, не только для этого конкретного случая, но и более большими данными.

[Hugo121]

Словари и массивы нужны. Файл не смотрел (тем более что говорят что пустой...)

[roborrr]

целый архив не поместилось. пришлось срезать Часть таблицы

[Казанский]

Построил сводную таблицу на отдельном листе, использовал функцию

=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("сумма";Лист1!$A$3;"Склад";A2;"Клиент ";B2)

Посчиталось за несколько сек. Можно макросом то же проделать, заменить на значения и удалить лист со сводной.
Файл, сюда не влез: https://yadi.sk/d/mDRWvtc73QbyBy

[roborrr]

Сообщение от Казанский

Построил сводную таблицу на отдельном листе, использовал функцию

=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("сумма";Лист1!$A$3;"Склад";A2;"Клиент ";B2)

Посчиталось за несколько сек. Можно макросом то же проделать, заменить на значения и удалить лист со сводной.
Файл, сюда не влез: https://yadi.sk/d/mDRWvtc73QbyBy

извините, я не всё понял. Вы можете все это сделать в моём файле и показать?

[roborrr]

Сообщение от Казанский

Построил сводную таблицу на отдельном листе, использовал функцию

=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("сумма";Лист1!$A$3;"Склад";A2;"Клиент ";B2)

Посчиталось за несколько сек. Можно макросом то же проделать, заменить на значения и удалить лист со сводной.
Файл, сюда не влез: https://yadi.sk/d/mDRWvtc73QbyBy

спасибо уважаемый казанский за ответ за ответ, но Я писал, Что мне интереснa тема, как ускорить макрос в общем случае, когда цикл for to next замедляет макрос, пример выложил лишь для показа сути проблемы. На самом деле в цикле выполняться и другие вещи, например вставка в определенных ячейках примечание, что сводными таблицами невозможно сделать.

[Hugo121]

Сообщение от roborrr

например вставка в определенных ячейках примечание

- тут уже придётся в ячейки лезть, что неускоряется.
Если примечаний мало - можно пару раз и слазить, если так под 60% - то уже мало смысла закладываться в словари/массивы...
И хорошо что об этом сказали сейчас, а не потом, когда кто-то уже поработал над ненужным кодом.

[Казанский]

roborrr, Вы написали

Сообщение от roborrr

Я хочу ускорить код не за счот улучшения блок схемы кода, а за счот применения более быстрых инструментов вычисления

Я предложил такой инструмент. Вы можете использовать его, а потом вставить примечания и что-то еще уже с готовыми данными, что будет быстрее.
Сам по себе цикл For-Next очень быстрый. Ваш код можно ускорить, если:
1. правильно объявить переменные - сейчас они все Variant, кроме rowkonec;
2. оптимизировать самый внутренний цикл - исключить повторяющиеся операции. Доступ к элементу массива, особенно двумерного - затратная операция, надо заменить R_data(i, 1) и R_data(i, 2) на простые переменные, присваивать им значения до цикла;
3. использовать Exit For, убрать rowkonec = j (нигде не используется).