Slik sletter annenhver rad automatisk i Excel 2003

Microsoft Office har en rekke programmerte funksjoner for å hjelpe deg å automatisere kompliserte funksjoner og ligninger. Det er ingen programmert funksjon for å slette annenhver rad i Excel, men du kan lage din egen ved å lage en makro i Visual Basic-redigering verktøyet. Makroer posten kommandoer, og du kan lage dem selv. Når du har opprettet den rette makro, kan du bruke denne funksjonen i Excel for å automatisk slette annenhver celle i regnearket ved å kjøre makroen på de markerte cellene.

Bruksanvisning

1 Åpne en ny arbeidsbok i Excel og skriv tallet "1" i celle A1. Hopp celle A2 og skriv "2" i celle A3. Gjenta denne prosessen til du har tallene 1 til 5 som legges inn i cellene A1 til A9. Følgende cellene skal ha følgende tall: "1" for A1, "2" for A3, "3" for A5, "4" for A7 og "5" for A9.

2 Klikk "Verktøy" og velg "Macro". Klikk på "Visual Basic Editor."

3 Velg "Sett inn" og klikk "Module".

4 Kopier følgende makro og lim den inn i Visual Basic sheet:

Sub Delete_Every_Other_Row ()

'Dimension variabler.

Y = False 'Endre dette til True hvis du ønsker å

'Slette rader 1, 3, 5, og så videre.

I = 1

Sett xRng = Selection

'Loop gang for hver rad i utvalget.

For xCounter = 1 Til xRng.Rows.Count

«Hvis Y er sant, så ...

Hvis Y = True Deretter

'... Slett en hel rad av celler.

xRng.Cells (I) .EntireRow.Delete

"Ellers ...

Ellers

"... Øke jeg etter én, slik at vi kan bla gjennom serien.

I = I + 1

Slutt om

«Hvis Y er sant, gjør det False; hvis Y er False, gjør det sant.

Y = Ikke Y

Neste xCounter

End Sub

5 Klikk "Lukk og gå tilbake til Microsoft Excel" for å avslutte, og deretter teste makroen ved å markere rader A1 til A9 på Excel-regneark du har gjort tidligere. Klikk "Verktøy" og deretter "Macro" og deretter "Makroer".

6 Velg "Delete_Every_Other_Row" fra Makro-menyen og klikk "Run." De alternative rader vil bli slettet, og tallene 1 til 5 vil nå vises i cellene A1 til A5.