Si të fshini rreshtin duke përdorur VBA (14 mënyra)

  • Shperndaje Kete
Hugh West

Nëse po kërkoni disa nga mënyrat më të lehta për të fshirë rreshtin duke përdorur VBA , atëherë jeni në vendin e duhur.

Le të zhytemi në artikullin kryesor.

4> Shkarkoni Librin e Punës VBA Delete Row.xlsm

14 mënyra për të fshirë rreshtin duke përdorur VBA

Këtu, unë kam tre të dhënat tabela për të treguar mënyrat e fshirjes së rreshtave duke përdorur VBA . Tabela e parë përmban disa Produkte të një kompanie dhe Madhësitë , Çmimet e tyre.

E dyta njëri ka disa kode produkti dhe madhësitë e tyre të produktit dhe çmimet

dhe i fundit përmban disa Emrat e projekteve dhe Datat e fillimit dhe Kostot e tyre.

Për krijimin e artikullit, unë keni përdorur versionin Microsoft Excel 365 , mund të përdorni çdo version tjetër sipas lehtësisë suaj.

Metoda-1: Fshi një rresht të vetëm duke përdorur VBA

Le të themi se ju dëshironi të fshini rreshtin që përmban Produkti Këpucët 1, dhe për të fshirë këtë rresht të vetëm mund të ndiqni këtë metodë.

Hapi-01 :

➤Shko te Zhvilluesi Tab>> Visual Basic Opsioni

Më pas, Editori Visual Basic do të hapet.

➤Shko te Insert Tab>> Moduli Opsioni

Pas kësaj, do të krijohet një Modul .

Hapi-02 :

➤Shkruani fol kodi i uljes

8617

Këtu, "Single" ështëbashkim i vargjeve të shumta që korrespondojnë me qelizat që kanë datën 11/12/2021 , dhe më në fund, vargjet do të fshihen.

➤Shtypni F5

Rezultati :

Pas kësaj, ju do të fshini rreshtat që kanë një datë të caktuar 11/12/2021 .

Përmbajtje të ngjashme: Excel VBA për të fshirë rreshtat me të dhëna specifike (9 shembuj)

Praktikoni Seksioni

Për të bërë praktikë vetë, ne kemi ofruar një seksion Praktika si më poshtë në një fletë të quajtur Praktika . Ju lutemi bëjeni vetë.

Përfundim

Në këtë artikull, u përpoqa të mbuloj mënyrat më të lehta për të përdorur VBA në mënyrë efektive për duke fshirë rreshtat. Shpresoj se do ta gjeni të dobishme. Nëse keni ndonjë sugjerim ose pyetje, mos ngurroni t'i ndani ato në seksionin e komenteve.

emri i fletës së punës dhe Rreshtat(7) do të zgjedhin numrin e rreshtit.

.EntireRow.Delete do të fshijë të gjithë rreshtin 7.

➤Shtypni F5

Rezultati :

Në këtë mënyrë, ju do të fshini rreshtin që përmban Produkti emri Këpucët 1 .

Lexo më shumë: Si të fshish rreshtat në Excel: 7 Metodat

Metoda-2: Fshini shumë rreshta duke përdorur VBA

Nëse dëshironi të fshini shumë rreshta si rreshtat që përmbajnë Produktet emrat Shoe1 , Shoe2, dhe Shoe3 , atëherë mund të ndiqni këtë kod VBA .

Hapi-01 :

➤Ndiq Hapin-01 Metodës-1

1626

Këtu, numrat e rreshtit 13, 10 , dhe 7 do të fshihen dhe me shkrim në mënyrë serike numrat e rreshtit duhet të shkruani nga numri i rreshtit të fundit në numrin e rreshtit të parë si ky kod.

Përndryshe, pasi të keni fshirë rreshtin e parë si rreshti 7, pjesa e mbetur rreshtat poshtë këtij rreshti do të lëvizin një rresht lart dhe kështu rreshti 10 do të jetë rreshti 9 dhe rreshti 13 do të jetë rreshti 12. Për këtë re përndryshe, nuk do të jeni në gjendje të fshini rreshtat e duhur.

➤Shtypni F5

Rezultati :

Më pas, do të fshini rreshtat që përmbajnë emrat Produkti Këpucët 1 , Këpucët2, dhe Këpucët3 .

Lexo më shumë: Si të fshish shumë rreshta në Excel (3 metoda)

