Сравнение двух таблиц и вывод результата в третьей

[lapsus]

Уважаемые знатоки!
Стоит следующая задача: есть два листа с таблицами, имеющими общие столбцы. Необходимо сравнить их по столбцу "Наименование" (оно может совпадать лишь по одному слову, может быть идентичным).
Затем итог сравнения записать на третий лист, желательно, следующим образом: т.к. сравниваемых значений сравнительно много, в первом столбце указывать "эталоны" (с первого листа) напротив них в следующих столбцах схожие значения, желательно ссылками
на эти строки во 2ом листе.
Т.к. мои познания в vba совсем скудны, если не сказать напрочь отсутствуют, решить самостоятельно не удается..
Буду рада, если вы сможете подсказать, как это сделать
Заранее спасибо!

[SAS888]

Для того, чтобы получить быстрый и точный ответ, приложите файл с исходными таблицами. Можно с "липовыми" данными и всего в несколько строк, но, желательно, чтобы в примере имелись все возможные варианты. И на отдельном листе - желаемый результат. Укажите версию Excel, а также, возможное количество строк, т.к. в различных частных ситуациях, наиболее рациональный метод решения может быть разным.

[lapsus]

На 1 и 2 листах таблицы, которые нужно сравнивать.

Документ версии 2003, что по самому файлу и видно, но у нас у всех установлен 2007. Так что можно и в этом формате.

[SAS888]

Нужно определиться, что значит "схожие" записи. Например, чем схожи записи

Автом.уст.д/пов.монтажа PA 1308/20 GEM EMERALD

и

АУ д/поверхного монтажа комп. PA 1308/20 GEM EMERALD

Давайте определим критерий, по которому можно считать, что записи схожи. Например, процент совпадения по отдельным словам и т.п. Также, не понятно, что значит 2-я схожая запись, 3-я и т.д.

[lapsus]

В том-то и беда, что сложно понять как автоматически определить схожие
Глазом я вижу похожие) просто сокращения по-разному указаны =\
Т.к. однозначно определить нельзя будет, я и решила, что можно выводить несколько похожих записей.
Например, несколько строк совпадет по слову "осциллограф". В обеих таблицах их не по одному казано.. либо просто указать в первом столбце "TDS1012 Осциллограф 100Мгц 2 канала" (из первой таблицы) и дальше в столбце 1ое значение: Осциллограф 100МГц, 2 канала TDS1012; второе: Осциллограф 2*60МГц и т.д. из второй таблицы В идеале нужно бы, чтоб на "TDS1012 Осциллограф 100Мгц 2 канала" выдало лишь "Осциллограф 100МГц, 2 канала TDS1012", но вряд ли можно организовать столь интеллектуальный поиск) Может, как-нить массивом и сверять первый элемент со всеми элементами второго массива-строки. Как только находит совпадение, к примеру, единица в счетчик, затем следующее слово.. если счетчик больше либо равен двум, выводить результат. В общем-то, я не программер )) но могу такой алгоритм озвучить..

[Teslenko_EA]

Здравствуйте lapsus.
Любой "озвученный" Вами алгоритм не в состоянии будет справиться с подобной "головоломкой", он не сможет понять что "Осветительный блок ОБ" и "Осветительный блокОБ" это опечатка а не два разных устройства.
Сначала группировка наименований, систематизация (приведение к единому виду - "Жало ET-JL миниволна для LR" >> "Жало ET-JL миниволнад/LR") и только потом возможно корректное "..Сравнение двух таблиц..".
Евгений.

[doober]

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

В том-то и беда, что сложно понять как автоматически определить схожие
Глазом я вижу похожие) просто сокращения по-разному указаны =\
Т.к. однозначно определить нельзя будет, я и решила, что можно выводить несколько похожих записей.
Например, несколько строк совпадет по слову "осциллограф". В обеих таблицах их не по одному казано.. либо просто указать в первом столбце "TDS1012 Осциллограф 100Мгц 2 канала" (из первой таблицы) и дальше в столбце 1ое значение: Осциллограф 100МГц, 2 канала TDS1012; второе: Осциллограф 2*60МГц и т.д. из второй таблицы В идеале нужно бы, чтоб на "TDS1012 Осциллограф 100Мгц 2 канала" выдало лишь "Осциллограф 100МГц, 2 канала TDS1012", но вряд ли можно организовать столь интеллектуальный поиск) Может, как-нить массивом и сверять первый элемент со всеми элементами второго массива-строки. Как только находит совпадение, к примеру, единица в счетчик, затем следующее слово.. если счетчик больше либо равен двум, выводить результат. В общем-то, я не программер )) но могу такой алгоритм озвучить..

По вашей идее во вложении для эксперимента

[lapsus]

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

По вашей идее во вложении для эксперимента

Спасибо, попробую)

[lapsus]

2doober:
В общем-то, вроде, похоже. Только надо бы результаты сравнения (т.е. значения в столбцах B, C, D и т.д.) выводить ссылками на соответствующие им ячейки на листе 2. Возможно ли это?

[doober]

Попробуйте так.

Private Sub CommandButton1_Click()
l = 2

For m = 35 To 1316 
i = 0

Dim fl As Boolean
fl = False

For n = 8 To 169 
d = Simil(Лист1.Cells(m, 2), Лист2.Cells(n, 2))
If d > 0.3 Then  

Sheets("Лист3").Cells(l, 1).Value = Лист1.Cells(m, 2)
Sheets("Лист3").Cells(l, 2 + i).Formula = "=Лист2!" & Лист2.Cells(n, 2).Address
i = i + 1
fl = True
End If
Next
If fl = True Then
l = l + 1
End If
Next

End Sub