Tabela e përmbajtjes
Ky tutorial i shkurtër shpjegon se si të fshini çdo rresht tjetër në Excel duke filtruar ose me kodin VBA. Do të mësoni gjithashtu se si të hiqni çdo rresht të 3-të, të 4-të ose çdo rreshti tjetër të N-të.
Ka shumë situata kur mund t'ju duhet të fshini rreshta alternative në fletët e punës të Excel. Për shembull, mund të dëshironi të ruani të dhënat për javë çift (rreshtat 2, 4, 6, 8, etj.) dhe t'i zhvendosni të gjitha javët tek (rreshtat 3, 5, 7 etj.) në një fletë tjetër.
Në përgjithësi, fshirja e çdo rreshti tjetër në Excel zbret në zgjedhjen e rreshtave alternative. Pasi të zgjidhen rreshtat, duhet vetëm një goditje e vetme në butonin Fshi . Më tej në këtë artikull, do të mësoni disa teknika për të zgjedhur dhe fshirë shpejt çdo rresht tjetër ose çdo rresht të nëntë në Excel.
Si të fshini çdo rresht tjetër në Excel duke filtruar
Në thelb, një mënyrë e zakonshme për të fshirë çdo rresht tjetër në Excel është kjo: së pari, ju filtroni rreshtat alternative, pastaj zgjidhni ato dhe fshini të gjitha menjëherë. Hapat e detajuar vijojnë më poshtë:
- Në një kolonë bosh pranë të dhënave tuaja origjinale, vendosni një sekuencë zero dhe njësh. Mund ta bëni shpejt këtë duke shtypur 0 në qelizën e parë dhe 1 në qelizën e dytë, më pas duke kopjuar dy qelizat e para dhe duke i ngjitur ato në kolonë deri në qelizën e fundit me të dhëna.
Përndryshe, mund të përdorni këtë formulë:
=MOD(ROW(),2)
Logjika e formulës është shumë e thjeshtë: funksioni ROW kthen numrin aktual të rreshtit, funksionin MODe ndan atë me 2 dhe kthen pjesën e mbetur të rrumbullakosur në numrin e plotë.
Shiko gjithashtu: Si të bëni Vlookup të ndjeshëm ndaj rasteve në Excel - shembuj formulashSi rezultat, ju keni 0 në të gjitha rreshtat çift (sepse ato ndahen me 2 në mënyrë të barabartë pa mbetje) dhe 1 në të gjitha rreshtat tek:
- Në varësi të faktit nëse doni të fshini rreshtat çift ose tek, filtrojini njësh ose zero.
Për ta bërë këtë, zgjidhni çdo qelizë në kolonën tuaj Ndihmës, shkoni te skeda Të dhënat > Rendit dhe filtro dhe kliko Filtër butonin. Shigjetat e filtrit drop-down do të shfaqen në të gjitha qelizat e kokës. Ju klikoni butonin e shigjetës në kolonën Ndihmës dhe zgjidhni një nga kutitë:
- 0 për të fshirë rreshtat çift
- 1 për të fshirë rreshtat tek
Në këtë shembull, ne do të heqim rreshtat me vlera "0", kështu që i filtrojmë:
- Tani që të gjitha rreshtat "1" janë fshehur, zgjidhni të gjitha rreshtat e dukshme "0", kliko me të djathtën mbi përzgjedhjen dhe kliko Fshi rreshtin :
- Hapi i mësipërm ju ka lënë një tabelë bosh , por mos u shqetësoni, rreshtat "1" janë ende atje. Për t'i bërë ato të dukshme përsëri, thjesht hiqni filtrin automatik duke klikuar përsëri butonin Filter :
- Formula në kolonën C rillogaritet për rreshtat e mbetur, por nuk ju duhet më. Tani mund të fshini në mënyrë të sigurt kolonën Ndihmës:
Si rezultat, vetëm javët çift kanë mbetur në fletën tonë të punës, javët tek janë zhdukur!
Këshillë. Nëse dëshironi të lëvizni çdorreshti tjetër në një vend tjetër në vend që t'i fshini ato fare, fillimisht kopjoni rreshtat e filtruar dhe ngjitini ato në një vend të ri dhe më pas fshini rreshtat e filtruar.
Si të fshini rreshtat alternative në Excel me VBA
Nëse nuk jeni të gatshëm të humbisni kohën tuaj në një detyrë të parëndësishme siç është fshirja e çdo rreshti tjetër në fletët tuaja të punës në Excel, makroja e mëposhtme VBA mund të automatizojë procesin për ju:
Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Set SourceRange = Application.Selection Set SourceRange = Application.InputBox( "Range:" , "Select the range" , SourceRange.Address, Type :=8) Nëse SourceRange.Rows.Count >= 2 Pastaj Dim FirstCell si Range Dim RowIndex si numër i plotë Application.ScreenUpdating = False Për RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) Në 1 Hap -2 Vendos FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.DeleteenTreepplication.Application. End If End SubSi të fshini çdo rresht tjetër në Excel duke përdorur makro
I futni makronë në fletën tuaj të punës në mënyrën e zakonshme nëpërmjet redaktuesit të Visual Basic:
- Shtypni Alt + F11 për të hapur dritaren e Visual Basic për aplikacionet.
- Në shiritin e sipërm të menusë, klikoni Fut > Moduli dhe ngjisni makronë e mësipërme në Moduli
- Shtypni tastin F5 për të ekzekutuar makro.
- Një dialog do të shfaqet dhe do t'ju kërkojë të zgjidhni një varg. Zgjidhni tabelën tuaj dhe klikoniOK:
U krye! Çdo rresht tjetër në intervalin e zgjedhur fshihet:
Si të fshijmë çdo rresht të nëntë në Excel
Për këtë detyrë, ne do të zgjerojmë filtrimin teknikë që kemi përdorur për të hequr çdo rresht tjetër. Dallimi është në formulën në të cilën bazohet filtrimi:
MOD(ROW()- m, n)Ku:
- m është numri i rreshtit të qelizës së parë me të dhëna minus 1
- n është rreshti i nëntë që dëshironi të fshini
Le të themi se të dhënat tuaja fillojnë në rreshtin 2 dhe dëshironi të fshini çdo rresht të tretë. Pra, në formulën tuaj n është e barabartë me 3, dhe m është e barabartë me 1 (rreshti 2 minus 1):
=MOD(ROW() - 1, 3)
Nëse të dhënat tona filluan në rreshti 3, atëherë m do të ishte i barabartë me 2 (rreshti 3 minus 1) dhe kështu me radhë. Ky korrigjim është i nevojshëm për të numëruar në mënyrë sekuenciale rreshtat, duke filluar me numrin 1.
Ajo që bën formula është pjesëtimi i një numri rreshti relativ me 3 dhe kthimi i mbetur pas pjesëtimit. Në rastin tonë, ai jep zero për çdo rresht të tretë, sepse çdo numër i tretë pjesëtohet me 3 pa mbetje (3,6,9, etj.):
Dhe tani, ju kryeni hapat tashmë të njohur për të filtruar rreshtat "0":
- Zgjidhni çdo qelizë në tabelën tuaj dhe klikoni butonin Filter në Të dhënat
- Filtro kolonën Ndihmës për të shfaqur vetëm vlerat "0".
- Zgjidh të gjitha rreshtat e dukshme "0", kliko me të djathtën dhe zgjidh Fshi rreshtin nga menyja e kontekstit.
- Hiqni filtrin dhefshini kolonën Helper.
Në një mënyrë të ngjashme, mund të fshini çdo rresht të 4-të, të 5-të ose çdo rreshti tjetër të N-të në Excel.
Këshillë. Në rast se keni nevojë të hiqni rreshtat me të dhëna të parëndësishme, udhëzuesi i mëposhtëm do të jetë i dobishëm: Si të fshini rreshtat bazuar në vlerën e qelizës.
Ju falënderoj që lexoni dhe shpresoj t'ju shohim sërish në blogun tonë javën e ardhshme .