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

Дата редактирования: 12.03.2015 Просмотрен: 5951

Например нужно сравнить столбец "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. Отличная компания останетесь довольны.



Создан: 06.03.2013 06:20 | Отредактирован: 12.03.2015 06:39