Metoda-3 : Fshirja e një rreshti duke zgjedhur

Këtu, unë do të tregoj mënyrën për të fshirë një rreshtnë lidhje me një qelizë aktive të atij rreshti.

Hapi-01 :

➤Ndiq Hapin-01 nga Metoda-1

9511

Do të fshijë rreshtin që ka një qelizë aktive.

➤Ruaj kodin.

Hapi-02 :

➤Zgjidhni çdo qelizë të një rreshti që dëshironi të fshini ( Këtu kam zgjedhur qelizën B7 )

➤Shko te Zhvilluesi Tab>> Macros Opsioni

Pas kësaj, Makro Magjistari do të hapet.

➤Zgjidhni Emrin makro dltrow3 dhe shtypni Run

Rezultati :

Më pas, do të fshini rreshtin që përmban emrin Produkti Këpucët 1 .

Metoda-4: Fshirja e të gjitha rreshtave në përzgjedhje

Për të fshirë të gjitha rreshtat e një përzgjedhjeje, mund të ndiqni këtë metodë.

Hapi-01 :

➤Ndiq Hapin-01 Metodës-1

9823

Ajo do të fshijë të gjitha rreshtat e përzgjedhjes.

➤Ruaj kodin.

Hapi-02 :

➤Zgjidhni gamën e rreshtave që dëshironi të fshini (Këtu, unë kam zgjedhur gamën B7:D9 )

➤Shko te Zhvilluesi Tab>> Macros Opsioni

Pas kësaj, do të hapet magjistari Makro .

➤Zgjidhni Emrin e makrosë dltrow4 dhe shtypni Run

Rezultati :

Më pas, do të fshini rreshtat që përmbajnë Emrat e produkteve Këpucët 1 , Xhaketa1, dhe Jacket2 .

Lexo më shumë: Si të fshish rreshtat e zgjedhur në Excel (8 qasje)

Metoda-5: Fshirja e një rreshti nëse ndonjë qelizë është bosh

Këtu, unë kam një qelizë bosh e cila është B9 (Kam hequr vlerën nga kjo qelizë për këtë metodë), dhe duke përdorur një kod VBA do të fshij rreshtin që ka B9 qelizë.

Hapi-01 :

➤Ndiq Hapin-01 Metodës-1

2138

Do të fshijë të gjitha rreshtat në intervalin “B5:D13” që ka ndonjë qelizë bosh.

➤Shtypni F5

Rezultati :

Pastaj, do të jeni në gjendje të fshini rreshtin që përmban qelizën bosh.

Lexo më shumë: Si të hiqni rreshtat bosh në Excel (11 metoda)

Metoda-6: Fshirja e një rreshti nëse i gjithë rreshti është bosh

Këtu, unë kam një qelizë boshe që është B9 (kam hequr vlerat për këtë metodë), dhe një rresht bosh që është Rreshti 12 (kam hequr vlerat për këtë metodë) dhe duke përdorur një kod VBA dhe Funksioni COUNTA Do ta fshij rreshtin që është bosh.

Hapi-01 :

➤Ndiq Hapin-01 e Metodës-1

8746

“B5:D13” është diapazoni i të dhënave dhe cikli FOR do të funksionojë për çdo qelizë në ky varg.

CountA(cell.EntireRow) do të kthejë numrin e qelizave jo bosh dhe kur të bëhet 0, atëherë rreshti do të fshihet.

➤Shtypni F5

Rezultati :

Pas kësaj, do të jeni në gjendje të fshini rreshtin bosh, por ai nuk do të fshijë asnjë rresht që nuk i ka të gjitha qelizat e këtij rreshti bosh.

Lexo më shumë: Si të përdorim VBA për të fshirë rreshtat bosh në Excel

Metoda-7: Fshirja e çdo rreshti të nëntë

Mund të fshini çdo rresht të nëntë (në këtë rast çdo rresht të 3-të) duke ndjekur këtë metodë.

Hapi-01 :

➤Ndiq Hapin-01 Metodës-1

5215

“B5 :D13” është diapazoni i të dhënave dhe rc do të kthejë numrin total të rreshtit të këtij diapazoni që është 9 .

Këtu, FOR loop do të fillojë nga rreshti i fundit që është rc ose 9 në këtë rast dhe përfundon me rreshtin e parë.

