Ako odstrániť každý druhý riadok automaticky v programe Excel 2003

Microsoft Office má mnoho naprogramovaných funkcií , ktoré vám pomôžu automatizovať zložité funkcie a rovnice . Neexistuje žiadny naprogramovať funkcie odstrániť každý druhý riadok v programe Excel , ale môžete vytvoriť svoj ​​vlastný tým , že makrá v nástroji Visual Basic Editor . Makrá záznam príkazov , a vy im môžete vytvoriť sami . Po vytvorenie správnej makro , môžete použiť túto funkciu v programe Excel automaticky odstrániť všetky ostatné bunky v tabuľke jednoduchým spustením makra na zvýraznené bunky . Pokyny dovolená 1

Otvorte nový zošit v programe Excel a zadajte číslo " 1 " v bunke A1 . Prejsť na bunku A2 a zadajte " 2 " v bunke A3 . Tento postup opakujte , kým nebudete mať čísla 1 až 5 , zadaných v bunkách A1 až A9 . Nasledujúce články by mali mať nasledujúce čísla : " 1 " pre A1 , " 2 " pre A3 , " 3 " pre A5 , " 4 " pre A7 a " 5 " pre A9
2

Kliknite na tlačidlo . " Nástroje " a vyberte " makrá . " Kliknite na " Visual Basic Editor . "
3

Vyberte kartu " Vložiť " a kliknite na " modul " .
4

Skopírujte nasledujúce makro a vložte ho v jazyku Visual Basic listu :

Sub Delete_Every_Other_Row ( )

" . premenné kóty

Y = False ' Zmeňte to na hodnotu True , ak chcete

' odstrániť riadky 1 , 3 , 5 , a tak ďalej .

I = 1

Nastavte xRng = výber

" Loop raz pre každý riadok vo výbere .

xCounter = 1 až xRng.Rows.Count

" Ak Y je pravda , potom ...

ak Y = True Then

' ... zmazať celý riadok buniek .

xRng.Cells ( I) . EntireRow.Delete

" Inak ...

Else

" ... zvýšiť ja raz tak môžeme prechádzať rozsahu .

I = I + 1

End If

'Ak Y je pravda , že aby bolo False ; . ak Y je False , aby to pravda ,

Y = Nie Y

Ďalšie xCounter

End Sub
5

Kliknite na tlačidlo " Zavrieť a vrátiť sa do programu Microsoft Excel " pre opustenie , otestujte makro zvýraznením riadkov A1 až A9 na tabuľke programu Excel môžete robil predtým . Kliknite na " Nástroje " , potom " makro " a potom kliknite na tlačidlo " makrá . "
6

zvoľte " Delete_Every_Other_Row " z menu makra a kliknite na tlačidlo " Spustiť " . Zastupujúci riadky budú odstránené a čísla 1 až 5 sa teraz zobrazí v bunkách A1 až A5 .

• Predchádzajúca strana: Ako spočítať všetky riadky s prázdnym bunky v programe Excel 2007 
• Ďalšia strana: Ako pracovať s poliami vo formáte MS Excel 2007