Ef þú ert að leita að einhverjum af auðveldustu leiðunum til að eyða línu með VBA , þá ertu á réttum stað.

Við skulum kafa ofan í aðalgreinina.

Sækja vinnubók

14 leiðir til að eyða línu með VBA

Hér hef ég þrjú gögn töflur til að sýna leiðir til að eyða línum með VBA . Fyrsta taflan inniheldur nokkrar vörur fyrirtækja og stærðir þeirra , verð .

Síðan einn hefur nokkra vörukóða og samsvarandi vörustærðir og verð

Og sá síðasti inniheldur nokkur Verkefnanöfn og viðkomandi upphafsdagsetningar og Kostnaður .

Til að búa til greinina, hafa notað Microsoft Excel 365 útgáfuna geturðu notað hvaða aðrar útgáfur sem þér hentar.

Aðferð-1: Eyða einni röð með VBA

Við skulum segja að þú viltu eyða línunni sem inniheldur Vöru Skó 1, og til að eyða þessari einu línu geturðu fylgt þessari aðferð.

Skref-01 :

➤Farðu í Hönnuði Flipa>> Visual Basic Valkostur

Þá opnast Visual Basic Editor .

➤Farðu í Setja inn Tab>> Module Option

Eftir það verður Eining búin til.

Step-02 :

➤Skrifaðu eftirfarandi lágkóðinn

9158

Hér er „Single“ sameiningu margra sviða sem samsvara hólfunum sem hafa dagsetninguna 11/12/2021 og að lokum verður sviðunum eytt.

➤Ýttu á F5

Niðurstaða :

Eftir það muntu eyða línum sem hafa ákveðna dagsetningu 11/12/2021 .

Tengt efni: Excel VBA til að eyða línum með sérstökum gögnum (9 dæmi)

Æfing Hluti

Til að æfa sjálfur höfum við veitt æfingar hluta eins og hér að neðan í blaði sem heitir Æfing . Vinsamlegast gerðu það sjálfur.

Niðurstaða

Í þessari grein reyndi ég að fjalla um auðveldustu leiðirnar til að nota VBA á áhrifaríkan hátt fyrir að eyða línum. Vona að þér finnist það gagnlegt. Ef þú hefur einhverjar uppástungur eða spurningar skaltu ekki hika við að deila þeim í athugasemdahlutanum.

.EntireRow.Delete mun eyða allri línu 7.

➤Ýttu á F5

Niðurstaða :

Þannig muntu eyða línunni sem inniheldur Vöru nafn Skó 1 .

Lesa meira: Hvernig á að eyða línum í Excel: 7 Aðferðir

Aðferð-2: Eyða mörgum línum með VBA

Ef þú vilt eyða mörgum línum eins og þeim línum sem innihalda Vöru nöfn Skó1 , Shoe2, og Shoe3 , þá geturðu fylgt þessum VBA kóða.

Skref-01 :

➤Fylgdu Skref-01 af aðferð-1

5449

Hér, línunúmer 13, 10 , og 7 verður eytt og skriflega raðnúmerin sem þú þarft að skrifa frá síðustu línunúmeri í fyrstu línunúmer eins og þennan kóða.

Annars, eftir að hafa eytt fyrstu línu eins og Röð 7, þá sem eftir eru raðir fyrir neðan þessa röð munu færast eina röð upp og þar með verður röð 10 röð 9 og röð 13 verður röð 12. Fyrir þetta umr. Ason, þú munt ekki geta eytt réttum línum.

➤Ýttu á F5

Niðurstaða :

Þá muntu eyða línum sem innihalda Vöru nöfnin Skó 1 , Skó2, og Skó3 .

Lesa meira: Hvernig á að eyða mörgum línum í Excel (3 aðferðir)

Aðferð-3 : Eyða línu með því að velja

Hér mun ég sýna leiðina til að eyða línumeð tilliti til virks hólfs í þeirri röð.

Step-01 :

➤Fylgdu Step-01 af Aðferð-1

7757

Það mun eyða línunni sem hefur virkan reit.

➤Vista kóðann.

Skref-02 :

➤Veldu hvaða reit sem er í röð sem þú vilt eyða (Hér hef ég valið reit B7 )

➤Farðu í Hönnuði Flipa>> Fjölvur Valkostur

Eftir það er Macro Wizard opnast.

➤Veldu Macro nafnið dltrow3 og ýttu á Run

Niðurstaða :

Síðar muntu eyða línunni sem inniheldur Vöru nafnið Skó 1 .

Aðferð-4: Eyða öllum línum í valinu

Til að eyða öllum línum úr vali er hægt að fylgja þessari aðferð.

Skref-01 :

➤Fylgdu Skref-01 af Aðferð-1

3705

Það mun eyða öllum línum valsins.

➤Vista kóðann.

Step-02 :

