Satır silmek

[polis-53]

Merhaba arkadaşlar benim uzun bir excel dosyam var bu dosyada her 20 satır arayla 5 satır sildirmek istiyorum. manuel olarak çok uzun sürüyor bana yardımcı olursanız çok sevinirim

 

[Ömer]

Merhaba,

Sub SatirSil()
Application.ScreenUpdating = False
Dim i As Double
    For i = [A65536].End(3).Row To 2 Step -20
        Rows(i & ":" & i + 5).Delete Shift:=xlUp
    Next i
Application.ScreenUpdating = True
End Sub

Bu şekilde deneyin.

.