With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End Sub
Alebo
Sub Makro1()
Selection.MergeCells = True
End Sub
Makro si priraď k nejakému tlačítku, napríklad CTRL+m.
ALT+F8 > možnosti.citovat