Makro ile istenilen satıra boşluk açma

[orkunozbudak]

Herkese merhaba F stununda bulunan farklı bölgeler arasındaki boşluğu EĞER'den F2=F1 yaparak buluyorum fakat boşluk açamıyorum.bu farklılıkları makro ile boşluk açıcak şekilde yapabilirmiyim örnek görsel atıyorum şimdiden teşekkürler



[url=https://www.hizliresim.com/4xor5m3][/URL]

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Bak As Long
    For Bak = Cells(Rows.Count, "F").End(xlUp).Row - 1 To 2 Step -1
        If Cells(Bak, "F") <> Cells(Bak + 1, "F") Then
            Rows(Bak + 1).Insert
        End If
    Next
End Sub

 

[orkunozbudak]

Çok tesekkur ederim oldu ?