Birleştirilmiş Satır Aralığında Formül Çalıştırma

[cumalif]

Herkese merhaba, ben sadece birleştirilmiş satır aralığında formül çalıştırmak istiyorum. Hatta mümkünse, yinelenen isimlerin olduğu satırları otomatik birleştirmek istiyorum. Şimdiden yarım eden vakit ayıran herkese teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Sayfanızın yedeğini aldıktan sonra deneyiniz...

Sub kod()
Range("B:B").NumberFormat = "@"
bas = 8
k = Cells(bas, "B")
b = Cells(bas, "B")
Application.DisplayAlerts = False
For a = bas To Cells(Rows.Count, "A").End(3).Row
    If Cells(a, "B") < k Then k = Cells(a, "B")
    If Cells(a, "B") > b Then b = Cells(a, "B")
    
    If Cells(a, "A") <> Cells(a + 1, "A") Then
        Range(Cells(bas, "A"), Cells(a, "A")).Merge
        Range(Cells(bas, "B"), Cells(a, "B")).Merge
        Cells(bas, "B") = b & " - " & k
        bas = a + 1
        k = Cells(bas, "B")
        b = Cells(bas, "B")
    End If
Next
Application.DisplayAlerts = True
End Sub