➤Veldu línurnar sem þú vilt eyða (Hér hef ég valið svið B7:D9 )

➤Farðu í Hönnuði flipa>> fjölva valkostur

Eftir það mun Macro Wizard opnast.

➤Veldu Macro heiti dltrow4 og ýttu á Run

Niðurstaða :

Þá muntu eyða línunum sem innihalda Vöru heiti Skó 1 , Jakka1, og Jacket2 .

Lesa meira: Hvernig á að eyða völdum línum í Excel(8 aðferðir)

Aðferð-5: Að eyða línu ef einhver hólf er tóm

Hér er ég með tóman reit sem er B9 (Ég hef fjarlægt gildið úr þessum reit fyrir þetta aðferð), og með VBA kóða mun ég eyða línunni með B9 hólfi.

Step-01 :

➤Fylgdu Skref-01 af Aðferð-1

2518

Það mun eyða öllum línum á bilinu “B5:D13” er með auðan reit.

➤Ýttu á F5

Niðurstaða :

Þá muntu geta eytt línunni sem inniheldur auða reitinn.

Lesa meira: Hvernig á að fjarlægja tómar línur í Excel (11 aðferðir)

Aðferð-6: Röð eytt Ef öll röðin er tóm

Hér er ég með tóman reit sem er B9 (Ég hef fjarlægt gildin fyrir þessa aðferð), og tóma röð sem er Röð 12 (ég hef fjarlægt gildin fyrir þessa aðferð), og með VBA kóða og COUNTA fall Ég mun eyða línunni sem er tóm.

Step-01 :

➤Fylgdu Step-01 af Aðferð-1

4854

“B5:D13” er gagnasviðið og FOR lykkja mun virka fyrir hverja frumu í þetta svið.

CountA(cell.EntireRow) skilar fjölda hólfa sem ekki eru auðir og þegar það verður 0 þá verður röðinni eytt.

➤Ýttu á F5

Niðurstaða :

Eftir það muntu geta eytt tómu línunni en hún mun ekki eyða neinni línu sem hefur ekki alla hólfin í þessari röð tóm.

Lesa meira: Hvernig á að nota VBA til að eyða tómum línum í Excel

Aðferð-7: Eyða hverri n. röð

Þú getur eytt hverri n. röð (í þessu tilviki 3. hverri röð) með því að fylgja þessari aðferð.

Skref-01 :

➤Fylgdu Skref-01 af aðferð-1

5051

“B5 :D13” er gagnasviðið og rc mun skila heildarlínunúmeri þessa sviðs sem er 9 .

Hér er FOR lykkja byrjar á síðustu línu sem er rc eða 9 í þessu tilfelli og endar með fyrstu línu.

Skref -3 hjálpar til við að eyða hverri þriðju línu á þessu sviði.

➤Ýttu á F5

Niðurstaða :

Þá eyðirðu línunum sem innihalda Vöru nöfnin Skó 1 , Skó2, og Skó3 .

Lesa meira: Hvernig á að eyða hverjum nth R ow í Excel (auðveldustu 6 leiðirnar)

Svipuð lestur:

• Hvernig á að eyða völdum línum með Excel VBA (skref- skrefaleiðbeiningar)
• Eyða ónotuðum línum í Excel (8 auðveldar leiðir)
• Hvernig á að eyða földum línum í Excel (3 aðferðir)
• Eyða óendanlegum línum í Excel (5 auðveldar leiðir)
• Hvernig á að eyða línum í Excel sem halda áfram að eilífu (4 auðveltLeiðir)

Aðferð-8: Eyða línu byggt á klefigildi

Í þessari aðferð mun ég eyða línunni sem hefur ákveðið gildi skyrta 2 .

Skref-01 :

➤Fylgdu Skref-01 af aðferð- 1

1654

“B5:D13” er gagnasviðið og FOR lykkjan mun virka fyrir hverja reit á þessu sviði.

Ef einhver hólf í röð inniheldur gildið “Shirt 2“ þá verður röðinni eytt.

➤Ýttu á F5

Niðurstaða :

Þannig muntu eyða línunni sem inniheldur Vöru nafnið Skyrta 2 .

Lesa meira: VBA Macro til að eyða línu ef klefi inniheldur gildi í Excel (2 aðferðir)

Aðferð-9: Eyða tvíteknum línum

Hér er ég með tvær línur með vörukóða 97375 og því vil ég eyða einni af þessum línum sem eru merktar með rauður kassi fyrir neðan.

Skref-01 :

➤Fylgdu Skref-01 af Aðferð-1

7284

Hér, “B5:D13” er gagnasviðið og dálkar:=1 ég og það mun leita að tvíteknum gildum aðeins í einum dálki sem er upphafsdálkurinn Dálkur B en ef þú vilt leita í öðrum dálkum líka geturðu notað þetta númer eftir þínum þörfum.

