vdscom
Дмитрий Романовский

            зн = ExcelЛист.Cells(стр,кол).Value;
            // разделяем объединенные ячейки и распределяем между ними их числовое содержимое
            Если зн <> Неопределено и ТипЗнч(зн) = Тип("Число") и ExcelЛист.Cells(стр,кол).MergeCells = Истина Тогда
               // количество строк и колонок выделенной области
               квоСтр = ExcelЛист.Cells(стр,кол).MergeArea.Rows.Count;
               квоКол = ExcelЛист.Cells(стр,кол).MergeArea.Columns.Count;
               // количество ячеек выделенной области
               квоЯчеек = квоСтр*квоКол;
               // координаты начальной ячейки области
               начСтр = ExcelЛист.Cells(стр,кол).MergeArea.Row;
                                        начКол = ExcelЛист.Cells(стр,кол).MergeArea.Column;
                                        // координаты конечной ячейки области
                                        конСтр = начСтр+квоСтр-1;
                                        конКол = начКол+квоКол-1;
               // разделяем ячейки
               ExcelЛист.Cells(стр,кол).UnMerge();
               // распределяем между ячейками числовое содержимое
               Для стрМ = 0 по квоСтр-1 Цикл
                  Для колМ = 0 по квоКол-1 Цикл
                     ячЗн = Окр(зн/квоЯчеек,0);
                     ExcelЛист.Cells(начСтр+стрМ,начКол+колМ).Value = ячЗн;
                     зн = зн-ячЗн;
                     квоЯчеек = квоЯчеек-1;
                  КонецЦикла;
               КонецЦикла;
               // заново считываем значение реквизита строки
               зн = ExcelЛист.Cells(стр,кол).Value;
            КонецЕсли;