Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte Microsoft Excel , z ktorého chcete odstrániť každý tretí riadok .
2
Pridanie dát do prvých dvanásť riadkov tabuľky v stĺpci "A. "
3
Otvorte menu makra stlačením " Alt " a " F8 " ; . " . Vytvorenie " tlačidla
4
Zadajte " Deletethree " do poľa Názov makra a potom kliknite na tlačidlo označené
5
vložte nasledujúci kód nižšie text " Sub Deletethree " :
' Dim variables.Y = 1I = 1
Set xRng = Voľba
" Loop pre každý riadok v selectionFor xCounter = 1 Ak chcete xRng.Rows.Count
Ak Y = 3 Potom
' ... zmazať celý riadok cells.xRng.Cells ( I) . EntireRow.DeleteY = 1 " Inak .. . Else " ... prírastok som jeden prechádzajte range.I = I + 1R = Y + 1End Ak
Ďalšie xCounter
6
Uložiť makro " Deletethree " stlačením " Ctrl " a " S " kľúča . Zatvorte okno " Microsoft Visual Basic " pre návrat do aplikácie Excel .
7
Zvýraznite bunky A1 až A12 v tabuľke .
8
stlačte " Alt " , a " F8 " kľúče k otvoreniu makra ponuky . Vyberte makro " Deletethree " a kliknite ľavým tlačidlom myši na tlačidlo " Spustiť " . Po dokončení makra , každý tretí riadok je odstránený .
Copyright © počítačové znalosti Všetky práva vyhradené