Birleştir ortala ile çözülen hücrelere değerleri yazdırma

[endexci]

Değerli arkadaşlar,

Excel sayfamda A1:A5 arasında birleştir ve ortala yapılmış ve değer olarak 25 sayısı yazmaktadır. Ben A1:A5 arasındaki hücreleri seçip birleştir ortala ile hücreleri çözünce 25 sayısı sadece A1 de yazıyor A2:A5 arası boş kalıyor benim istediğim ben bu hücreleri çözünce A1:A5 arasındaki hücrelerin hepsine 25 sayısını yazmasını istiyorum konu ile ilgili bilgisi olan arkadaşların destekleri için şimdiden teşekkür ederim.

 

[KARTAL133]

Merhaba

örnek excel paylaşımı olursa daha kolay olur

Saygılarımla,

 

[Ziynettin]

.....

Sub test()
sat = 5 ' sütundaki son satır
a = Range("A1:A" & sat).Value
For i = 1 To UBound(a)
    If a(i, 1) <> "" Then y = a(i, 1)
    a(i, 1) = y
Next i
Application.ScreenUpdating = 0
    [A1].Resize(sat).UnMerge
    [A1].Resize(sat) = a
Application.ScreenUpdating = 1
End Sub

 

[endexci]

.....

Sub test()
sat = 5 ' sütundaki son satır
a = Range("A1:A" & sat).Value
For i = 1 To UBound(a)
    If a(i, 1) <> "" Then y = a(i, 1)
    a(i, 1) = y
Next i
Application.ScreenUpdating = 0
    [A1].Resize(sat).UnMerge
    [A1].Resize(sat) = a
Application.ScreenUpdating = 1
End Sub

Elleriniz dert görmesin Ziynettin bey teşekkür ederim.