ComExcelDocument_RU по именнованной ячейки вывести номер ее строки.

[Poleax]

blokva
Задача: в Excel файле есть ячейка с именем. ("TEST") оказывается она ре одинарная а состоит из нескольких, объединенных. Надо продублировать ячейку вниз целиком и полностью, с сохранением форматирования и объединений.
Каждый раз при дублировании ячейки вниз в нее вставляю через цикл значение.

На данный момент вставка происходит, все хорошо, кроме одного. Если ячейка состояла из нескольких то при вставке объединение теряется.

Gustav Спасибо за мастер-класс по Help(у).
Как мне в аксапте вытянуть этот диапазон Range("A1").MergeArea.Address чтоб потом по нему megre сделать.

    COM         comRange, comRange1, comR;
   comR=comRange.MergeArea();
   comR.merge(); //че то не то..

[Gustav]

Цитата:

Сообщение от Poleax

Как мне в аксапте вытянуть этот диапазон Range("A1").MergeArea.Address чтоб потом по нему megre сделать.

    COM         comRange, comRange1, comR;
   comR=comRange.MergeArea();
   comR.merge(); //че то не то..

Sub VBA_Macro4()
    Dim comRange As Range
    Dim comR As Range
    Dim addr As String
    
    Set comRange = Worksheets(1).Range("B2:D4")
    
    addr = comRange.Range("A1").MergeArea.Address

    'здесь Range("A1") говорит о том, что из объединенной ячейки надо взять
    'левую верхнюю ячейку диапазона - не путать с ячейкой A1 всего листа
    'без этого просто comRange.MergeArea.Address вызовет ошибку
    
    '...........................
    
    Set comR = Worksheets(1).Range(addr)
    comR.Merge
End Sub