Выборка уникальных элементов из диапазона с использованием коллекции
На вход макроса поступает диапазон обработки, задаваемый переменной Adres. В подпрограмме производится перебор ячеек диапазона, и командой NoDupes.Add Cell.Value, CStr(Cell.Value) осуществляется выборка только уникальных элементов в коллекцию NoDupes. Ключ сравнения задан в команде после запятой. Форма UserForm2 создана лишь для отладки и получения результирующей выборки. Она содержит окно Listbox1 и две метки Label1 и Label2. Форма… Читать далее »