Как объединить ячейки в Excel при помощи формул?

Question

Необходимо объединить ячейки в таблице (ВАЖНО), не данные в них. В excel на главной есть функция "объединить", позволяющая выполнить желаемое. Мой вопрос в том, если какая-нибудь формула, позволяющая выполнить то же самое?

Жанат Сулейменов · Accepted Answer

включите запись макроса и объедините ячейку, какую вам надо, потом остановите запись и прсмотрите, что там записалось... возможно и есть....
Например, получится что-то такое, или короче этого:
Sub Макрос1() 
' 
' Макрос1 Макрос 
' 
 
' 
    Range(&#34;B3:B4&#34;).Select 
    With Selection 
        .HorizontalAlignment = xlCenter 
        .VerticalAlignment = xlBottom 
        .WrapText = False 
        .Orientation = 0 
        .AddIndent = False 
        .IndentLevel = 0 
        .ShrinkToFit = False 
        .ReadingOrder = xlContext 
        .MergeCells = False 
    End With 
    Selection.Merge 
    Range(&#34;C3:D3&#34;).Select 
    With Selection 
        .HorizontalAlignment = xlCenter 
        .VerticalAlignment = xlBottom 
        .WrapText = False 
        .Orientation = 0 
        .AddIndent = False 
        .IndentLevel = 0 
        .ShrinkToFit = False 
        .ReadingOrder = xlContext 
        .MergeCells = False 
    End With 
    Selection.Merge 
    Range(&#34;C4:D4&#34;).Select 
    With Selection 
        .HorizontalAlignment = xlCenter 
        .VerticalAlignment = xlBottom 
        .WrapText = False 
        .Orientation = 0 
        .AddIndent = False 
        .IndentLevel = 0 
        .ShrinkToFit = False 
        .ReadingOrder = xlContext 
        .MergeCells = False 
    End With 
    Selection.Merge 
    Range(&#34;B3:D4&#34;).Select 
    With Selection 
        .HorizontalAlignment = xlGeneral 
        .VerticalAlignment = xlBottom 
        .WrapText = False 
        .Orientation = 0 
        .AddIndent = False 
        .IndentLevel = 0 
        .ShrinkToFit = False 
        .ReadingOrder = xlContext 
        .MergeCells = False 
    End With 
    With Selection 
        .HorizontalAlignment = xlGeneral 
        .VerticalAlignment = xlBottom 
        .WrapText = False 
        .Orientation = 0 
        .AddIndent = False 
        .IndentLevel = 0 
        .ShrinkToFit = False 
        .ReadingOrder = xlContext 
        .MergeCells = False 
    End With 
    With Selection 
        .HorizontalAlignment = xlGeneral 
        .VerticalAlignment = xlBottom 
        .WrapText = False 
        .Orientation = 0 
        .AddIndent = False 
        .IndentLevel = 0 
        .ShrinkToFit = False 
        .ReadingOrder = xlContext 
        .MergeCells = False 
    End With 
    Selection.UnMerge 
    With Selection 
        .HorizontalAlignment = xlCenter 
        .VerticalAlignment = xlBottom 
        .WrapText = False 
        .Orientation = 0 
        .AddIndent = False 
        .IndentLevel = 0 
        .ShrinkToFit = False 
        .ReadingOrder = xlContext 
        .MergeCells = False 
    End With 
    Selection.Merge 
    Range(&#34;B3:D4&#34;).Select 
    ActiveCell.FormulaR1C1 = &#34;1234567890&#34; 
    Range(&#34;B5&#34;).Select 
End Sub

Владимир Романишин · Answer

...объединить ячейки в таблице (ВАЖНО), не данные в нихэто как ? 
покажите на примере ТАК ЕСТЬ и ТАК ХОЧУ

Как объединить ячейки в Excel при помощи формул?

Похожие вопросы