Сравнение двух прайсов

[qwerty1]

А возможно ли сделать такое?
Есть две книги - это старый и новый прайс (в примере 2 листа одной книги). Столбец А - наименование, B - цена.
Условия:
1 - полное совпадение наименования(А) и цены(B) - выделяем строку допустим зеленым
2 - наименование совпадает, цена изменилась - выделяем желтым ячейку с ценой
3 - в новом прайсе такое наименование отсутствует - выделяем строчку серым
4 - в новом прайсе появилось новое наименование - выделяем строку красным

[IFRSoff]

Конечно возможно! При помощи функции ВПР() и условного форматирования это очень просто

[qwerty1]

IFRSoff, когда что-то уже знаешь - это кажется простым, когда не знаешь так не кажется.

[qwerty1]

Всем спасибо. На ixbt мне уже помогли.

[vicma]

Доброй ночи.
Вопрос очень даже актуален. Решение проблемы описанное в посте выше не совсем то, что необходимо. Помогите решить проблему.
Есть два прайса - Старый и Новый (код товара; наименование; цена), необходимо следующие решение:
1) в новый файл(Отчет) объединить два списка в один без повторов;
2) при изменение цены в Старом проставить цену Нового;
3) при отсутствии товара в Новом проставить в колонке "Вывели";
4) при отсутствии товара в Старом проставить в колонке "Ввели".
Сравнение проводить по коду товара.

[Hugo121]

Option Explicit

Sub sverka()
    Dim d As Object, d_new As Object, d_name As Object
    Dim a(), t$, i&, el

    Set d = CreateObject("Scripting.Dictionary")
    Set d_new = CreateObject("Scripting.Dictionary")
    Set d_name = CreateObject("Scripting.Dictionary")

    a = Sheets(1).[a1].CurrentRegion.Value
    For i = 1 To UBound(a)
        t = a(i, 1): d.Item(t) = a(i, 3)
        d_new.Item(t) = "Вывели": d_name.Item(t) = a(i, 2)
    Next

    a = Sheets(2).[a1].CurrentRegion.Value
    For i = 1 To UBound(a)
        t = a(i, 1): d.Item(t) = a(i, 3)
        If d_new.exists(t) Then
            d_new.Item(t) = ""
        Else
            d_new.Item(t) = "Ввели": d_name.Item(t) = a(i, 2)
        End If
    Next

    ReDim a(1 To d.Count, 1 To 4): i = 0
    For Each el In d
        i = i + 1
        a(i, 1) = el: a(i, 2) = d_name(el)
        a(i, 3) = d(el): a(i, 4) = d_new(el)
    Next

    Workbooks.Add(1).Sheets(1).[a1].Resize(i, 4) = a
End Sub

Данные в 3-х столбцах на первом и втором листе.

[vicma]

Огромное спасибо! Вы просто супер. Наконец то решена моя проблема, а то вот в формулах все проблематичней делать чем макрос. Вы просто меня спасли!

[vicma]

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

[Hugo121]

Всё нужно подправить - количество словарей, работу с ними, размер массива, его заполнение, выгрузку... Теперь уж сами вникайте, мне некогда и неохота переделывать уже написанное.

[vicma]

большое спасибо.