Табло=СоздатьОбъект("ТаблицаЗначения");
Табло.НоваяКолонка("Элемент");
Табло.НоваяКолонка("НужныйРеквизит");
Наим = "одинаковое наименование";
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Элем = Справочник.ХХХ.ТекущийЭлемент;
|Наименование = Справочник.ХХХ.Наименование;
|Условие (Найти(Наименование,Наим)>0);
|Группировка Элем без групп;
|";
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Пока Запрос.Группировка(1) = 1 Цикл
Табло.НоваяСтрока();
Табло.Элемент = Запрос.Элем;
Табло.НужныйРеквизит = Запрос.Элем.НужныйРеквизит
КонецЦикла;
НужныйРеквизитПоиск = """"";
Стр = "";
Если Табло.НайтиЗначение(НужныйРеквизитПоиск,Стр,"НужныйРеквизит")=1 Тогда
НужныйЭлементПоПоиску = Табло.ПолучитьЗначение(Стр,"Элемент");
КонецЕсли;