Приветствую, друзья, я за помощью.
Есть задача:
Сравнить два списка - первый - коды товара и его количество у одной компании, второй - такие же коды и количество у другой
Если и у одной и у другой компании есть одинаковые коды товара в одинаковом количестве- пишем "совпадает"
Если код товара совпадает, но не совпадает количество -пишем "Разное количество"
Если у компании 2 есть код товара, которого нет у компании 1 - пишем "нет кода"
Сравниваем список компании 2 со списком копании 1.
Сейчас у меня получается только проверять по коду товара вот таким вот кодом
Помогите поправить код.
Есть задача:
Сравнить два списка - первый - коды товара и его количество у одной компании, второй - такие же коды и количество у другой
Если и у одной и у другой компании есть одинаковые коды товара в одинаковом количестве- пишем "совпадает"
Если код товара совпадает, но не совпадает количество -пишем "Разное количество"
Если у компании 2 есть код товара, которого нет у компании 1 - пишем "нет кода"
Сравниваем список компании 2 со списком копании 1.
Сейчас у меня получается только проверять по коду товара вот таким вот кодом
Код |
---|
Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant Set CompareRange = Range("a2:a500") ' Диапазон с которым сравниваем выделенный диапазон Range("B2").Select Range(Selection, Selection.End(xlDown)).Select For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = "Совпадает" Next y Next x End Sub |
Помогите поправить код.
Нужно бежать со всех ног, чтобы только оставаться на месте, а чтобы куда-то попасть, надо бежать как минимум вдвое быстрее!