Сравнение двух столбцов в разных книгах

[SAS888]

В следующий раз постарайтесь сразу точнее ставить задачу.
Если я правильно понял, то Вам нужно примерно это:

Sub Main()

    Dim i As Long, x As New Collection, y As Range, z As Range, Item
    Application.ScreenUpdating = False
    Workbooks("Книга1.xls").Sheets(1).Activate
    With Workbooks("Книга2.xls").Sheets(1)
        Columns("A").Interior.ColorIndex = xlNone: .Columns("A").Interior.ColorIndex = xlNone
        On Error Resume Next
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            x.Add Cells(i, "A"), CStr(Cells(i, "A"))
        Next
        On Error GoTo 0
        For Each Item In x
            a = Application.CountIf(Columns("A"), Item): b = Application.CountIf(.Columns("A"), Item)
            If b > 0 Then
                Set y = Columns("A").Find(what:=Item, LookAt:=xlWhole): y.Interior.ColorIndex = 6
                Set z = .Columns("A").Find(what:=Item, LookAt:=xlWhole): z.Interior.ColorIndex = 6: i = 1
                Do While i <> IIf(a > b, b, a)
                    Set y = Columns("A").FindNext(y): y.Interior.ColorIndex = 6
                    Set z = .Columns("A").FindNext(z): z.Interior.ColorIndex = 6: i = i + 1
                Loop
            End If
        Next
    End With
    
End Sub

[Stiket]

Спасибо! Все работает так, как и надо, то есть подсвечиваются строки в обеих книгах Что касается повторения в одной и той же книге-у меня этого нет, так что такой проблемы, как у Sebastian'a у меня тоже нет

[Stiket]

Может оффтоп, но все же... Теперь мне нужно, чтобы строки, в которых первая яйчейка подсвечена, удалялась. Подскажите, пожалуйста...

[Sebastian]

Спасибо большое.
Работает как надо.

[SAS888]

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

Удалять можно сразу, без подсвечивания. Для этого, по всему коду замените фрагменты

.Interior.ColorIndex = 6

на фрагмент

.EntireRow.Delete

И тогда строка

Columns("A").Interior.ColorIndex = xlNone: .Columns("A").Interior.ColorIndex = xlNone

будет также не нужна.

[dekabrist]

Сообщение от SAS888

Вы упорно не говорите, что у Вас не получается. EducatedFool обратил Ваше внимание на одну из возможных причин. Обратили? Это первое. Второе: Обратите внимание, что предложенный ранее макрос сравнивает только значения столбцов "A", расположенных на одних и тех же строках. Если же нужно в принципе найти совпадающие значения, подсветить их и отсортитовать, то макрос должен быть другой.
Посмотрите вложение. Откройте оба файла и запустите макрос "Main".

Уважаемый SAS888, пробывал переделать Ваш макрос "Main" под свою задачу, но не получается пока. Помогите решить , пожалуйста.

Есть две книги – «ведомость» и «справочник». В обоих книгах присутствуют сл. столбцы: B - наименование, C – Марка, D- ТУ, E-Код, F- Ед. изм., G- Код ед. изм. Проверяем на совпадение по столбцам: если в «ведомости» содержимое ячейки, например столбца B, не находится в столбце B «справочника», то она подсвечивается красным цветом и в этой же строке , но в столбце L проставляется любой знак (чтобы можно было потом отфильтровать ). Как вариант, фильтрация несовпадающих ячеек происходит автоматом.

[SAS888]

Прикрепите файл с примером (хотя бы в несколько строк). Лучше, если на одном листе будут исходные данные, а на другом - то, что должно получиться.

[dekabrist]

Сообщение от SAS888

Прикрепите файл с примером (хотя бы в несколько строк). Лучше, если на одном листе будут исходные данные, а на другом - то, что должно получиться.

Прикрепил. В файле ведомость.xls на 2-м листе то, что хочется получить на выходе

[SAS888]

Посмотрите вложение. Откройте оба файла и запустите макрос "Main".

[dekabrist]

Сообщение от SAS888

Посмотрите вложение. Откройте оба файла и запустите макрос "Main".

Вот это да! Строчек в коде стало меньше, а задача была, мне думается, сложнее! Мне стало еще труднее для понимания, но ведь работает!Здорово! Я восхищен! Большое спасибо!!!