Поиск и вывод соответствий

[dominci]

Добрый день.

Прошу помощи в вопросе сравнения таблиц.

Главная задача: подобрать соответствие значениям столбца АРТИКУЛ 1С из значений столбца ID.

Логика работы:
1) берется значение ячейки из столбца "Наименование 1С" и прогоняется по столбцу "Описание view" для нахождения подходящей или совпадающей строки
(например: берется значение 0201 10uF 6V X7R 5% Murata и находится 10uF 6V 10% X7R 0201 Murata);

2) когда найдено одно точное совпадение на новый лист SHARP выносится значение ID совпадающей ячейки, значение Наименование view, Описание view, Наименование 1С (исходное, которое бралось в начале) и соответствующий ему Артикул 1С;

3) если найдены несколько совпадающих значений, то они выносятся на лист MORE;

4) если не найдено ни одного совпадения, то исходное значение выносится на лист NO;

5) берется следующее значение наименование 1С из исходной таблицы и все повторяется сначала.

Заранее благодарен за ваше время и помощь.

[kuklp]

Я тут попытался своему компу втолковать, что
0201 10uF 6V X7R 5% Murata и 10uF 6V 10% X7R 0201 Murata - совпадающие значения. Комп обозвал меня полным дебилом, фыркнул, дрыгнул винтом и ушел спать(Hibernate). Подозреваю, что на всех форумах, где Вы выложили этот вопрос, всем желавшим помочь Вам компы ответили то же. Просто они стесняются сказать это Вам:-)

[doober]

А мой выдал такую функцию для сравнения

    Public Function Simil(ByVal StringC As String, ByVal StringD As String) As Double
    Dim X1 As Double, X2 As Double
    X1 = 0: X2 = 0
    StringD = Split(StringD, "/")(0)
    For n = 1 To Len(StringC)
    X1 = X1 + Asc(Mid(StringC, 1, n))
    Next
     For n = 1 To Len(StringD)
    X2 = X2 + Asc(Mid(StringD, 1, n))
    Next
    Simil = IIf(X1 / X2 < 1, X1 / X2, X2 / X1)
    End Function

[Hugo121]

Сергей, а как же FuzzyVLOOKUP()?
http://www.planetaexcel.ru/forum.php?thread_id=22556
У меня выдал 0,8125 соответствия.
Как это использовать в задаче - не вникал... но как-то можно

[kuklp]

А сколько соответствия будет между "Бровеносец Потемкин" и "Броненосец Потемкин"? То Брежнев, а то корабль

[Hugo121]

0,95 ....

[kuklp]

Отож. А в случае с "казнить нельзя помиловать" я останусь жив:-)