Сложный Поиск

[frantic150]

Требуется макрос, выполняющий следующее:
На листе 1 имеются адреса (ул., пр. и т.д.)
На листе 2 имеются искомые адреса и соответствующие рядом значения, которые нужно присвоить ячейке справа от адреса в листе 1. ТО есть макрос должен найти в листе 1 эти адреса (которые в листе 2) и соответственно присвоить значения
Желательно, чтобы поиск был гибкий, (т. к. некоторые адреса с ошибкой)
Попробовал написать сам, но получается слишком топорно

Пример прикреплен.
Заранее спасибо.

[SAS888]

Желательно, чтобы поиск был гибкий, (т. к. некоторые адреса с ошибкой)

Посмотрите вложение. Перед началом поиска, макрос приводит к нормальному виду данные в столбце "B" на листе "Лист1". Т.е. вставляет пробел после запятой, удаляет лишние пробелы и делает прописными все начальные буквы в каждом слове. Затем осуществляется поиск. Т.к. поиск ведется по частичному совпадению, то добавлена чувствительность к регистру. Это сделано для того, чтобы исключить ложные совпадения при вхождении искомого значения как части слова в искомой строке.
Все это я сделал на свое усмотрение, т.к. Вы не указали, какие именно ошибки возможны в записях. Если нужно что-либо добавить, приведите пример с записями, в которых встречаются все возможные ошибки (неточности).