Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Выделить группу ячеек с одинаковыми значениями в одном столбце и неодинаковыми значениями в другом
 
#1
22.05.2020 21:33:10

Всем доброго времени суток!
Буду признательна если поможете создать макрос для следующей задачи:

В ячейках столбца B прописаны коды из одного справочника. Каждому коду соответствует код из другого справочника в столбце A.

Надо найти и выделить группу ячеек, где хотя бы один код в столбце A прописался неверно. Т.е. при одинаковом значении в столбце B - неодинаковые значения в столбце A.
Пример и подробно по пунктам в файле.
 
 
 
#2
22.05.2020 21:57:23
Как вариант - в копилке есть код UDF VLOOKUPCOUPLE, если в коде отключить проверку на пустоту (отключить условие If tmp <> "" Then) и использовать так:
Код
 =VLOOKUPCOUPLE($A$1:$B$16;2;B1;1;"|")

то результат в приложении - все группы выделены наличием | в результате, можно фильтровать.
Изменено: Hugo - 22.05.2020 21:59:29
 
 
 
#3
22.05.2020 21:58:42
YLesya,
Код
Sub dsd()
Dim i As Long
Dim a As Long, b As Long
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To lr
a = Application.WorksheetFunction.CountIfs(Range("B1:B" & lr), Cells(i, 2))
b = Application.WorksheetFunction.CountIfs(Range("A1:A" & lr), Cells(i, 1), Range("B1:B" & lr), Cells(i, 2))
If a = 1 Or a = b Then
GoTo 1
Else
Range("A" & i & ":B" & i).Interior.ColorIndex = 6
End If
1
Next i
End Sub
Изменено: Mershik - 22.05.2020 22:07:38
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#4
23.05.2020 12:30:54
Огромное спасибо за предложенные варианты.
Mershik, Ваш вариант прям в точку! :)
 
 
 
Страницы: 1
Наверх