birleştir ve ortala alt alta ıkı satır bırseltırmek

[kakara]

Merhaba ustadlarım a2 ve a3 satırları bırlesecek a4 kalıcak a5 ve a6 bırlesecek a7 kalıcak a8 ve a9 birleşecek a10 kalıcak bu sekılde a3000 e kadar işlem olması gerekıyor.

yanı a2 den baslayarak ıkı satır bırlesıp sonrasında satır bırleşmeyecek sonra dıger ıkı satır bırleşecek bu sekılde devam edıcek ılgınız ıcın sımdıden tesekkurler

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Bak As Integer
    For Bak = 2 To 3000 Step 3
        With Range("A" & Bak & ":A" & Bak + 1)
            .Merge
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    Next
    MsgBox "Tamamlandı.", vbInformation
End Sub

 

[muygun]

Merhaba;
Alternatif olsun. Deneyin.
İyi çalışmalar.

 

[kakara]

Tesekkurler ustadlarım ılgınız ıcın