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

Почему не сохроняются данные

Потому что где НайденНомер.Записать()?

(1) не взлетит :)

не выбран элемент

я ж говорил

еще бы

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

А разве не надо определять текущий элемент.

(7) Вот здесь

Если (СпрНом.НайтиПоРеквизиту("Номер",Номер,1)=1)

ты уже СпрНом спозиционировал на элемент.

Ясно