В файле 2 колонки. В первой ячейки объединены по 2 по вертикали, во второй - разбиты. Получается, что одной ячейке первой колонки соответствует 2 ячейки второй колонки.
Считываю значения следующим образом.

    Для К = НачСтрока+1 По КонСтрока Цикл
        
        Если СокрЛП(СокрЛП(ЛистExcel.Cells(К,НачКолонка).Value)) <> СокрЛП(Объект.Подразделение)Тогда
            Продолжить;
        КонецЕсли;
        
        НовСтрока = ТЧданныеФайла.Добавить();
        
        Для Л = НачКолонка По КонКолонка Цикл
            
            Значение = СокрЛП(ЛистExcel.Cells(К,Л).Value);
            
                        
        КонецЦикла;
    КонецЦикла;

При этом возникает проблема. В первой колонке берется значение из объединенной ячейки, во второй колонке берется только из верхней ячейки, вторая остается несчитанной. Как получить значение и из второй ячейки второй колонки?

Для К = НачСтрока+1 По КонСтрока Цикл
        
        Если СокрЛП(СокрЛП(ЛистExcel.Cells(К,НачКолонка).Value)) <> СокрЛП(Объект.Подразделение)Тогда
            Продолжить;
        КонецЕсли;
        
        НовСтрока = ТЧданныеФайла.Добавить();
М=К+1;
        
   //     Для Л = НачКолонка По КонКолонка Цикл
            
            Значение1 = СокрЛП(ЛистExcel.Cells(К,1).Value);
Значение2 = СокрЛП(ЛистExcel.Cells(М,1).Value);
            
                        
    //    КонецЦикла;
    КонецЦикла;

Так не? :)

Значение2 = СокрЛП(ЛистExcel.Cells(М,2).Value);

(1) для упрощения примера я написала, что обьединенная ячейка состоит из двух. На деле количество ячеек в одной может быть разным

Я бы сказал, что запросом будет нормально

ActiveCell.MergeArea.Cells.Count

Или

For Each oColumn In Cells.Columns
    If oColumn.MergeCells = True Then i = i + 1
Next oColumn
MsgBox i

iCell.MergeArea.Rows.Count