К сожалению, ни я, ни руководство - не умеем.. поэтому рассматриваются все варианты исключительно в старом добром Excel.. можно всякие dll и sql-запросы прикрутить.. но опять же - не умею..

Вот аналогичное делал:  
 
 
Option Explicit  
 
Sub compareFull()  
   Dim a(), b(), c(), iLastrow As Long, ii As Long  
 
   '1.  
   With Sheets("сток")  
       iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row  
       a = Range(.[e2], .Range("A" & iLastrow)).Value
   End With  
 
   With Sheets("инв")  
       iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row  
       b = Range(.[e2], .Range("A" & iLastrow)).Value
   End With  
 
   '2.  
   ReDim c(1 To UBound(a) + UBound(b), 1 To 5)  
 
   'сверка по словарю, копирование данных в итоговый массив  
   dicdic a, b, c, ii  
   dicdic b, a, c, ii  
 
   '5.  
   With Sheets("результат")  
       .Columns(5).NumberFormat = "@"  
       .[A1].Resize(ii, 5) = c
       .Activate  
   End With  
 
End Sub  
 
Sub dicdic(a, b, c, ii)  
   Dim i&, temp$  
 
   With CreateObject("Scripting.Dictionary")  
 
       '3.  
       For i = 1 To UBound(a)  
           temp = a(i, 1) & "|" & a(i, 3) & "|" & a(i, 4)  
           .Item(temp) = i  
       Next  
 
       '4.  
       For i = 1 To UBound(b)  
           temp = b(i, 1) & "|" & b(i, 3) & "|" & b(i, 4)  
           If Not .exists(temp) Then  
               ii = ii + 1  
               c(ii, 1) = b(i, 1)  
               c(ii, 2) = b(i, 2)  
               c(ii, 3) = b(i, 3)  
               c(ii, 4) = b(i, 4)  
               c(ii, 5) = b(i, 5)  
           End If  
       Next  
   End With  
 
End Sub

Забыл убрать уже ненужное объявление temp$...

Сергей, это скорее вариация :)  
Аня, все 3 кода - по сути одно и тоже. Только первый рассчитан на другие данные и для чуть другой работы...

Серёга, так 8-е марта ещё не скоро :)

:)  
У соседей на улице тоже ещё вся в игрушках стоит. Живая.  
А у нас за забором 5 лет в игрушках стояла. Пришлось с лестницей игрушки снимать - уже было не достать :)

{quote}{login=АнЯ-2}{date=30.01.2012 09:45}{thema=}{post}...и добавлю немножко off-топа... Вобщем, как вам такая тема?..{/post}{/quote} Off Нормальная... относительно. Почему? - Обжиться на Planet'e надоть-с, приглядеться... И тады предложения и дискуссию (если вообще они возникли бы) перенести сюды - http://www.planetaexcel.ru/forum.php?thread_id=11785... :) Но радует главное - нашему полку прибыло - еще на одного неравнодушного человека планетян стало больше... А далее - увидим! -33451-

Мечта лентяя:  
Доживём ли мы до того времени, когда ёлки будут сами стряхивать игрушки и уходить из наших домов....

я б так сделал(тоже лениво - поэтому переделываю код сергея)  
 
Public Sub www_slan()  
   Dim a, i&, lr&  
   a = Sheets("Книга3-Лист1").Range("g5").CurrentRegion  
   With CreateObject("scripting.dictionary")  
   On Error Resume Next  
       For i = 1 To UBound(a)  
           .Item(a(i, 1)) = 0  
       Next  
       a = Sheets("Книга2-Лист1").Range("b4").CurrentRegion  
       ReDim Preserve a(1 To UBound(a), 1 To 2)  
       For i = 2 To UBound(a)  
           If Not .exists(a(i, 1)) Then _  
               lr = lr + 1: a(lr, 2) = a(i, 1): a(lr, 1) = lr  
       Next  
   End With  
   Me.[a1].CurrentRegion.Offset(1).ClearContents: Me.[a2].Resize(lr, 2) = a
End Sub  
 
 
да, доли секунды.. но с другой стороны, в относительных мерах - около 20%

На моих ёлках иголки не осыпаются - одна искусственная, вторая живая :(  
А 20% - в чью пользу?  
Хотя вот, считайте (3/3, оба диапазона ~10k строк):  
 
0.171875    
0.171875    
0.1875    
0.171875    
0.1875    
0.1875    
 
Код Сергея чуть быстрее в общем.

теоретически:  
при записи значения item(..)=0  
 
точно так же работает код exists - оно же не знает, что вы в предыдущей строке уже его вызывали..  
 
во втором цикле только экономия памяти - пишем в тот же массив

Понял - iLastrow меня подвёл... Больше некому :)  
Уже и всё в один суб собрал - изменений 0...

Всем привет.  
В 1-ый раз задача была озвучена не полностью, дико изиняюсь, но в оправдание скажу, что второй день бьюсь пытаясь решить самостоятельно следующую задачу:  
 
Цель: Сопоставить источники по 2-м столбцам и на выходе получить "уникальные" значения Источника 1 с остальными показателями(=3 и более показателей.. целая таблица).  
 
Поиск номера строки (Cells(lr+2;5)=i) с "уникальным" значением явно не для большого диапазона данных..  
 
P.S. Это не помогло:  
http://www.planetaexcel.ru/forum.php?thread_id=28741  
http://www.planetaexcel.ru/forum.php/forum.php?thread_id=30666  
http://www.planetaexcel.ru/forum.php?thread_id=22229 - точно не для меня..  
 
Вобщем, всем, кто может.. Help me!.. (мне явно не хватает смайлов..)

Сергей, извини, промахнулся... :(