v7: Пропуск из ТЗ элементов

Как-то так:
для сч = -ТЗ.Количество() по -1 цикл
сч = сч+1;
КонецЦикла;

ТабЗнач.ВыбратьСтроки();
Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
...Если <условие> Тогда
......ТабЗнач.УдалитьСтроку();//следующая строка стала текущей,

...КонецЕсли;
КонецЦикла;

ТабЗнач.ВыбратьСтроки();
Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
~начало: 
...Если <условие> Тогда
......ТабЗнач.УдалитьСтроку();//следующая строка стала текущей

......Если ТабЗнач.НомерСтроки<>0 Тогда
........ Перейти ~начало;
......КонецЕсли;
...КонецЕсли;
КонецЦикла;

ТабЗнач.выбратьстроки();
Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
.......Пока (<условие>) и (ТабЗнач.НомерСтроки<>0) Цикл
..............ТабЗнач.УдалитьСтроку();//следующая строка стала текущей

.......КонецЦикла;

//****************************************************************************** 

// ОчисткаТЗ() 
// Параметры: ТЗ, которую надо очистить 

// В ТЗ д.б. Колонки с идентификаторами "НадоУдалить" и "ОПС" (оригинальный порядок строк) 
// Описание: очищает ТЗ от ненужных строк 

Процедура глОчисткаТЗ(ТЗдляЧистки, ОПС="+ОПС", КолонкаУдалить="НадоУдалить", Режим=0) Экспорт 

Попытка НадоУдалить = ТЗдляЧистки.Итог(КолонкаУдалить); 
Исключение    Возврат; 
КонецПопытки; 

ТЗКС = ТЗдляЧистки.КоличествоСтрок(); 
Если Режим <> 0 Тогда 
Сообщить("> ["+ТекущееВремя()+"]: *** удаляем "+НадоУдалить+" из "+ТЗКС+" ****"); 
КонецЕсли; 

Если НадоУдалить <= 0 Тогда Возврат; КонецЕсли; 

Если НадоУдалить >= ТЗКС Тогда 
ТЗдляЧистки.УдалитьСтроки(); 
Иначе 
ТЗРаб = СоздатьОбъект("ТаблицаЗначений"); 
ТЗдляЧистки.Выгрузить(ТЗРаб); 
ТЗРаб.Сортировать("+"+КолонкаУдалить); 
ТЗРаб.Выгрузить(ТЗдляЧистки,1,ТЗКС-НадоУдалить); 
ТЗРаб = 0; 
КонецЕсли; 
Если ОПС = "###" Тогда Возврат; КонецЕсли;//сортировать не надо 

//восстановим оригинальный порядок строк 
ТЗдляЧистки.Сортировать(ОПС); 
КонецПроцедуры    //глОчисткаТЗ()

        СписЗн=СоздатьОбъект("СписокЗначений");
    ТЗ.Выгрузить(СписЗн,,,"Номенклатура");
    ВыбКонПериода=ТекущаяДата();
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса = "Период с ДнейНеликвид по ВыбКонПериода;
    |Номенклатура = Документ.РасходнаяНакладная.Номенклатура;
    |Функция Счётчик = Счётчик();
    |Группировка Номенклатура;
    |Условие(Номенклатура в СписЗн);";
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;
    Пока Запрос.Группировка() = 1 Цикл
        Стр=ПолучитьПустоеЗначение("Число");
        Если ТЗ.НайтиЗначение(Запрос.Номенклатура,Стр,"Номенклатура")=1 Тогда
            ТЗ.УдалитьСтроку(Стр);
        КонецЕсли;
    КонецЦикла;

// Алгоритм Эльниньо в один проход и без лишних сущностей и телодвижений

ТЗ.ВыбратьСтроки();
 Пока ТЗ.ПолучитьСтроку() = 1 Цикл 
     Пока ТЗ.ЧтоТо = Ненужное Цикл
         ТЗ.УдалитьСтроку();
         Если ТЗ.НомерСтроки = 0 Тогда
            Прервать;
         КонецЕсли;
     КонецЦикла;
КонецЦикла;

Инд=Тз.КоличествоСтрок()
Пока Инд>0 Цикл
 ТЗ.ПолучитьСтрокуПоНомеру(Инд);
 Если ТЗ.ННеНужна=Да Тогда
  ТЗ.УдалитьСтроку(Инд);
 КонецЕсли;
 Инд=Инд-1;
КонецЦикла;

//Код из типовой (почти):


Функция глТаблицаЗначенийУдалитьСтроки(Таб, ИдКолонки, ЗначениеПоиска) Экспорт
    
    НайденныеСтроки = СоздатьОбъект("ТаблицаЗначений");
    ВремТаб = СоздатьОбъект("ТаблицаЗначений");
    Таб.Выгрузить(НайденныеСтроки);
    НайденныеСтроки.УдалитьСтроки();
    НайденныеСтроки.Выгрузить(ВремТаб);
    
    Для Сч=1 По Таб.КоличествоСтрок() Цикл
        Если ЗначениеПоиска <> Таб.ПолучитьЗначение(Сч,ИдКолонки) Тогда
            Таб.Выгрузить(ВремТаб,Сч,Сч,);
            БылоСтрок = НайденныеСтроки.КоличествоСтрок();
            НайденныеСтроки.КоличествоСтрок(БылоСтрок+1);
            НайденныеСтроки.Заполнить(ВремТаб,БылоСтрок+1); 
        КонецЕсли;    
    КонецЦикла;    
    
    Возврат НайденныеСтроки;
    
КонецФункции

(33) Таб.ПолучитьЗначение(Сч,ИдКолонки)
- тормозная строка сильно

ТЗ.НоваяКолонка("НадоОставить","Число",1,0);
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
    ТЗ.НадоОставить=?(ТЗ.Ненужна=Да,1,0);
КонецЦикла;
ТЗ.Сортировать("НадоОставить-");
ТЗ.КоличествоСтрок(ТЗ.Итог("НадоОставить"));

//либо, вместо последней строчки:

//ИтоговаяТЗ=СоздатьОбъект("ТаблицаЗначений");
//ТЗ.Выгрузить(ИтоговаяТЗ,,,ТЗ.Итог("НадоОставить"));

(37) Извиняюсь, наоборот же -

(38) ага, хитро! ;-)

(37) ТЗ.Сортировать("НадоОставить-");
ТЗ.КоличествоСтрок(ТЗ.Итог("НадоОставить"));

см. (28)