Microsoft Office har mye av 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 skape den rette makro, kan du bruke denne funksjonen i Excel til å automatisk slette annenhver celle i regnearket ved å kjøre makroen på de markerte cellene . Instruksjoner
en
Å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 inn i cellene A1 til A9 . Følgende celler bør ha følgende tall : "1" for A1 , "2" for A3 , "3" for A5 , " 4" for A7 og " 5 " for A9
2
Klikk på. "Verktøy " og velg "Macro ". Klikk på " Visual Basic Editor . "
3
Velg " Insert " og klikk " Module ".
4
Kopier følgende makro og lim den i Visual Basic sheet : en
Sub Delete_Every_Other_Row ( )
' . Dimension variabler
Y = False ' Endre dette til Sann hvis du ønsker å
' slette rader 1 , 3 , 5 og så videre .
i = 1
Set xRng = Selection
' Loop én gang for hver rad i utvalget.
for xCounter = 1 To xRng.Rows.Count
' Hvis Y er sann , så ...
p Hvis Y = True Deretter
' ... slette en hel rad av celler .
xRng.Cells ( I) . EntireRow.Delete
' Ellers ...
Else
' ... øke jeg etter en slik at vi kan sykle gjennom området .
I = I + 1
End If
< p > 'Hvis Y er sann , 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- regnearket du gjort tidligere . Klikk på " Verktøy " og deretter " Macro" og deretter " Makroer ".
6
Velg " Delete_Every_Other_Row " fra Makro-menyen og klikk "Run . " De annenhver rad vil bli slettet, og tallene 1 til 5 vil nå vises i cellene A1 til A5 .