Microsoft Excel er et populært regnearkprogram som gir nyttige verktøy for dataregistrering, beregning, grafer , Pivot tabeller og mer . Selv om Excel er et komplekst , fullt utstyrt 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 kalt en makro , og deretter kjøre makroen på rader i regnearket de ønsker å endre. Instruksjoner
en

Åpne Excel Visual Basic-redigering . Med regnearket åpen i Excel , klikk på " Verktøy" fra menyen øverst på skjermen , og 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 legge merke til 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 i venstre hjørne av skjermen , og deretter klikke på " Alternativer for Excel "-knappen nederst på menyen. Finn overskriften merket " Beste alternativer for arbeid med Excel " i dialogboksen som vises , så sjekk boksen ved siden av " Vis kategorien Utvikler på båndet " etiketten. Klikk "OK". Velg kategorien Utvikler , og klikk deretter på " Visual Basic" -knappen.
2

Legg makro kode . Klikk "Sett inn" fra menyen øverst i Microsoft Visual Basic-redigering vinduet og velg " . Module" Kopier all koden nedenfor , deretter lime det inn i denne modulen : en

Sub Delete_Every_Other_Row ( ) ' Dimension variables.Y = False ' Endre dette til Sann hvis du ønsker å " slette rader 1 , 3, 5 , og så on.I = 1Still xRng = Selection ' Loop én gang for hver rad i selection.For xCounter = 1 å xRng.Rows.Count ' Hvis Y er sant, da ... Hvis Y = True Deretter ' ... slette en hel rad av cells.xRng.Cells ( i) . EntireRow.Delete ' Ellers ... Else ' . .. øke jeg etter en slik at vi kan sykle gjennom range.I = I + 1End Hvis ' Hvis Y er sann , gjør det False , hvis Y er False , gjør det True.Y = Ikke YNext xCounterEnd Sub

3

Kjør makroen . Tilbake til regnearket uten å lukke Visual Basic-redigering . Marker radene som vekselvis rad bør fjernes . I Excel 2003 og tidligere versjoner: Klikk på "Verktøy "-menyen , velg deretter " makro" , etterfulgt av " Makroer " alternativet . I Excel 2007 , velg kategorien Utvikler , og klikk på « Makroer . " For å kjøre makroen i begge versjoner , velger du makroen merket " Delete_Every_Other_Row ", deretter "Run. " Hver partalls- raden i regnearket sletter .