Microsoft Office har en hel del programmerade funktioner som hjälper dig att automatisera komplicerade funktioner och ekvationer . Det finns ingen programmerad funktion för att ta bort varannan rad i Excel , men du kan skapa dina egna genom att göra ett makro i Visual Basic Editor verktyget . Makron kommandon rekord , och du kan skapa dem själv . När du skapar rätt makro kan du använda den här funktionen i Excel för att automatiskt ta bort varannan cell i kalkylbladet genom att helt enkelt köra makrot på de markerade cellerna . Instruktioner
1
Öppna en ny arbetsbok i Excel och skriv numret " 1 " i cell A1 . Hoppa cell A2 och typ " 2 " i cell A3 . Upprepa denna process tills du har siffrorna 1 till 5 trädde i cellerna A1 till A9 . Följande cellerna ska ha följande nummer : " 1 " för A1 , " 2 " för A3 , " 3 " för A5 , " 4 " för A7 och " 5 " för A9
2
Klicka . " Verktyg " och välj " Macro ". Klicka på " Visual Basic Editor . " Addera 3
Välj " Infoga "-fliken och klicka på " Modul . "
4
Kopiera följande makro och klistra in den i Visual Basic arket :
Sub Delete_Every_Other_Row ( ) katalog
" . Dimension variabler
Y = False ' Ändra detta till true om du vill
' radera raderna 1, 3 , 5 , och så vidare .
i = 1
Set xRng =
Selection
" Loop gång för varje rad i markeringen .
för XCounter = 1 att xRng.Rows.Count
" Om Y är sant , då ...
p Om Y = sant då
" ... ta bort en hel rad av celler .
xRng.Cells ( I ) . EntireRow.Delete
" Annars ...
Else
" ... öka jag med en så vi kan cykla genom området .
I = I + 1
End If
' Om Y är sant att det är falskt , . om Y är False , gör det sant
Y = Ej Y
Nästa XCounter
End Sub
5
Klicka på " Stäng och gå tillbaka till Microsoft Excel " för att avsluta , sedan testa makrot genom att markera raderna A1 till A9 på Excel- kalkylblad du gjort tidigare . Klicka på " Verktyg " och sedan " Macro " och klicka sedan på " Makron . "
6
Välj " Delete_Every_Other_Row " från Macro -menyn och klicka på "Kör . " De alternerande raderna raderas och siffrorna 1 till 5 kommer nu att visas i cellerna A1 till A5 .
