Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.12.2011, 13:44   #21
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

У меня словари. Коллекции очень похоже работают, но всё же чуть иначе.

Суть словаря - в нём нет повторов ключей.
Заносим в словарь уникальное значение и к нему в Item "метку".
В качестве метки может быть строка, массив, вероятно другой словарь (не использовал ещё).
Можно сразу в словаре собирать суммы по этим уникальным значениям.
Всегда быстро можно проверить, нет ли уже текущего проверяемого значения в словаре, и если есть, то по метке использовать связанную информацию.
Если нет - занести в словарь новое значение.

Я часто использую связку словаря с массивом.
Алгоритм такой - когда известен размер исходных данных, то можно создать пустой массив нужного размера.
Далее в словарь заносим уникальные значения, в Item порядковый номер этого значения (ставим простой счётчик i=i+1), в массив по этому номеру заносим связанные с этим уникальным данные (уже не одно, а сколько нужно).
При повторе извлекаем из Item номер, по номеру находим в массиве данные - изменяем/дополняем.
В конце работы можно получившийся массив выгрузить на лист.
Чтоб не выгружать пустоту после занесённых в массив данных (он ведь создавался на теоретически возможное количество строк), используем значение счётчика, полученное при заполнении словаря/массива.
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 01.12.2011 в 14:07.
Hugo121 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужен Макрос для ввода данных в перую пустую ячейку диапазона valik65 Microsoft Office Excel 4 16.12.2010 16:01
Вернуть пустую ячейку Ruben Microsoft Office Excel 3 05.02.2010 16:20
Копирование данных на первую пустую ячейку kzld Microsoft Office Excel 8 15.07.2009 14:06
вставка формулы в ячейку (vba) pride Microsoft Office Excel 5 13.07.2009 09:26
Как в функции СЧЁТЕСЛИ указать критерий в виде ссыки на ячейку? CaustiC Microsoft Office Excel 1 05.12.2008 07:16