Slik sletter annenhver rad i et Excel-regneark

Slik sletter annenhver rad i et Excel-regneark


Microsoft Excel er et populært regnearkprogram som gir nyttige verktøy for dataregistrering, beregning, grafer, pivottabeller og mer. Selv Excel er en kompleks, fullfunksjons program, betyr det ikke gir brukerne muligheten til å slette annenhver rad i et regneark som standard. Legge denne funksjonaliteten krever at brukerne å definere en automatisert oppgave kalles en makro, og deretter kjøre som makro på rader i regnearket de ønsker å endre.

Bruksanvisning

1 Åpne Excel Visual Basic Editor. Med regnearket åpnes i Excel, klikker du på "Verktøy" fra menyen øverst på skjermen, velg deretter "makro" og "Visual Basic Editor." Hvis du bruker Excel 2003 eller eldre, kan du gå videre til neste trinn.

Excel 2007-brukere vil merke at den forrige kommandoen ikke eksisterer i den gjeldende versjonen av Excel, og at ingen makro redigeringsverktøy vises som standard. Slå på tilgang til disse verktøyene ved å klikke på Office-knappen øverst til venstre hjørne av skjermen, og deretter klikke på "Alternativer for Excel" -knappen nederst i menyen. Finn overskriften merket "alternativer for å arbeide med Excel" i dialogboksen som vises, og deretter av i boksen ved siden av "Show Utvikler fanen på båndet" etiketten. Klikk på "OK". Velg kategorien Utvikler, og klikk deretter på "Visual Basic" -knappen.

2 Legg makrokode. Klikk "Sett inn" fra menyen øverst i Microsoft Visual Basic-redigering vinduet og velg "Module". Kopier hele koden nedenfor, og lim den inn i denne modulen:

Sub Delete_Every_Other_Row ()
'Dimension variabler.
Y = False 'Endre dette til True hvis du ønsker å

' delete rows 1, 3, 5, and so on.

I = 1
Sett xRng = Selection
'Loop gang for hver rad i utvalget.
For xCounter = 1 Til 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

Neste xCounter
End Sub

3 Kjør makroen. Gå tilbake til regnearket uten å lukke Visual Basic-redigering. Marker radene som alternerende rad bør fjernes. I Excel 2003 og tidligere, klikk på "Verktøy" -menyen, velg deretter "makro", etterfulgt av "Makroer" alternativet. I Excel 2007, velger du kategorien Utvikler, og klikk deretter på "Makroer". Å kjøre makroen i enten versjon, velger makroen merket "Delete_Every_Other_Row", deretter "Run." Hver partallsregnearket sletter.

Hint

  • Den angitte makro sletter alle partalls rad i et regneark. Slett oddetallsrader ved å endre "Y = False" value på den tredje linjen i makro til «Y = True"