Как сравнить два столбца в Exel (MS Office 2003).

Например нужно сравнить столбец «A» в файле «Книга1.xls» и столбец «A» в файле «Книга2.xls» открываем оба файла и в одном например «Книга1.xls» кликаем в верхнем меню программы «Сервис > Макрос > Редактор Visual Basic» или сочетание клавиш «Alt+F11». В открывшемся окне в верхнем меню необходимо выбрать «Insert > Module» в открывшемся окне вставить код скрипта:

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

И нажмите значок сохранить в верхнем левом углу. Или в верхнем меню программы «File > Save Книга1»

Теперь нужно вернуться в окно книги1 и кликаем в верхнем меню программы «Сервис > Макрос > Макросы» в открывшемся окне должен появится макрос «main» его нужно выделить и кликнуть «Выполнить» через несколько секунд все совпадения в столбцах «А» будут подсвечены желтым.

Источник: www.programmersforum.ru

Кстати для всех кому нужны запчасти Scania можно посетить ресурс компании AB-Parts. Которая является дилером DAF, MAN, Scania, Iveco, MB, Renault trucks, Volvo trucks. Отличная компания останетесь довольны.