Microsoft Office har en masse programmerede funktioner til at hjælpe dig med at automatisere komplicerede funktioner og ligninger . Der er ingen programmerede funktion til at slette hver anden række i Excel, men du kan oprette din egen ved at lave en makro i Visual Basic Editor værktøj. Makroer rekord kommandoer , og du kan oprette dem selv. Når du opretter den rigtige makro, kan du bruge denne funktion i Excel til automatisk at slette hver anden celle i regnearket ved blot at køre makroen på de fremhævede celler. Instruktioner
1
Åbn en ny projektmappe i Excel og skriv nummeret "1" i celle A1 . Spring celle A2 og skriv "2" i celle A3. Gentag denne proces, indtil du har numrene 1 til 5 indtastet i cellerne A1 til A9 . Følgende celler bør have følgende numre: "1" for A1, "2" for A3 , "3" for A5, "4" for A7 og " 5" for A9
2
Click. "Funktioner" og vælg " Macro ". Klik på " Visual Basic Editor. "
3
Vælg "Indsæt " fanen og klik på " Modul ".
4
Kopier nedenstående makro og indsæt den i Visual Basic sheet : Hej
Sub Delete_Every_Other_Row ()
' . dimension variabler
Y = False ' ændre denne til True , hvis du ønsker at
' slette rækker 1, 3 , 5 og så videre.
i = 1
Set xRng = Selection
< br >
' Loop én gang for hver række i markeringen.
xCounter = 1 til xRng.Rows.Count
»Hvis Y er sand, derefter ...
p Hvis Y = Ægte så
' ... slette en hel række af celler.
xRng.Cells ( I). EntireRow.Delete
' Ellers ...
Else
' ... tilvækst I efter én, så vi kan cykle gennem rækkevidde.
I = I + 1
End If
< p > ' Hvis Y er sand, gør det False ; . hvis Y er False , gør det sandt
Y = Ikke Y
Næste xCounter
End Sub
5
Klik på " Luk og vend tilbage til Microsoft Excel " for at afslutte , og derefter teste makroen ved at fremhæve rækker A1 til A9 i Excel- regneark, du foretaget tidligere. Klik på " Funktioner " og derefter " Macro " og derefter på " Makroer ".
6
Vælg " Delete_Every_Other_Row " fra Macro -menuen og klikke på "Kør ". De alternative rækker vil blive slettet , og tallene 1 til 5 vil nu blive vist i celle A1 til A5 .
