Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
SynsWor
0 / 0 / 0
Регистрация: 13.03.2017
Сообщений: 34
#1

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

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

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

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

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

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

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

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

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

2
Vlad999
2748 / 1680 / 495
Регистрация: 02.11.2012
Сообщений: 4,186
10.06.2017, 11:04 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
как то так
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
84 / 83 / 33
Регистрация: 10.11.2011
Сообщений: 389
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
Привет! Вот еще темы с ответами:

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

Удаление Combobox с листа программно - VBA
Есть комбобокс, созданный при помощи такого кода: Set RangeNameList = Worksheets("MasterData").Range("D5:D35").Cells ...

Excel. Удаление строк, если в определенном столбце значение начинается с одного из возможных начений - VBA
Приветствую! Есть таблица с сводной статистикой. Необходимо из этой таблицы убрать все строки, в которых данные в пятом столбце...

Поиск в столбце, считывание данных и вывод при определенных условиях - VBA
Добрый день. Нужна помощь. Есть таблица со списком "Лист1"(пример во вложении). Нужен UserForm со строкой поиска, ищет в столбце...


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

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

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