Каким методом можно это проверить?

вижуал бейскик открой в екзеле и почитай, алфавит знаешь саксонский?

(1) ))

(1) нашёл MergeCells, но это именно объединение ячейки

(3) +1 к силе, так и дотелепаешь до 80-го уровня, только упорство, только настойчивость, только хардкор!

(4) а подсказать не судьба? )

(1) тебе что, жена сегодня не дала? чего такой злой? Что не пост, то какой-то вброс негатива.

(6) а если по теме?

(6) это разминка чувак, ты с какова района?

(8) Района чего? Города?

(3) это именно, что тебе надо
+ mergearrea.address

(10) Спасибо. Большое! )

(10) странно, но

если Book.Range( "a" + Строка(СтрокаЛиста) ).MergeArrea.Address     = "a" + Строка(СтрокаЛиста) тогда


Метод объекта не обнаружен (Range)

ничего не странно, об этом не однократно говарено

(13) в чём ошибка?

(12) Range для листа или для книги? и так и так пробовал

Book = Excel.Workbooks.Open( ЭлементыФормы.ВыбранныйФайл.Значение );    
   
   ЭлементыФормы.ПолеСписка1.Видимость = Истина;
   ЭлементыФормы.Надпись2.Видимость = Истина;
   
   ЭлементыФормы.ТабличноеПоле1.Значение.Очистить();
   ЭлементыФормы.ПолеСписка1.Значение.Очистить();
   
   ЭлементыФормы.ПолеСписка1.Значение.Добавить( "Начало обработки файла..." );
   
   Счётчик = 0;
   
   Профессии = Справочники.ПрофессииПрофессиональнойПодготовки;
   
   для ТекущийЛист = 1 по 1 цикл
       
       ExcelList = Book.Sheets(ТекущийЛист);
       
       Сообщить("Лист открыт!!!!");
       
       СтрокаЛиста = 2;
       
       для СтрокаЛиста = 2 по 5157 цикл
       
           если Book.Range( "a" + Строка(СтрокаЛиста) ).MergeArrea.Address     = "a" + Строка(СтрокаЛиста) тогда
               
               ТекущаяГруппа = ExcelList.Cells(СтрокаЛиста, 1).Value;
               
               НоваяГруппа = Профессии.СоздатьГруппу();
               НоваяГруппа.Наименование = ТекущаяГруппа;
               НоваяГруппа.Записать();
               
               КоличествоГрупп = КоличествоГрупп + 1;
               СтрокаЛиста = СтрокаЛиста + 1;
               
           иначе
               
               НоваяСтрока = ЭлементыФормы.ТабличноеПоле1.Значение.Добавить();
               НоваяСтрока.Код = ExcelList.Cells(СтрокаЛиста, 2).Value;        
               НоваяСтрока.Наименование = ExcelList.Cells(СтрокаЛиста, 3).Value;        
               НоваяСтрока.НаименованиеГруппы = ТекущаяГруппа;
               
               СтрокаЛиста = СтрокаЛиста + 1;
                   
               Счётчик = Счётчик + 1;
               
           КонецЕсли;
           Счётчик = Счётчик + 1;
           
       КонецЦикла;    
       
   КонецЦикла;
   
   ЭлементыФормы.ПолеСписка1.Значение.Добавить( "Обработано строк: " + Строка(Счётчик) );
   ЭлементыФормы.ПолеСписка1.Значение.Добавить( "Загрузка завершена." );
   
   Сообщить("Импорт данных успешно завершен.");
   
   Исключение
       Сообщить(ОписаниеОшибки());
       Excel.Application.Quit();
   КонецПопытки;

в самом начале нужно разделять объекты и обращаться к их методам

Ексель=
Книги=Ексель.Workbooks;
Книга=Книги.Item(NNN); или Книга=Книги.Add(); или Книга=Книги.Open(Файл);
Листы=Книга.WorkSheets;
Лист=Листы.Item(NNN); или Лист=Листы.Add();
Ячейки=Лист.Cells;
и т.д.

Попытка
       Excel = новый COMОбъект("Excel.Application");
   Исключение
       Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");
       Возврат;
   КонецПопытки;    
   
   Попытка
   
   
   Books = Excel.Workbooks;    
   Book = Books.Open( ЭлементыФормы.ВыбранныйФайл.Значение );
   Lists = Book.WorkSheets;
   
   ЭлементыФормы.ПолеСписка1.Видимость = Истина;
   ЭлементыФормы.Надпись2.Видимость = Истина;
   
   ЭлементыФормы.ТабличноеПоле1.Значение.Очистить();
   ЭлементыФормы.ПолеСписка1.Значение.Очистить();
   
   ЭлементыФормы.ПолеСписка1.Значение.Добавить( "Начало обработки файла..." );
   
   Счётчик = 0;
   
   Профессии = Справочники.ПрофессииПрофессиональнойПодготовки;
   
   для ТекущийЛист = 1 по 1 цикл
       
       ExcelList = Lists.Item(ТекущийЛист);
       
       Сообщить("Лист открыт!!!!");
       
       СтрокаЛиста = 2;
       
       для СтрокаЛиста = 2 по 5157 цикл
       
           если ExcelList.Range( "a" + Строка(СтрокаЛиста) ).MergeArrea.Address     = "a" + Строка(СтрокаЛиста) тогда
               
               ТекущаяГруппа = ExcelList.Cells(СтрокаЛиста, 1).Value;
               
               НоваяГруппа = Профессии.СоздатьГруппу();
               НоваяГруппа.Наименование = ТекущаяГруппа;
               НоваяГруппа.Записать();
               
               КоличествоГрупп = КоличествоГрупп + 1;
               СтрокаЛиста = СтрокаЛиста + 1;
               
           иначе
               
               НоваяСтрока = ЭлементыФормы.ТабличноеПоле1.Значение.Добавить();
               НоваяСтрока.Код = ExcelList.Cells(СтрокаЛиста, 2).Value;        
               НоваяСтрока.Наименование = ExcelList.Cells(СтрокаЛиста, 3).Value;        
               НоваяСтрока.НаименованиеГруппы = ТекущаяГруппа;
               
               СтрокаЛиста = СтрокаЛиста + 1;
                   
               Счётчик = Счётчик + 1;
               
           КонецЕсли;
           Счётчик = Счётчик + 1;
           
       КонецЦикла;    
       
   КонецЦикла;
   
   ЭлементыФормы.ПолеСписка1.Значение.Добавить( "Обработано строк: " + Строка(Счётчик) );
   ЭлементыФормы.ПолеСписка1.Значение.Добавить( "Загрузка завершена." );
   
   Сообщить("Импорт данных успешно завершен.");
   
   Исключение
       Сообщить(ОписаниеОшибки());
       Excel.Application.Quit();
   КонецПопытки;    



Поле объекта не обнаружено (MergeArrea)

Всё решилось так

ExcelList.Range( "A" + Строка(СтрокаЛиста) ).MergeCells

Возвращает true или false

MergeArea

(20) о чем в (4) и (10)