Подходит как для обычных форм, так и для управляемых
Выполняется функцией ОбъединятьЯчейки НаСервереБезКонтекста
&НаСервереБезКонтекста
Функция ОбъединениеЯчеек (ТабДокумент, НачальнаяСтрока, НомерКолонкиДляРаботы, НомерКолонкиДляРаботыКонечный)
ВсегоСтрок =
//50
//100
//НачальнаяСтрока + ТабличноеПоле1.Количество()+ТабличноеПоле3.Количество()
10000
;
итртр = НачальнаяСтрока ;
ЗапомнилиТекст = "IDDQD" ;
СтартоваяСтрокаДляОбъединения = 0 ;
КонечнаяСтрокаДляОбъединения = 0 ;
Пока итртр <= ВсегоСтрок Цикл
итртр = итртр +1 ;
ОбластьДляЧтения = ТабДокумент.Область(итртр, НомерКолонкиДляРаботы, итртр, НомерКолонкиДляРаботы) ;
Если ОбластьДляЧтения.Текст = ЗапомнилиТекст Тогда
СтартоваяСтрокаДляОбъединенияПослеПроверки = СтартоваяСтрокаДляОбъединения ;
КонечнаяСтрокаДляОбъединения = итртр ;
Продолжить ;
КонецЕсли ;
Если ОбластьДляЧтения.Текст <> "" Тогда
ЗапомнилиТекст = ОбластьДляЧтения.Текст ;
СтартоваяСтрокаДляОбъединения = итртр ;
Иначе
ЗапомнилиТекст = "IDDQD" ;
КонецЕсли ;
Если (СтартоваяСтрокаДляОбъединения <> КонечнаяСтрокаДляОбъединения) и (КонечнаяСтрокаДляОбъединения <> 0) Тогда
ОбластьДляОбъединения = ТабДокумент.Область(СтартоваяСтрокаДляОбъединенияПослеПроверки, НомерКолонкиДляРаботы, КонечнаяСтрокаДляОбъединения, НомерКолонкиДляРаботыКонечный) ;
ОбластьДляОбъединения.Объединить();
КонечнаяСтрокаДляОбъединения = 0 ;
КонецЕсли ;
КонецЦикла;
Возврат ТабДокумент ;
КонецФункции
Так же код функции имеется на форме обработки
