Kako hitro izbrisati vsako drugo vrstico v Excelu?

Če želite v Excelu hitro izbrisati vsako drugo vrstico ali stolpec, je glavno, kako lahko najprej hitro izberete vsako drugo vrstico ali stolpec in nato zanje uporabite operacijo brisanja. Ta članek vam bo pokazal nekaj zapletenih stvari o tem, kako najprej izbrati vsako drugo vrstico ali stolpec in jih nato hitro izbrisati.

Izbrišite vsako drugo vrstico v Excelu z ukazom Filter

Izbrišite vsako drugo vrstico v Excelu s kodo VBA

Izbrišite vse druge vrstice ali stolpce v Excelu s programom Kutools for Excel

Izbrišite vsako drugo vrstico v Excelu z ukazom Filter

Microsoft Excel filter Ukaz vam lahko pomaga hitro filtrirati vsako drugo vrstico in jih nato hkrati izbrisati. Naredite naslednje:

1. V prazen stolpec poleg izvirnih podatkov vnesite 0,1,0,1…, 0,1. V tem primeru vnesemo številke v pomožni stolpec C. Oglejte si naslednji posnetek zaslona:

2. Izberite stolpec C in kliknite filter gumb pod datum zavihek. Nato kliknite puščico poleg C1 in preverite samo 0 pod Izberi vse možnost. Oglejte si posnetek zaslona:

3. Potem so skrite vse vrstice z 1. Izberite vidne vrstice z 0 in kliknite Domov > Brisanje > Izbriši vrstice listov če želite izbrisati te vrstice. Nato izbriše vsako drugo vrstico in kliknite filter znova, da prikažete samo vrstice s 1. Oglejte si posnetke zaslona:

4. Končno lahko po potrebi izbrišete pomožni stolpec C.

Izbrišite vsako drugo vrstico v Excelu s kodo VBA

Pravzaprav je tudi makro VBA dobra rešitev za rešitev te težave.

1. Drži dol druga + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduli Okno.

Koda VBA: izbrišite vsako drugo vrstico v izboru:

Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

3. Pritisnite F5 tipko za zagon tega makra. Nato se prikaže pogovorno okno za izbiro obsega. Oglejte si posnetek zaslona:

4. Nato kliknite OK, vsaka druga vrstica v izbranem obsegu iz druge vrstice se naenkrat izbriše, glejte posnetek zaslona:

Izbrišite vse druge vrstice ali stolpce v Excelu s programom Kutools for Excel

Za začetnega uporabnika Microsoft Excela je uporaba makra VBA nekoliko zapletena. The Izberite Intervalne vrstice in stolpci uporabnost Kutools za Excel vam lahko pomaga hitro izbrisati vsako drugo vrstico.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Izberite obseg, ki ga želite izbrisati v vseh drugih vrsticah, in nato uporabite ta pripomoček s klikom na Kutools > Izberite > Izberite Intervalne vrstice in stolpce ....

2. V Izberite Intervalne vrstice in stolpci v pogovornem oknu določite nastavitve, kot je prikazano na spodnji sliki zaslona, ​​in kliknite OK , da najprej izberete vse druge vrstice.

3. Nato se izbere in označi vsaka druga vrstica v izboru. Oglejte si posnetek zaslona:

4. Nato lahko izbrane vse druge vrstice hitro izbrišete s klikom na Domov > Brisanje > Izbriši vrstice listov da izbrišete vse te vrstice. Oglejte si posnetke zaslona:

S to funkcijo lahko po potrebi izbrišete tudi vsako n-to vrstico ali stolpec.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!