макрос для группировки записей и запись в новые листы по группам

[Hugo121]

Исходя из практики - надо смотреть по номерам. Мало ли как там операторы в базе новый счёт завели - а номер уже не спутаешь.
И кстати фамилии имеют свойство меняться, и не только у женщин...

[MrGB]

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

Роли не играет по фамилиям или счетам.ТС я так понял не заинтересовали эти варианты,не привел время выполнения макроса.

не получается добиться завершения выполнения макроса.
Листы создаются правильно (правда т.к. проверки нет, то и пустые есть), на последнем листе корректная информация, но никак не заканчивает выполняться

[doober]

А макрос EugeneS как работает.Они практически идентичны

[MrGB]

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

А макрос EugeneS как работает.Они практически идентичны

в процессе выполнения Вашего макроса все-таки получил сообщение о том, что недостаточно системных ресурсов.

А макрос EugeneS пока еще выполняетя, но скорее всего такая же проблема

[doober]

Я понял в чем прикол.
вы наверное скопировали малое количество фамилий тысячи раз.
он подсчитал что максимальное число счетов например 4 тысячи.И естественно создает листы с 1 по 4000 .Вот где надо поменять код.Сейчас исправлю.

[MrGB]

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

Я понял в чем прикол.
вы наверное скопировали малое количество фамилий тысячи раз.
он подсчитал что максимальное число счетов например 4 тысячи.И естественно создает листы с 1 по 4000 .Вот где надо поменять код.Сейчас исправлю.

нет, все листы правильно создаются, когда выскочила ошибка, заполнились листы с 9, 6, 4, 3, 2 счетами (5,7,8 одинаковых нет), а с 1 - много записей и тут ошибка

[doober]

Если можете.киньте файл на мыло strojservis собака nxt.ru
посмотрю.в чем проблема

[EugeneS]

переделал на проверку по коду

Doober похоже дело в оригинальной инфе файла

[doober]

Я поэтому всегда и прошу кусок оригинала,этот вариант уж точно должен отработать быстро и правильно.

[Hugo121]

Замерил время работы на файле от Евгения (5000 строк, вразборос коды попеременно):
1,5
9,078125
9,1875
0,921875
Массивы выиграли со счётом 7,5:1

Заметил, что на таких четырёхзначных именах листов сортировка глючит - сперва идёт 1000, потом 200
Поэтому имя листам можно давать так (с запасом на 6 знаков):

  shname = Right("000000" & CStr(oDict.Item(k)), 6)

Хотя вряд ли будут такие имена, но 1 и 10 тоже нужно правильно отсортировать