MS Excel

Téma: sloučené buňky - zrušení

Zaslal/a renca 11.4.2013 23:46

Dobrý den,

prosím o pomoc: mám sloupec B-J v sudých řádcích sloučen. Potřebuji zrušit sloučení. Mám makro, ale udělá mi jen daný řádek a nevím jak dál, mám řádků 200.
Díky moc

Sub sloucene_bunky()
Range("B16:J16").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge

End Sub