Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Zukerman
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Сравнить два столбца и отметить уникальные значения в каждом, Отметка не цветом, а значением "1" или "2" в соседнем столбце
 
#
17.03.2016 11:25:53
Я по макросам самоучка и код далёк от идеального - позориться не хочу :)
Поэтому я максимально подробно описываю задачу. Здесь много примеров как выгрузить уникальные значения в отдельный список или как их пометить цветом.
К сожалению, мне они не помогли.
В последних версиях Экселя есть выделение цветом уникальных значений, ВПР прекрасно решает эту задачу.

Я вставляю формулу так:
Поиск уникальных значений в 1 столбце в сравнении с 6 столбцом, метку поместить в 3 столбец
Код
Range("C2").Select
N = Range("C2").End(xlDown).Row
ActiveCell.FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-2],Range(Cells(2, 6), Cells(2, N)),1,FALSE)),1,2)"

где Range(Cells(2, 6), Cells(2, N)) фиксированный диапазон просмотра из другого столбца
N - число строк столбца со значениями (пустых ячеек нет)

протягиваю так:
Код
Range("C2").AutoFill Destination:=Range("C2:C" & N)

Протянутая формула всегда возвращет значение "1" потому что "RC[-2]" при преобразовано в "A2", а "Range(Cells(2, 6), Cells(2, N))" в "$F$2:$F$115" не преобразовывается
 
Перейти    
Сравнить два столбца и отметить уникальные значения в каждом, Отметка не цветом, а значением "1" или "2" в соседнем столбце
 
#
17.03.2016 10:49:06
Здравствуйте. Давно читаю ваш форум, много полезного почерпнул. Спасибо. Но сейчас без совета гуру не обойтись.

Есть таблица с данными из 6 столбцов.
Нужно раскидать из двух столбцов значения в итоговую таблицу из 4 столбцов, а часть данных нужно удалить, учитывая заданные условия.
Одним из условий является уникальность данных в каждом из столбцов.
Поэтому я помещаю в соседний дополнительный столбец метку "1 - уникальное" и "2 - неуникальное" для каждого из двух столбцов.
Затем проверяю все имеющиеся условия и раскидываю данные из этих двух столбцов в итоговую таблицу.
Макрос написал, он работает как надо. Но на большом количестве строк (от 10000) работает очень долго.
Всё дело в способе определения уникальности значений.
Я сравниваю каждое значение из одного столбца с каждым значением из другого столбца. И наоборот.
Поэтому столбцы с метками заполняются очень долго.
Использовать ВПР и растянуть до конца значений гораздо быстрее.
На вашем форуме я нашёл как можно вставить и протянуть формулу - не помогло: фиксированный диапазон просмотра в ВПР нужно задавать переменными, т.к. число обрабатываемых строк всегда разное и отличается в обоих столбцах.

Подскажите, пожалуйста третий путь для написания быстрого макроса.
 
Перейти    
Страницы: 1
Наверх