Birleştirilmiş hücrelerden oluşan tabloyu veritabanı formatına getirme

[tamer42]

Merhabalar,
Ekli dosyada Sayfa1 Birleştirilmiş hücrelerden oluşan tabloyu, Sayfa2 deki gibi veritabanı formatına getirmek istiyorum;

Bu işlemi makro ile nasıl yapabilirm?

desteğiniz için şimdiden teşekkürler,
iyi Çalışmalar.

 

[muygun]

Merhaba;
Eki deneyin.
Butonu iki sayfadan da kullanabilirsiniz.
İyi çalışmalar.

 

[tamer42]

Merhaba;
Eki deneyin.
Butonu iki sayfadan da kullanabilirsiniz.
İyi çalışmalar.

Teşekkürler Hocam
sağ olun, var olun !

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Edit_Report()
    Dim X As Range
    
    With Range("B1:F" & Cells(Rows.Count, "F").End(3).Row)
        .UnMerge
        On Error Resume Next
        Set X = .SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If Not X Is Nothing Then X.FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With

    MsgBox "Veriler düzenli hale getirilmiştir.", vbInformation
End Sub