Behold 1 række slet 2. og 3. række, behold 4 række macro i Excel

Jeg har ikke den store viden om macro, men måske du kan bruge dette til at fjerne først hver tredje linje, og derefter hver anden: http://support.microsoft.com/kb/213610/da

Der er flere metoder til dette, her et eks:

Koden indsætter en formel i kolonne Q, så hvis du har data her som skal bevares, så ret til aktuel kolonnebogstav i koden.

Når du har kørt makro, så find den øverste celle i Q med FALSK
marker denne og tast CTRL+SHIFT+PilNed, så er alle rækker der skal slettes markeret - vælg Slet Rækker

Sub Hver2_3()
Application.Calculation = xlManual
rk = Cells(65500, 1).End(xlUp).Row
Range("Q1:Q" & rk).Formula = "=MOD(ROW(),3)=1"
Range("Q2:Q" & rk).Copy
Range("Q2:Q" & rk).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A1:Q" & rk).Sort Key1:=Range("Q1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Application.Calculation = xlAutomatic
End Sub

Til Vejmand det var ikke lige det jeg kunne bruge, men tak for budet

Og til EXCELENT det er bare perfekt, TUSIND tak for hurtigt og fint svar, du har lige sparet mig for timers arbejde med sortering.

Smid et Svar

ok velbekom