Procedure til at slette hver anden række i et ark

Dim i As Integer, Ark As Worksheet
Set Ark = ThisWorkbook.Worksheets("Ark1")
With Ark
  For i = 1 To 15
    .Rows(i).Delete
  Next i
End With

slo> Din With ... End With er vist lidt skudt over målet her :-)

Og så skal vi lige starte med række 2...

Dim i As Integer, Ark As Worksheet
Set Ark = ThisWorkbook.Worksheets("Ark1")
For i = 2 To 15
  Ark.Rows(i).Delete
Next i

jpvj> Upps - den med række 2 havde jeg overset...
Mht. at bruge With/End With er det et performance spørgsmål - har mest af alt noget at gøre med nogle gode vaner, da der her naturligvis ikke er tale om en kørselstid af betydning.
En god hovedregel er at bruge With/End With når du skal "tilgå" et objekt mere end en gang. I ovenstående gør vi det (i din kode) 14 gange.

Sæt denne ind i en tom kolonne og træk den nedad
Vælg autofilter.
vælg 0

slet rækker

=REST(RÆKKE();2)

Og hvis man ikke gider indtaste antal rækker :
---------------
Sub sletrakker()
Dim a As Integer
a = (1 + (InStr(1, ActiveSheet.UsedRange.Address(ReferenceStyle:=xlR1C1, _
    RowAbsolute:=False, RelativeTo:=Cells(1, 1)), "]")))
With ThisWorkbook.ActiveSheet
  For b = 2 To a
    .Rows(b).Delete
  Next
End With
End Sub

Har I alle sammen overset at det kun er HVER ANDEN række der skal slettes?
Så vidt jeg kan læse jeres forslag sletter i alle rækker fra 2 til 15???

Eller forstår jeg bare ikke det I skriver?

Deres makroer er gode nok

Du skal huske på at når du sletter en række, så hopper den en række op.

altså, række 2 slettes, række 3 bliver til række 2, makroen siger next og det bliver jo række 4 fordi række 3 er hoppet op.

håber du forstår. ;-))

Så i virkeligheden skal man jo dele slut variablen i for-next løkken med 2 :-)

slo> Performance? Nu ved jeg ikke hvordan VB bliver fortolket/jit kompileret, så jg har ingen forudsætninger for at udtale mig om emnet. Hvis du mener at man opnår en bedre performance, kan du så ikke lige smide et link til noget dokumentation? Er da lidt nysgerrig...

jpvj -> Excel's indbyggede hjælp er bare ét sted du kan se det - flg. er fra "Brug af With-sætninger" :
"Med sætningen With kan du angive et objekt eller en brugerdefineret type én gang for en hel række sætninger. With-sætninger bevirker, at procedurerne afspilles hurtigere, og at du undgår gentagne indtastninger."
og lidt senere på samme hjælpeside:
"Du kan indlejre With-sætninger for at opnå større effektivitet."

slo> Takker for info - nice to know :-)

Tror du lige jeg vil teste lidt på det...