Для Каждого Колонка ИЗ ЭлементыФормы.ТП.Колонки Цикл
        Если Колонка.Данные <> "Объект" Тогда            
            ЭлементыФормы.ТП.Колонки.Удалить(Колонка);
            Кол = Тп.Колонки.Найти(Колонка.Данные);
            ТП.Колонки.Удалить(Кол);
        КонецЕсли;
    КонецЦикла;

//я предполагал что останется одна колонка "Объект", но их остается половина + "Объект"
// почему так?

потому что итератор сбивается, правильно напихать в массив, а потом пройтись по массиву и удалить

либо через

Пока Сч < Колонки.Количество() Цикл
  Если УдаляемКолонку(Сч) Тогда
    УдалитьКолонку(Сч)
  Иначе
    Сч = Сч + 1;
  КонецЕсли;
КонецЦикла;

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

а не проще будет через "свернуть"?

(4) не угадал

спасибо, все получилось