birleştir formulu

[staskiran]

Birleştir formulunde uzunca bir sutunu birleştire bilme imkanımız varmı
örneğin A1 il A100 arasını birleştirmek istiyorum böyle bir imkan varmı????

 

[Ali]

Sub birlestir()
Range("A1:A100").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
End Sub

 

[Seyit Tiken]

Ekli dosyayı bir inceleyin.