Tekrarlı belirli sayıda satır silme

[arda41]

Merhaba Arkadaşlar,

Elimde çok sayıda satırdan oluşan bir excel liste var. Birinci satırı tutup sonraki mesela 9 satırı sileceğim. Daha sonra 10. satırı tutup sonraki yine 9 satırı sileceğim. Bu şekilde liste sonuna kadar devam edeceğim. Daha sonra kalan satırlarda boşluksuz dizilecekler. Bu işlemi nasıl bir kod ile yapabiliriz?

Şimdiden çok teşekkür ederim.

Saygılarımla

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub KOD()
Dim alan As Range
For a = 2 To Range("A65500").End(3).Row Step 9
    If alan Is Nothing Then
        Set alan = Range("A" & a & ":A" & a + 7)
    Else
        Set alan = Union(alan, Range("A" & a & ":A" & a + 7))
    End If
Next
alan.EntireRow.Delete
End Sub

 

[arda41]

Sayın Mucit77,

Çok teşekkür ederim. Kod işimi görmekte

Saygılarımla