Hapi -3 do të ndihmojë për të fshirë çdo rresht 3 në këtë diapazon.

➤Shtypni F5

Rezultati :

Më pas, ju do të fshini rreshtat që përmbajnë emrat Produkti Këpucët 1 , Këpucët2, dhe Shoe3 .

Lexo më shumë: Si të fshish çdo të nëntë R ow në Excel (6 mënyrat më të lehta)

Lexime të ngjashme:

  • Si të fshini rreshtat e zgjedhur me Excel VBA (Një hap- Udhëzues hap pas hapi)
  • Fshi rreshtat e papërdorura në Excel (8 mënyra të thjeshta)
  • Si të fshini rreshtat e fshehur në Excel (3 metoda)
  • Fshini rreshtat e pafund në Excel (5 mënyra të thjeshta)
  • Si të fshini rreshtat në Excel që vazhdojnë përgjithmonë (4 të lehtaMënyrat)

Metoda-8: Fshirja e rreshtit bazuar në vlerën e qelizës

Në këtë metodë, unë do të fshij rreshtin që ka një vlerë specifike Këmisha 2 .

Hapi-01 :

➤Ndiq Hapin-01 Metodës- 1

2605

“B5:D13” është diapazoni i të dhënave dhe cikli FOR do të funksionojë për çdo qelizë në këtë varg.

Nëse ndonjë qelizë e një rreshti përmban vlerën “Këmishë 2” atëherë rreshti do të fshihet.

➤Shtypni F5

Rezultati :

Në këtë mënyrë, ju do të fshini rreshtin që përmban emrin Produkti Këmisha 2 .

Lexo më shumë: Makro VBA për të fshirë rreshtin nëse qeliza përmban vlerë në Excel (2 metoda)

Metoda-9: Fshirja e rreshtave të dyfishta

Këtu, unë kam dy rreshta që kanë një Kodin e produktit 97375 dhe kështu dua të fshij një nga këto rreshta që janë shënuar nga një kuti të kuqe më poshtë.

Hapi-01 :

➤Ndiq Hapin-01 nga Metoda-1

5487

Këtu, “B5:D13” është diapazoni i të dhënave dhe Kolonat:=1 me dhe do të kërkojë vlera të kopjuara vetëm në një kolonë që është kolona fillestare Kollona B por nëse dëshironi të kërkoni edhe në kolona të tjera, mund ta përdorni këtë numër sipas nevojave tuaja.

➤Shtypni F5

Rezultati :

Më pas, do të jeni në gjendje të fshini rreshtin që është i ngjashëm me një rresht tjetër.

Lexo më shumë: Si të fshish rreshtat e kopjuar nëExcel me VBA (8 mënyra efektive)

Metoda-10: Fshirja e rreshtave në një tabelë

Supozoni, ju keni tabelën e mëposhtme emri i së cilës është Tabela1 dhe tani dëshironi të fshini  Rreshtin numër 6 të kësaj tabele. Për ta bërë këtë, mund të ndiqni këtë metodë.

Hapi-01 :

➤Ndiqni Hapin-01 of Metoda-1

8170

Këtu, "Tabela" është emri i fletës, "Tabela1" është emri i tabelës dhe 6 është numri i rreshtit të kësaj tabele që dëshironi të fshini.

➤Shtypni F5

Rezultati :

Në këtë mënyrë, ju do të fshini rreshtin tuaj të dëshiruar të kësaj tabele.

Lexo më shumë: Si të hiqni rreshtat e kopjuar bazuar në një kolonë duke përdorur Excel VBA

Metoda-11: Fshirja e rreshtave të dukshëm pas filtrimit

Këtu, unë kam një tabelë të dhënash që filtrohet nga kolona Çmimi për vlera më shumë se 1500,00$ dhe dua të fshij të gjitha rreshtat e dukshme pas filtrimit.

Hapi-01 :

➤Ndiq Hapin-01 Metodës-1

1204

Këtu, “B5: D13” është diapazoni i të dhënave.

➤Shtypni F5

Tani, të gjitha rreshtat e dukshëm pas filtrimit do të të fshihet. Tani mund t'i ktheni rreshtat e fshehur duke zgjedhur shenjën Filter në kolonën Çmimi .

➤Klikoni në Zgjidhni të gjitha opsionin

➤Shtypni OK

Rezultati :

