Aynı verilerden sonra boşluk bıraksın ?

[yer06]

sevgili arkadaşlar a sutunununda 100 lerce sayı var bu sayıların bir kısmı aynı aynı olan sayılardan sonraki satıra otomatik boşluk nasıl bıraktırabilirim örnek liste aşağıdadır. Teşekkür ederim.

 

[leumruk]

sevgili arkadaşlar a sutunununda 100 lerce sayı var bu sayıların bir kısmı aynı aynı olan sayılardan sonraki satıra otomatik boşluk nasıl bıraktırabilirim örnek liste aşağıdadır. Teşekkür ederim.

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Sub bosluk()
For x = [a65536].End(3).Row - 1 To 2 Step -1
If Cells(x, "a") <> Cells(x + 1, "a") And Cells(x, "a") <> "" Then
Rows(x + 1).Insert shift:=xlDown
End If
Next
MsgBox "İşlem tamamlandı.", vbInformation, "leumruk"
End Sub

 

[yer06]

Teşekkür ederim ellerinize sağlık