Добрый вечер,
помогите с оптимизацией кода (см. вложенный файл). Есть отчёт в табличном виде
№ п/п | № партии | Дата | Офис | Номер сертификата | Статус |
1 | 2 | 3 | 4 | 5 | 6 |
1 | | | Главный офис | 901200001 | выдан |
2 | | | Главный офис | 901200002 | выдан |
3 | | | Главный офис | 901200003 | выдан |
4 | | | Главный офис | 901200004 | выдан |
5 | | | Доп. офис №1 | 901200005 | выдан |
6 | | | Главный офис | 901200006 | выдан |
7 | | | Доп. офис №1 | 901200007 | выдан |
8 | | | Доп. офис №1 | 901200008 | выдан |
9 | | | Главный офис | 901200009 | выдан |
10 | | | Главный офис | 901200010 | испорчен |
11 | | | Главный офис | 901200011 | чистые |
12 | | | Главный офис | 901200012 | чистые |
13 | | | Главный офис | 901200013 | выдан |
14 | | | Главный офис | 901200014 | чистые |
15 | | | Главный офис | 901200015 | выдан |
16 | | | Главный офис | 901200016 | выдан |
17 | | | Доп. офис №2 | 901200017 | испорчен |
18 | | | Доп. офис №2 | 901200018 | выдан |
19 | | | Доп. офис №2 | 901200019 | выдан |
20 | | | Главный офис | 901200020 | выдан |
Нужно объединить в диапазоны подряд идущие номера сертификатов (5-й столбец) с одинаковым статусом (6-й столбец) и офисом (4-й столбец) и результат представить в новой таблицу, т.е. на основе таблицы после преобразований должна получиться таблица (см. ниже). Макрос написал (в файле), но он тормозит на больших таблицах
. Просьба подсказать, как оптимизировать код.
№ | Номер или диапазон номеров | Количеств | Статус | Офис |
1 | 901200001-901200004 | 4 | выдан | Главный офис |
2 | 901200005 | 1 | выдан | Доп. офис №1 |
3 | 901200006 | 1 | выдан | Главный офис |
4 | 901200007-901200008 | 2 | выдан | Доп. офис №1 |
5 | 901200009 | 1 | выдан | Главный офис |
6 | 901200010 | 1 | испорчен | Главный офис |
7 | 901200011-901200012 | 2 | чистые | Главный офис |
8 | 901200013 | 1 | выдан | Главный офис |
9 | 901200014 | 1 | чистые | Главный офис |
10 | 901200015-901200016 | 2 | выдан | Главный офис |
11 | 901200017 | 1 | испорчен | Доп. офис №2 |
12 | 901200018-901200019 | 2 | выдан | Доп. офис №2 |
13 | 901200020 | 1 | выдан | Главный офис |
Итого | | 20 | — | — |