[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