Birleştirilmiş Alanlar Oluştur - Microsoft Excel

Aktif hücreden itibaren döngü aracılığıyla ve verilen parametrelere göre birleştirilmiş hücreler oluşturmaya yarayan VBA kodudur.

Option Explicit

Sub BirlestirilmisAlanlarOlustur()
    Dim satir  As Long
    Dim sutun  As Long
    Dim adet   As Long
    Dim aralik As Long
    Dim i      As Long
    Dim j      As Long
    
    satir = 5
    sutun = 3
    adet = 10
    aralik = 0

    For i = 1 To adet
        Range(ActiveCell(satir, 1), ActiveCell(1, sutun)).Select
        Selection.Merge
        ActiveCell.Offset(aralik + 1, 0).Select
    Next
End Sub

Konu ile ilgili örnek dosyayı bu bağlantıdan indirebilirsiniz.

İndir