Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Уникальные значения через вложенный словарь - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Уникальные значения через вложенный словарь (Макросы/Sub)
Уникальные значения через вложенный словарь
NorthPole Дата: Четверг, 28.01.2021, 22:28 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Всем привет,

Подскажите, как получить уникальные значения из диапазона с несколькими колонками попутно удалив пустые строки в паре колонок (выделено желтым).
Пытаюсь сделать:
1) диапазон с данными передаем в массив
2) массив в словарь словарей (чтобы получить уникальные данные) + модификация данных (отфильтровываем пустые строки (желтые))
3) заполняем еще один массив данными словаря
4) вставляем данные массива на лист

Вроде что-то получается, но с п3 затык.
К сообщению приложен файл: getUniqueData.xlsm(24.9 Kb)


Сообщение отредактировал NorthPole - Четверг, 28.01.2021, 23:26
 
Ответить
СообщениеВсем привет,

Подскажите, как получить уникальные значения из диапазона с несколькими колонками попутно удалив пустые строки в паре колонок (выделено желтым).
Пытаюсь сделать:
1) диапазон с данными передаем в массив
2) массив в словарь словарей (чтобы получить уникальные данные) + модификация данных (отфильтровываем пустые строки (желтые))
3) заполняем еще один массив данными словаря
4) вставляем данные массива на лист

Вроде что-то получается, но с п3 затык.

Автор - NorthPole
Дата добавления - 28.01.2021 в 22:28
RAN Дата: Четверг, 28.01.2021, 23:54 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5413
Репутация: 1082 ±
Замечаний: 0% ±

2010
подробно не смотрел, но тут
[vba]
Код
For Each x In d1.Keys()
        For Each y In d1(x)
[/vba]
замените циклы на For...To
Должно помочь.


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениеподробно не смотрел, но тут
[vba]
Код
For Each x In d1.Keys()
        For Each y In d1(x)
[/vba]
замените циклы на For...To
Должно помочь.

Автор - RAN
Дата добавления - 28.01.2021 в 23:54
NorthPole Дата: Пятница, 29.01.2021, 15:50 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Вроде заработало.
в п3 добавил счетчик, for each оставил (не знаю как без него сделать).
в п2 тоже косяки были.
К сообщению приложен файл: getUniqueData_1.xlsm(26.4 Kb)


Сообщение отредактировал NorthPole - Пятница, 29.01.2021, 20:44
 
Ответить
СообщениеВроде заработало.
в п3 добавил счетчик, for each оставил (не знаю как без него сделать).
в п2 тоже косяки были.

Автор - NorthPole
Дата добавления - 29.01.2021 в 15:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Уникальные значения через вложенный словарь (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!