aralıklarla satır silmek

[invisibleagle]

Ã?rnekte verdiğim datanın a sutunu zamanı b sutunu yüksekliği vermektedir.Ben saniye sutununda her 5 saniyedeki verilerin haricindekileri silmek istiyorum.Yardımcı olursanız teşekkür ederim.

 

[Explorer]

Aşağıdaki kodlar işinizi görür.
[vb:1:3034443b26]Sub Sil()
Dim i As Long

i = 1
Do
If Cells(i, 1) Mod 5 <> 0 Then
Rows(i).Delete
i = i - 1
End If
i = i + 1
Loop Until Cells(i, 1) = Empty
End Sub[/vb:1:3034443b26]

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

[vb:1:4d4c2b01d6]Sub Sil()
For a = [a65536].End(xlUp).Row To 1 Step -1
If Cells(a, 1) Mod 5 <> 0 Then Rows(a).Delete
Next
End Sub

[/vb:1:4d4c2b01d6]