➤Ýttu á F5

Niðurstaða :

Þá muntu geta eytt línunni sem er svipað og í annarri röð.

Lesa meira: Hvernig á að eyða tvíteknum línum íExcel með VBA (8 áhrifaríkar leiðir)

Aðferð-10: Eyða línum í töflu

Segjum að þú sért með eftirfarandi töflu sem heitir Tafla1 og nú viltu eyða línu númer 6 í þessari töflu. Til að gera þetta er hægt að fylgja þessari aðferð.

Step-01 :

➤Fylgdu Step-01 af Aðferð-1

7685

Hér er “Tafla” heiti blaðsins, “Tafla1” er töfluheitið og 6 er línunúmer þessarar töflu sem þú vilt eyða.

➤Ýttu á F5

Niðurstaða :

Þannig muntu eyða þeirri röð sem þú vilt af þessari töflu.

Lesa meira: Hvernig á að fjarlægja tvíteknar línur byggðar á einum dálki með því að nota Excel VBA

Aðferð-11: Eyða sýnilegum línum eftir síun

Hér er ég með gagnatöflu sem er síuð af Verð dálknum fyrir gildi sem eru meira en $1.500,00 og ég vil eyða öllum sýnilegum línum eftir síun.

Skref-01 :

➤Fylgdu Skref-01 af aðferð-1

9433

Hér, “B5: D13” er gagnasviðið.

➤Ýttu á F5

Nú munu allar sýnilegu línurnar eftir síun verði eytt. Þú getur nú endurheimt faldar línur með því að velja Sía merkið í Verð dálknum.

➤Smelltu á Veldu allt valkostinn

➤Ýttu á Í lagi

Niðurstaða :

Að lokum færðu faldu línurnar aftur inngagnatöfluna.

Lesa meira: Hvernig á að sía og eyða línum með VBA í Excel (2 aðferðir)

Aðferð-12: Eyða línu byggt á síðasta virka hólfinu

Hér er síðasta virka reiturinn minn hólf B13 og ég vil eyða því með síðasta virka hólfinu af eftirfarandi gagnatafla.

Step-01 :

➤Fylgdu Skref-01 af aðferð -1

4492

Hér þýðir 2 Dálkur B sem ég er með virka klefann minn á, þú getur breytt númerinu eftir þínum þörfum.

➤Ýttu á F5

Niðurstaða :

Þannig muntu eyða síðasta virka röð.

Lesa meira: Excel VBA kóða til að eyða línum byggt á gildi margra reita (3 skilyrði)

Aðferð-13: Eyða línum með hvaða strengi sem er

Gera ráð fyrir að þú viljir eyða línum sem hafa hvaða streng sem er og til að gera þetta geturðu fylgt þessari aðferð.

Skref-01 :

➤Fylgdu Skref-01 af aðferð-1

6147

Hér er “strengur” heiti blaðsins, fyrsta röð númer þessa gagnasviðs er 5 og upphafsdálknúmerið er 2

Staðan With gerir þér kleift að tilgreina hlut eða notandaskilgreind tegund einu sinni fyrir heila röð fullyrðinga.

Á villu halda áfram Næsta staðhæfing tilgreinir að þegar keyrsluvilla kemur upp fer stjórnin í setninguna á eftir setningunni þar sem villan kemur upp.

Last Row og LastColumn skila síðustu línu og dálki gagnasviðsins.

SpecialCells(xlCellTypeConstants, xlTextValues) velja línurnar með hvaða textagildi sem er í svið.

➤Ýttu á F5

Niðurstaða :

Síðan muntu eyða línum með hvaða textastreng sem er.

Lesa meira: Excel flýtileið til að eyða línum (með bónustækni)

Aðferð-14: Eyði línu byggt á dagsetningum

Hér mun ég eyða línum sem hafa sérstaka dagsetningu 11/12/2021 (mm/dd/áááá) í þessu aðferð sem notar DATEVALUE fallið .

Step-01 :

➤Fylgdu Step- 01 af Aðferð-1

5403

Hér er “Date” heiti blaðsins, fyrsta röð númer þessa gagnasviðs er 5 og viðmiðunardálkurinn (sem dálkurinn hefur dagsetningar) númerið er 3 .

Staðan Með gerir þér kleift að tilgreina hlut eða notandaskilgreinda gerð einu sinni fyrir heila röð af fullyrðingum.

Á villu halda áfram Næsta yfirlýsingin tilgreinir að, þegar keyrsluvilla kemur upp fer stjórnin í setninguna á eftir setningunni þar sem villan á sér stað.

LastRow skilar síðustu línu gagnasviðsins og hér er FOR lykkja byrjar á síðustu línu sem er LastRow eða 6 í þessu tilfelli og endar á fyrstu línu.

DATEVALUE breytir textadagsetningu í gildi.

Hér mun Union skila