Удалить строки из табличной части справочника

  &НаКлиенте
Процедура ОбработатьВыполнить()
    Объект.Обработан=Истина;
    БылоСтрок= Объект.Данные.Количество();
    Для Счетчик =1  по   Объект.Данные.Количество() Цикл 
        НомерСтроки= БылоСтрок-Счетчик;
        лСтр = Объект.Данные[НомерСтроки];
        Если лСтр.Группа = Объект.ВозрастнаяГруппа  Тогда
            // оставляем
        Иначе
            Объект.Данные.Удалить(НомерСтроки);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры    

 ЭлементСправочника = Справочники.Контрагенты.НайтиПоКоду("Ю0006"); 
ОбъектСправочника = ЭлементСправочника.ПолучитьОбъект(); 
ОбъектСправочника.ВидыДеятельности.Очистить(); 
ОбъектСправочника.Записать(); 

ОбъектСправочника = ВыбранныйЭлемент.ПолучитьОбъект(); 

// Создать структуру для отбора удаляемых строк. 
СтруктураОтбора = Новый Структура("ВидДеятельности", ВыбранныйВидДеятельности); 

// Получить массив удаляемых строк. 
ПодходящиеСтроки = ОбъектСправочника.ВидыДеятельности.НайтиСтроки(СтруктураОтбора); 

// Удалить строки. 
Для Каждого ОчереднаяСтрока Из ПодходящиеСтроки Цикл 
	ОбъектСправочника.ВидыДеятельности.Удалить(ОчереднаяСтрока); 
КонецЦикла; 
ОбъектСправочника.Записать();