Сравнение таблиц Excel

[Fradik1]

Доброго времени суток!
Есть две таблице(книги) exсel с двумя столбцами id и fio, как сравнить две этих таблице и в третью поместить результат сравнения. Таблицы сравниваются по id, т.е. если в первой таблице есть строка ID=1111 и во второй ID=1111 то эту строку нужно поместить в третью таблицу. Строк около 10000 в одной таблице и около 5000 в другой... вреде как то так)

[Hugo121]

Делал как-то...
Вместо единиц заносите в массив свои данные (массив пошире сделайте) и выгружайте в другой лист (например в новую книгу).

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

[Slava321]

Вот пример я в макросах не бумбум) вот что нужно)

[Hugo121]

Вообще-то могли уже давно сделать с помощью
http://www.excelworld.ru/index/comparefiles_find/0-25
или
http://hugo.nxt.ru/CompareFiles.Find.rar

Тот файл, который kuklp давал на sql, немного устарел, тут всегда посвежее.
Но на такие объёмы будет небыстро, десяток минут вероятно будет работать.
Получите пометки, по которым легко строки вручную отсортировать и скопировать куда угодно.

А с Вашими примерами и не проверишь - по чему сравнивать то?
Вроде нужно по SIM_CARD_N, но их одинаковых нет...

[Slava321]

по телефонным номерам

[Hugo121]

Вообще-то я и Ваш код наладил, только вот как сортировать по цвету?
Может лучше вместо (или вместе с) покраски как в моём том коде пометки в свободном столбце ставить?
Например так:

            If Not x Is Nothing Then
                Cells(i, "A").Interior.ColorIndex = 12
                Cells(i, "L").Value = "Есть!"

Но тоже небыстро будет - у меня также по find работает...

Private Sub CommandButton1_Click()
    Dim i As Long, x As Range, Fst As String
    Application.ScreenUpdating = False
    Workbooks("активация.xls").Sheets(1).Activate
    With Workbooks("реестр по ТС.xls").Sheets(1)
         Columns("A").Interior.ColorIndex = xlNone:
        .Columns("C").Interior.ColorIndex = xlNone:
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            Set x = .Columns("C").Find(what:=Cells(i, "A"), LookAt:=xlWhole)
            If Not x Is Nothing Then
                Cells(i, "A").Interior.ColorIndex = 12
                Fst = x.Address
                Do
                    .Cells(x.Row, "C").Interior.ColorIndex = 8
                    Set x = .Columns("C").FindNext(x)
                Loop While Fst <> x.Address
            End If
        Next
    End With

End Sub

[Slava321]

Спасибо да это я пробовал методом проб и ошибок))) подсветка работает вот только теперь еще надо что эти совпадения копировались в другую книгу по структуре Активация.xls либо на другой лист в книге Активация.xls

[Hugo121]

Я предлагаю вручную поработать
Вообще, если такие объёмы, такие данные и будете делать часто - нужно на массивах и словаре делать, типа как в моём первом ответе.
Переделывайте - у меня сейчас другие приоритеты

[Slava321]

Спасибо буду разбираться

[kuklp]

Ответили на SQL. Кросспостинг - нехорошо!