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

[Thorn]

Извините за вторжение, но применяя код для сравнени\сортировки двух стобцов по строчно в двух книгах обнаружил что наименование в книге два выделено и помечено как одинакоывое а в первой книге нет.

спользовал данный скриптЖ

Attribute VB_Name = "Module5"
Sub Main()

Dim i As Long, x As Range, a()
Application.ScreenUpdating = False
Workbooks("FM.xls").Sheets("FM").Ac tivate
With Workbooks("all products 2009.xls").Sheets(1)
Columns("A").Interior.ColorIndex = xlNone: Columns("B").ClearContents
.Columns("A").Interior.ColorIndex = xlNone: .Columns("B").ClearContents
a = Range([A1], Cells(Rows.Count, "A").End(xlUp)).Value
For i = LBound(a, 1) To UBound(a, 1)
Set x = .Columns("A").Find(a(i, 1), LookAt:=xlWhole)
If Not x Is Nothing Then
Cells(i, "A").Interior.ColorIndex = 6: Cells(i, "B") = 1
.Cells(x.Row, "A").Interior.ColorIndex = 6: .Cells(x.Row, "B") = 1
End If
Next
Columns("A:B").Sort Key1:=[B1], Header:=xlGuess: .Columns("A:B").Sort Key1:=.[B1], Header:=xlGuess
End With

End Sub

Подскажите как подправить скрипт чтобы он по столбацам соответствия к примеру A и B находил аналогичные в другой книге.
Тоесть AB столбцы одной книги выделялись цветом при совпадении таких же столбцов AB в другой книге. Выделение в обоихкнигах построчно как и проставление в столбце С к примеру символа 1 (для удобства дальнейшего отбора и сортировки)

[ddv1]

Уважаемый SAS888 а как сравнить следующий пример?
Книга111 ячейка графы B ищет соответствующую в Книге1 по графе А и если находит, то пишет в графу Е Книга111 числовой код из Книги1.
Помогите пожалуйста. Очень нужно а я не программист

[SAS888]

См. ответ здесь

[popoff17]

Доброго времени суток всем!
нужна ваша помощь, если это возможно... дело вот в чем:
есть 2 таблицы. в первой, например, развернутые данные по "наименованию", во 2й общие данные. нужно сравнить 2 таблицы и выделить цветом в 1й (развернутой) те "наименования" которые существуют во второй...
я в VBA не соображаю просто, поэтому прошу - помогите.
заранее благодарен.
примерчик во вложении

[FIGTER]

Всем добрый день!
Подскажите макрос для подсвечивания совпадений в столбце А по
жестко определенному списку номеров.
Например, этот список от 1 до 10, следовательно если в столце А книги есть совпадения номеров от 1 до 10, эти номера должны подсветиться цветом.
И желательно, чтоб выполнение макроса распрастронялось только на выделенные строки в книге до его выполнения.
Т. е. выделяю диапозон строк нужный мне, нажимаю выполнить макрос и в этом диапазоне подсвечиваются все совпадения заложенные в списке макроса. Заранее всем спасибо.

[timsi]

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

Ну, тогда можно и так:

Sub Main()

    Dim i As Long, x As Range, Fst As String
    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
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            Set x = .Columns("A").Find(what:=Cells(i, "A"), LookAt:=xlWhole)
            If Not x Is Nothing Then
                Cells(i, "A").Interior.ColorIndex = 6
                Fst = x.Address
                Do
                    .Cells(x.Row, "A").Interior.ColorIndex = 6
                    Set x = .Columns("A").FindNext(x)
                Loop While Fst <> x.Address
            End If
        Next
    End With
                    
End Sub

Отличный макрос. Спасибо огромное !!! Есть вопрос: Книга одна, и сравниваемые диапазоны (E5:E70 и D5:D70), требуется выделить только различия в этих диапазонах.
Спасибо заранее

[Cayman]

у меня почемуто не рабоатет .пишет subscript out of range на строке:
Workbooks("êíèãà1.xls").Sheets(1).A ctivate

мне нужно чтоб значения в столбце Наименование сравнивалось с этимже столбцом но в другой книге.книги прикрепил, помогите пожалуйста

[SAS888]

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

у меня почемуто не рабоатет .пишет subscript out of range на строке: Workbooks("êíèãà1.xls").Sheets(1).A ctivate
мне нужно чтоб значения в столбце Наименование сравнивалось с этимже столбцом но в другой книге.книги прикрепил, помогите пожалуйста

Предложенный выше код делает как раз то, что Вам нужно. Будьте внимательны с именами файлов, т.к. в Вашем примере они другие. Поэтому и
"Subscript out of range".
Вставьте код макроса в программный модуль 1-й книги и сохраните ее в формате xlsm (с поддержкой макросов). Ну, и, соответственно, в коде замените "Книга1.xls" на "Книга1.xlsm", а "Книга2.xls" на "Книга2.xlsx".

[Cayman]

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

[Cayman]

а все заработало.вторую книгу надо было держать открытой оказца=)