Slik sletter Hver tredje rad i et Excel-regneark

Microsoft Excel er et regnearkprogram med avansert funksjonalitet for å manipulere, sortering og kartlegging numeriske data. Excel har mange funksjoner som er tilgjengelige som utfører forskjellige handlinger brukeren kan kreve. Når den innebygde funksjonaliteten ikke oppfyller brukerens krav, inkludert programmering språk, Visual Basic for Applications (VBA), kan brukes i stedet. VBA er en robust programmeringsspråk tilgjengelig for operasjoner som utføres fra innsiden av regneark. En operasjon som å slette rader basert på egendefinerte krav er en perfekt plass for VBA.

Bruksanvisning

1 Åpne Microsoft Excel-regneark som du ønsker å slette hver tredje rad.

2 Legg data til første tolv rader i regnearket i kolonnen "A."

3 Åpne menyen for makroer ved å trykke på "Alt" og "F8" tastene.

4 Enter "Deletethree" i Makronavn-boksen, og klikk på knappen merket "Create".

5 Lim inn følgende kode under teksten "Sub Deletethree":

'Dim variabler.

Y = 1
I = 1

Sett xRng = Selection

'Loop for hver rad i utvalget

For xCounter = 1 To xRng.Rows.Count

Hvis Y = 3 Da

'... Slett en hel rad av celler.
xRng.Cells (I) .EntireRow.Delete
Y = 1
"Ellers ...
Ellers
"... Øke jeg etter en for å bla gjennom serien.
I = I + 1
Y = Y + 1
Slutt om

Neste xCounter

6 Lagre makro "Deletethree" ved å trykke "Ctrl" og "S" tastene. Lukk vinduet "Microsoft Visual Basic" for å gå tilbake til Excel-programmet.

7 Lys cellene A1 til A12 i regnearket.

8 Trykk på "Alt" og "F8" for å åpne makroen menyen. Velg makro "Deletethree" og venstre-klikk på "Kjør" -knappen. Ved fullførelse av makroen, hver tredje rad fjernet.

Hint

• Endre tallet i linjen med kode "Hvis Y = 3 Da" for å slette rader på et annet intervall.
• Ikke markere hele kolonnen - dette vil føre til at makro å kjøre på ubestemt tid.