Для Стр=1 По КолСтрок Цикл
Номер=СокрЛП(ОкноЕхсеl.Cells(Стр,3).Value);
Если (СпрНом.НайтиПоРеквизиту("Номер",Номер,1)=1) И (ПустоеЗначение(Номер)=0) Тогда
НайденНомер=СпрНом.ТекущийЭлемент();
НайденНомер.Наименование=СокрЛП(ОкноЕхсеl.Cells(Стр,2).Value);
КонецЕсли;
КонецЦикла;
Если (СпрНом.НайтиПоРеквизиту("Номер",Номер,1)=1) И (ПустоеЗначение(Номер)=0) Тогда
//НайденНомер=СпрНом.ТекущийЭлемент();
//НайденНомер.Наименование=СокрЛП(ОкноЕхсеl.Cells(Стр,2).Value);
СпрНом.Наименование=СокрЛП(ОкноЕхсеl.Cells(Стр,2).Value);
СпрНом.Записать();
КонецЕсли;