per 10 rijen er 9 verwijderen

[keesh]

Hallo,

Ik heb een excel file met twee kolommen. Kolom A is een oplopende reeks getallen 1 t/m 60.000; kolom B bestaat uit bijbehorende waarden ('t is een geïmporteerde timeseries uit een andere programma). Ik wil graag van beide kolommen per 10 rijen er 9 weggooien en 1 laten staan en dat voor de hele kolom zodat ik uiteindelijk 10x zo weinig data over houd. Met de hand is dit voor 60.000 rijen niet te doen dus ik loop te pielen met macro's maar kom er niet uit. Hebben jullie een idee?

Mvg Kees

 

[Haije]

Kees,

zoiets?

Sub gooiweg()
[a2].Select
For aantal = 1 To 6000
For tel = 1 To 9
ActiveCell.EntireRow.Delete
Next tel
ActiveCell.Offset(1, 0).Select
Next aantal
End Sub

Maak voor de zekerheid eerst een kopie

 

[keesh]

Hier word ik wel heel erg vrolijk van... bedankt haije

 

[Haije]

Zet je de vraag nog even op opgelost (rechtsonder)?

 

[snb]

of

Sub tst()
    sq = UsedRange.Resize(, 3)
    For j = 1 To UBound(sq) Step 10
       sq(j, 3) = " "
    Next
    UsedRange.Resize(, 3) = sq
    Columns(3).SpecialCells(4).EntireRow.Delete
End Sub