Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
SynsWor
0 / 0 / 0
Регистрация: 13.03.2017
Сообщений: 34
#1

Удаление совпадений в столбце и вывод в Combobox

10.06.2017, 09:35. Просмотров 869. Ответов 2
Метки нет (Все метки)

Всем привет! Извиняюсь за наглость, но подскажите какой-нибудь макрос, который будет перебирать ячейки в одном столбце моей таблицы(Столбец с названиями товаров) и будет убирать совпадающие названия товаров в этом столбце(К примеру: у меня в столбце 2 товара с названием "Кока-кола", мне нужно, чтобы макрос оставлял только одно) и,после этого, выводил всё это в combobox.
Подскажите пожалуйста, буду вам очень сильно благодарен. Просто мне мой преподаватель сказал, что это можно сделать с помощью цикла с условием, но я так и ничего не понял ;(
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2017, 09:35
Ответы с готовыми решениями:

Посчитать количество совпадений в столбце
Как посчитать кол-во совпадений в столбце. Аналог Excel СчетЕсли. мокрокодер...

Поиск совпадений и действия в зависимости от наличия совпадений
Попытаюсь вкратце описать суть. Приходит список позиций с ценами. Необходимо...

FIND вывод всех совпадений на листе (макрос-кнопка)
Создал на листе кнопку со следующим макросом Sub Кнопка3_Щелчок() x =...

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

Если значение ComboBox повторяется, то на листе в другом столбце данные обновляются
Подскажите пожалуйста, у меня есть ComboBox, который выводит данные на лист,...

2
Vlad999
2770 / 1700 / 500
Регистрация: 02.11.2012
Сообщений: 4,239
10.06.2017, 11:04 #2
Лучший ответ Сообщение было отмечено SynsWor как решение

Решение

как то так
Visual Basic
1
2
3
4
5
6
Dim Unik As Object
Set Unik = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   Unik.Item(Cells(i, 1).Value) = ""
Next
ComboBox1.List = Unik.keys
1
yutrans
89 / 88 / 34
Регистрация: 10.11.2011
Сообщений: 413
11.06.2017, 13:59 #3
И так будет работать
0
Вложения
Тип файла: rar Уникальные в комбе.rar (17.8 Кб, 3 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2017, 13:59

Удаление строки из таблицы по значению в столбце
Здравствуйте. Помогите, пжлст, разобраться с правильностью удаления строк из...

Можно ли ускорить поиск и удаление дубликатов в столбце
есть файлы вида: строк в файлах по 700тыс, (2007 офис переваривает такой...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru