Slik sletter du annenhver rad i et Excel-regneark

Sammendrag

Denne artikkelen inneholder et eksempel på en Microsoft Visual Basic for Applications-makro som du kan bruke til å slette annenhver rad i et merket område i et Microsoft Excel-regneark.

Mer informasjon

Microsoft gir programmeringseksempler kun for illustrasjon, uten garanti hverken uttrykt eller antydet. Dette inkluderer, men er ikke begrenset til, de underforståtte garantiene for salgbarhet eller egnethet for et bestemt formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som blir demonstrert og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsoft kundestøtte-teknikere kan hjelpe til å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å dekke dine spesifikke behov. Hvis du vil bruke følgende makro, konfigurerer du en Excel-arbeidsbok på følgende måte:

1. Opprett en ny Microsoft Excel-arbeidsbok.

2. Skriv inn tallene fra 1 til 5 i området A1:A9 i et nytt regneark, og hopp over rader, som i eksemplet nedenfor:

   A1: 1
   A2:
   A3: 2
   A4:
   A5: 3
   A6:
   A7: 4
   A8:
   A9: 5
   

3. Pek mot Makro og klikk deretter på Visual Basic Editor i verktøymenyen.

   Merk Klikk Visual Basic i Kode-gruppen i kategorien Utvikler i Microsoft Office Excel 2007 og nyere versjoner.

4. I Sett inn-menyen klikker du Modul.

5. Skriv inn følgende makro i den nye modulen:

Sub Delete_Every_Other_Row()

' Dimension variables.
   Y = False              ' Change this to True if you want to
                          ' delete rows 1, 3, 5, and so on.
   I = 1
   Set xRng = Selection

' Loop once for every row in the selection.
   For xCounter = 1 To xRng.Rows.Count

' If Y is True, then...
       If Y = True Then

' ...delete an entire row of cells.
           xRng.Cells(I).EntireRow.Delete

' Otherwise...
       Else

' ...increment I by one so we can cycle through range.
           I = I + 1

End If

' If Y is True, make it False; if Y is False, make it True.
       Y = Not Y

Next xCounter

End Sub

6. Bytt til regnearket som inneholder dataene, og merk deretter området A1:A9.

7. Hvis du vil kjøre makroen, peker du på Makro på Verktøy-menyen, og deretter klikker du Makroer.

   Obs!

   • Klikk Makroer i Kode-gruppen i kategorien Utvikler i Excel 2007 og nyere versjoner.
   • Hvis du vil vise Utvikler-fanen på båndet, klikker du Microsoft Office-knappen, alternativer for Excel, klikker kategorien Populært, klikker for å merke av for Vis utvikler på båndet , og deretter klikker du OK.

8. Merk Delete_Every_Other_Row makroen, og klikk deretter Kjør.

Denne makroen sletter annenhver rad, og starter med den andre raden i det merkede området.