НомСтр = 7;
   Пока Не НомСтр = 254 Цикл
       ЗначСум = СокрЛП(ЛистВыгрузкиСБ.Cells(НомСтр,4).Value);
       Если (ЗначСум = "")или(ЗначСум = "0") Тогда
           Сумма0 = "0.00";
           ЛистВыгрузкиСБ.Cells(НомСтр,4).Value = Сумма0;
           ЛистВыгрузкиСБ.Rows(НомСтр).Delete() ;
                   
   ;

       Иначе
            ЛистВыгрузкиСБ.Cells(НомСтр,4).Value = ЗначСум;



проблема    припопытки удалить строки с нулевыми или пуствми значениями определенных ячеек.так срабатывает но приэтом удаляет строки через 1 ..т.е 2,4.8 не смотря на то что 3и 5 тоже пустые как
граиотно удалить строки в файле

           
       КонецЕсли;    
             НомСтр = НомСтр + 1;

   КонецЦикла;

После удаления строка следующая получает номер удалённой. Дальше рассказывать?

(1) опередил ))

а если она не удалилалсь..т.е второе условие выполнено тогда тоже не надо увеличивать номстр

пожалуйста уж напишите как правильнонадо увеличить счетчик и где

при удалениии НомСтр НЕ должна увеличиваться...!!

ЛистВыгрузкиСБ.Rows(НомСтр).Delete() ;
номСтр = НомСтр-1;

Пока Не НомСтр = 254 Цикл
       ЗначСум = СокрЛП(ЛистВыгрузкиСБ.Cells(НомСтр,4).Value);
       Если (ЗначСум = "")или(ЗначСум = "0") Тогда
           Сумма0 = "0.00";
           ЛистВыгрузкиСБ.Rows(НомСтр).Delete() ;
           номСтр = НомСтр-1;
           Иначе
            ЛистВыгрузкиСБ.Cells(НомСтр,4).Value = ЗначСум;
           

        КонецЕсли;    
            НомСтр = НомСтр + 1;

         КонецЦикла;    
так будет правильно

чего тоя у меня не получается подскажите гже косяк

как то странно изменяется значения номера в счетчике при удалении,если просто не увеличивать при удалении он циклит если до конца файла не встретит заполненную строку

в предложеннорм варианте тоже зависает

(8) Как ты думаешь, после удаления строки - их становится меньше?
Если да - то, может быть, имеет смысл несколько иначе сформулировать условие цикла?

в предложенном коде тоже зависает

8 например как

(11) В коде из (7)?
Ну так при удалении пустых строк НомСтр ну никак не станет 254. Никогда.

подскажите варианты решения по условию цикла

(15) Ну, например,

ВсегоСтрок = 254;
Пока НомСтр<ВсегоСтрок Цикл
   //...
   Если УдаляетсяСтрока Тогда
       //...
       НомСтр = НомСтр-1;
       ВсегоСтрок = ВсегоСтрок-1;
   КонецЕсли;
   //...
КонецЦикла;

НомСтр = 7;
      ВсегоСтрок = 254;
      Пока   НомСтр<ВсегоСтрок Цикл

       //   Не НомСтр = 254 Цикл
       ЗначСум = СокрЛП(ЛистВыгрузкиСБ.Cells(НомСтр,4).Value);
       Если (ЗначСум = "")или(ЗначСум = "0") Тогда
       УдаляетсяСтрока=Истина;
         Иначе УдаляетсяСтрока=Ложь;
        КонецЕсли;    
   
       Если УдаляетсяСтрока Тогда
       ЛистВыгрузкиСБ.Rows(НомСтр).Delete() ;
       номСтр = НомСтр-1;
       ВсегоСтрок = ВсегоСтрок-1;
         Иначе
       ЛистВыгрузкиСБ.Cells(НомСтр,4).Value = ЗначСум;
       КонецЕсли;    
   //    НомСтр = НомСтр + 1;

         КонецЦикла;

таким образом

(18) Спорим, что опять зацикливается?

(Ты НомСтр _увеличивать_ нигде не собираешься?)

там где комментарии снять

или так
НомСтр = 7;
      ВсегоСтрок = 254;
      Пока   НомСтр<ВсегоСтрок Цикл

       //   Не НомСтр = 254 Цикл

       ЗначСум = СокрЛП(ЛистВыгрузкиСБ.Cells(НомСтр,4).Value);
       Если (ЗначСум = "")или(ЗначСум = "0") Тогда
       УдаляетсяСтрока=Истина;
          Иначе УдаляетсяСтрока=Ложь;
        КонецЕсли;    
   
       Если УдаляетсяСтрока Тогда
       ЛистВыгрузкиСБ.Rows(НомСтр).Delete() ;
       номСтр = НомСтр-1;
       ВсегоСтрок = ВсегоСтрок-1;
          Иначе
       ЛистВыгрузкиСБ.Cells(НомСтр,4).Value = ЗначСум;
 НомСтр = НомСтр + 1;

       КонецЕсли;    
     

          КонецЦикла;

(21) Тоже не взлетит.
Если увеличение номера у тебя в Иначе - то не нужно уменьшать его в Тогда.

И мелкие советы:

можно написать прямо:

УдаляетсяСтрока = (ЗначСум="") ИЛИ (ЗначСум="0");

А можно это же условие вставить и непосредственно в оператор Если УдаляетсяСтрока Тогда (вместо УдаляетсяСтрока) - но это уже дело вкуса, введение переменной заодно и текст комментирует, и упрощает изменения.

так где же увеличивать счетчик

не получается не по первому варианту не по второму- строки вычищает все

(24) А подумать не пробовал?

ВсегоСтрок = 254;
НомСтр = 7;
Пока НомСтр<ВсегоСтрок Цикл
   Если СтрокуНужноУдалить(НомСтр) Тогда
       // удаляем строку
       ВсегоСтрок = ВсегоСтрок-1;
   Иначе
       // что-то другое со строкой проворачиваем
       НомСтр = НомСтр+1;
   КонецЕсли;
КонецЦикла;

еще вопрос ..все отработало корректно но
в фале оказались кривые значения
11 307,6000000009
4 708,50000000099
8 300,76
8 455,5
11 307,6000000009
13 725,79
5 321,06
76 219,21
5 458,36000000099
5 361,50000000099
10 716,9200000009

причем исходные значения с точностью до 2 знака и непонятно по какому признаку он часть пишет правильно а часть косячит

Я так делала:
   й = КолВоСтрок;
   Пока й >= 2 Цикл
       Состояние("Выполняется удаление пустых строк...");
       мТекЗначение = Строка(мТекЛист.Cells(й, мКолонка).Value);
       Если (НЕ ЗначениеЗаполнено(мТекЗначение)) Тогда
           мТекЛист.Rows(й).Delete();
           й = й - 1;
       Иначе    
           й = й - 1;
       КонецЕсли;    
       ИндикаторОбработки  = ИндикаторОбработки + 1;
   КонецЦикла;
й - это количество строк уже посчитанное.

(0)

        .......
        Иначе
            ЛистВыгрузкиСБ.Cells(НомСтр,4).Value = ЗначСум;
           
            НомСтр = НомСтр + 1; // СЮДА ПОСТАВИТЬ
        КонецЕсли;    
       
        // НомСтр = НомСтр + 1; // ОТСЮДА УБРАТЬ


(26) Округли, если тебя именно в последних знаках цифры беспокоят.

еще вопрос как правильно при каждом запуске копировать эталонный файл с одного места в другое

КнигаВыгрузкиЭлектронноСБ.SaveAs("c\эталон\1.xls","c\старт\1.xls");
типа этого или как