Më në fund, do t'i ktheni përsëri rreshtat e fshehurtabelën e të dhënave.

Lexo më shumë: Si të filtrosh dhe fshish rreshtat me VBA në Excel (2 metoda)

Metoda-12: Fshirja e rreshtit bazuar në qelizën e fundit aktive

Këtu, qeliza ime e fundit aktive është qeliza B13 dhe unë dua ta fshij këtë që ka qelizën e fundit aktive të mëposhtme tabela e të dhënave.

Hapi-01 :

➤Ndiq Hapin-01 të metodës -1

4321

Këtu, 2 do të thotë Kollona B në të cilën kam qelizën time aktive, ju mund ta ndryshoni numrin sipas nevojave tuaja.

➤Shtypni F5

Rezultati :

Në këtë mënyrë, ju do të fshini rreshti i fundit aktiv.

Lexo më shumë: Kodi Excel VBA për të fshirë rreshtat bazuar në vlerën e shumëfishtë të qelizave (3 kritere)

Metoda-13: Fshirja e rreshtave që kanë ndonjë varg

Supozoni se dëshironi të fshini rreshtat që kanë ndonjë varg dhe për ta bërë këtë mund të ndiqni këtë metodë.

Hapi-01 :

➤Ndiq Hapin-01 Metodës-1

6032

Këtu, “string” është emri i fletës, numri i rreshtit të parë të këtij diapazoni të të dhënave është 5 dhe numri i kolonës fillestare është 2

Deklarata With ju lejon të specifikoni një objekt ose shkruani një herë të përcaktuar nga përdoruesi për një seri të tërë deklaratash.

On Error Resume Next deklarata specifikon që, kur ndodh një gabim në kohën e ekzekutimit, kontrolli shkon në deklaratën pas deklaratës ku ndodh gabimi.

Rreshti i fundit dhe LastColumn kthejnë rreshtin dhe kolonën e fundit të gamës së të dhënave.

SpecialCells(xlCellTypeConstants, xlTextValues) do të zgjedhin rreshtat që kanë çdo vlerë teksti në diapazoni.

➤Shtypni F5

Rezultati :

Më pas, do të fshini rreshtat që kanë ndonjë varg teksti.

Lexo më shumë: Shkurtorja e Excel për të fshirë rreshtat (me teknika bonusi)

Metoda-14: Fshirja e rreshtit bazuar në data

Këtu, unë do të fshij rreshtat që kanë një datë të veçantë 11/12/2021 (mm/dd/vvvv) në këtë metodë duke përdorur funksionin DATEVALUE .

Hapi-01 :

➤Ndiq Hapin- 01 nga Metoda-1

9582

Këtu, "Data" është emri i fletës, numri i rreshtit të parë të këtij diapazoni të të dhënave është 5 dhe numri i kolonës së kritereve (e cila kolonë ka data) është 3 .

Deklarata With ju lejon të specifikoni një objekt ose lloj të përcaktuar nga përdoruesi një herë për një seri të tërë deklaratash.

On Error Resume Next Deklarata specifikon se, kur ndodh një gabim në kohën e ekzekutimit, kontrolli shkon në deklaratën pas deklaratës ku ndodh gabimi.

LastRow kthen rreshtin e fundit të diapazonit të të dhënave dhe këtu, FOR cikli do të fillojë nga rreshti i fundit që është Rreshti i fundit ose 6 në këtë rast dhe përfundon me rreshtin e parë.

DATEVALUE do të konvertojë datën e tekstit në vlerë.

Këtu, Union do të kthejë

Hugh West është një trajner dhe analist me përvojë të lartë në Excel me mbi 10 vjet përvojë në industri. Ai ka një diplomë Bachelor në Kontabilitet dhe Financë dhe një Master në Administrim Biznesi. Hugh ka një pasion për mësimdhënien dhe ka zhvilluar një qasje unike të mësimdhënies që është e lehtë për t'u ndjekur dhe kuptuar. Njohuritë e tij eksperte të Excel-it kanë ndihmuar mijëra studentë dhe profesionistë në mbarë botën të përmirësojnë aftësitë e tyre dhe të shkëlqejnë në karrierën e tyre. Nëpërmjet blogut të tij, Hugh ndan njohuritë e tij me botën, duke ofruar mësime falas në Excel dhe trajnime në internet për të ndihmuar individët dhe bizneset të arrijnë potencialin e tyre të plotë.