Բովանդակություն
Եթե դուք փնտրում եք VBA -ի միջոցով տող ջնջելու ամենահեշտ ուղիները, ապա դուք ճիշտ տեղում եք:
Եկեք խորանանք հիմնական հոդվածի մեջ:
Ներբեռնեք աշխատանքային գրքույկը
VBA Delete Row.xlsm
14 եղանակներ ջնջել տողը VBA-ի միջոցով
Ահա, ես ունեմ երեք տվյալներ աղյուսակներ՝ VBA -ի միջոցով տողերի ջնջման եղանակները ցույց տալու համար: Առաջին աղյուսակը պարունակում է ընկերության որոշ ապրանքներ և դրանց Չափերը , Գները :
Երկրորդը մեկն ունի որոշ Ապրանքի կոդեր և դրանց համապատասխան Ապրանքի չափերը և գները
Եվ վերջինը պարունակում է որոշ Ծրագրի անուններ և դրանց համապատասխան Սկսման ամսաթվերը և Ծախսերը :
Հոդվածը ստեղծելու համար ես օգտագործել եք Microsoft Excel 365 տարբերակը, կարող եք օգտագործել ցանկացած այլ տարբերակ՝ ըստ ձեր հարմարության:
Մեթոդ-1. Ջնջել մեկ տող օգտագործելով VBA
Ենթադրենք, դուք ցանկանում եք ջնջել Ապրանքը Կոշիկ 1, պարունակող տողը և այս մեկ տողը ջնջելու համար կարող եք հետևել այս մեթոդին:
Քայլ-01 :
➤Գնացեք Մշակող Tab>> Visual Basic Ընտրանք
Այնուհետև Visual Basic խմբագրիչը կբացվի:
➤Գնացեք Տեղադրեք Tab>> Մոդուլը Ընտրանք
Դրանից հետո կստեղծվի Մոդուլ :
Քայլ-02 :
➤Գրե՛ք ֆոլ ցածր կոդը
3535
Ահա, «Single» 11/12/2021 ամսաթիվ ունեցող բջիջներին համապատասխան մի քանի միջակայքերի միավորում, և վերջապես միջակայքերը կջնջվեն:
➤Սեղմեք F5
Արդյունք :
Դրանից հետո դուք կջնջեք որոշակի ամսաթիվ ունեցող տողերը 11/12/2021 .
Առնչվող բովանդակություն. Excel VBA հատուկ տվյալների հետ տողերը ջնջելու համար (9 օրինակ)
Պրակտիկա Բաժին
Ինքներդ պրակտիկա անելու համար մենք տրամադրել ենք Պրակտիկա բաժինը, ինչպես ստորև` Պրակտիկա անունով թերթիկում: Խնդրում ենք դա անել ինքներդ:
Եզրակացություն
Այս հոդվածում ես փորձեցի լուսաբանել VBA արդյունավետ օգտագործման ամենադյուրին ուղիները: տողերի ջնջում. Հուսով եմ, որ այն օգտակար կգտնեք: Եթե ունեք առաջարկներ կամ հարցեր, կարող եք կիսվել դրանք մեկնաբանությունների բաժնում:
աշխատաթերթի անունը, և Rows(7)կընտրեն տողի համարը:.EntireRow.Delete կջնջի ամբողջ 7-րդ տողը:
➤Սեղմեք F5
Արդյունք :
Այս կերպ դուք կջնջեք <1 պարունակող տողը>Ապրանքի անունը Կոշիկ 1 :
Կարդալ ավելին. Ինչպես ջնջել տողերը Excel-ում. 7 Մեթոդներ
Մեթոդ-2. Ջնջել բազմաթիվ տողեր VBA-ի միջոցով
Եթե ցանկանում եք ջնջել բազմաթիվ տողեր, ինչպիսիք են Ապրանքի անունները Կոշիկ1<պարունակող տողերը: 9>, Shoe2, և Shoe3 , ապա կարող եք հետևել այս VBA կոդին:
Քայլ-01 :
➤Հետևեք Քայլ-01 Մեթոդ-1-ից
3284
Ահա, 13, 10 տողերի համարները , իսկ 7-ը կջնջվի, և հաջորդական գրելով տողի համարները պետք է գրեք վերջին շարքի համարից մինչև առաջին շարքի համարը, ինչպես այս կոդը:
Հակառակ դեպքում, 7-րդ տողի նման առաջին տողը ջնջելուց հետո մնացածը Այս տողից ներքև գտնվող տողերը կտեղափոխվեն մեկ տող վերև, և այդպիսով 10-րդ տողը կլինի 9-րդ, իսկ 13-րդ տողը՝ 12-րդ: այլապես, դուք չեք կարողանա ջնջել ճիշտ տողերը:
➤Սեղմեք F5
Արդյունք :
Այնուհետև դուք կջնջեք Ապրանքի անունները պարունակող տողերը Կոշիկ 1 , Կոշիկ2, և Կոշիկ3 :
Կարդալ ավելին. Ինչպես ջնջել բազմաթիվ տողեր Excel-ում (3 մեթոդ)
Մեթոդ-3 Տող ջնջելով՝ ընտրելով
Այստեղ ես ցույց կտամ տող ջնջելու ճանապարհըայդ շարքի ակտիվ բջիջի նկատմամբ:
Քայլ-01 :
➤Հետևեք Քայլ-01 Մեթոդ-1-ից
5600
Այն կջնջի ակտիվ բջիջ ունեցող տողը:
➤Պահպանեք կոդը:
Քայլ-02 :
➤Ընտրեք տողի ցանկացած բջիջ, որը ցանկանում եք ջնջել ( Այստեղ ես ընտրել եմ B7 բջիջը)
➤Գնացեք Developer Tab>> Macros Option
Դրանից հետո Macro Wizard-ը կբացվի:
➤Ընտրեք Մակրո անունը dltrow3 և սեղմեք Գործարկել
Արդյունք :
Այնուհետև դուք կջնջեք Ապրանքի անունը պարունակող տողը Կոշիկ 1 :
Մեթոդ-4. Ընտրության բոլոր տողերի ջնջում
Ընտրության բոլոր տողերը ջնջելու համար կարող եք հետևել այս մեթոդին:
Քայլ-01 :
➤Հետևեք Քայլ-01 Մեթոդ-1
7264
Այն կջնջի ընտրվածի բոլոր տողերը:
➤Պահպանեք կոդը:
Քայլ-02 :
➤Ընտրեք տողերի շրջանակը, որը ցանկանում եք ջնջել (Այստեղ, ես ընտրել եմ միջակայքը B7:D9 )
➤Անցնել Developer Tab>> Macros Option
Դրանից հետո Macro Wizard-ը կբացվի:
➤Ընտրեք Մակրո անունը dltrow4 և սեղմեք Գործարկել
Արդյունք :
Այնուհետև կջնջեք պարունակող տողերը Ապրանքի անվանումները Կոշիկ 1 , Բաճկոն1, և Jacket2 .
Կարդալ ավելին. Ինչպես ջնջել ընտրված տողերը Excel-ում (8 մոտեցում)
Մեթոդ-5. Ջնջել տողը, եթե որևէ բջիջ դատարկ է
Այստեղ ես ունեմ դատարկ բջիջ, որը B9 է (ես դրա համար հանել եմ արժեքը այս բջիջից մեթոդ), և օգտագործելով VBA կոդը ես կջնջեմ B9 բջիջ ունեցող տողը:
Քայլ-01: :
➤Հետևեք Քայլ-01 Մեթոդ-1-ից
5664
Այն կջնջի <1 տիրույթի բոլոր տողերը>«B5:D13» ունի որևէ դատարկ բջիջ:
➤Սեղմեք F5
Արդյունք :
Այնուհետև դուք կկարողանաք ջնջել դատարկ բջիջը պարունակող տողը:
Կարդալ ավելին` Ինչպես հեռացնել դատարկ տողերը Excel-ում (11 մեթոդ)
Մեթոդ-6. տող ջնջել, եթե ամբողջ տողը դատարկ է
Այստեղ ես ունեմ դատարկ բջիջ, որը <1 է:>B9 (ես հանել եմ այս մեթոդի արժեքները), և դատարկ տող, որը տող 12-ն է (ես հանել եմ այս մեթոդի արժեքները) և օգտագործելով VBA կոդը և COUNTA ֆունկցիա Ես կջնջեմ դատարկ տողը:
Քայլ-01 :
➤Հետևեք Քայլ-01-ին Մեթոդ-1-ից
6195
«B5:D13» տվյալների տիրույթն է, և FOR հանգույցը կաշխատի յուրաքանչյուր բջիջի համար այս միջակայքը:
CountA(cell.EntireRow) կվերադարձնի ոչ դատարկ բջիջների թիվը, և երբ այն դառնա 0, ապա տողը կջնջվի:
➤Սեղմել F5
Արդյունք :
Դրանից հետո դուք կկարողանաք ջնջել դատարկ տողը, բայց այն չի ջնջի ոչ մի տող, որը չունի բոլորը: այս տողի բջիջները դատարկ են:
Կարդալ ավելին. Ինչպես օգտագործել VBA-ն Excel-ում դատարկ տողերը ջնջելու համար
Մեթոդ-7. Ջնջել ամեն n-րդ տողը
Դուք կարող եք ջնջել յուրաքանչյուր n-րդ տողը (այս դեպքում յուրաքանչյուր 3-րդ տողը)՝ հետևելով այս մեթոդին:
Քայլ-01 :
➤Հետևեք Քայլ-01 Մեթոդ-1-ից
2930
«B5 :D13” տվյալների միջակայքն է և rc կվերադարձնի այս տիրույթի տողի ընդհանուր թիվը, որը 9 է:
Այստեղ FOR-ը հանգույցը կսկսվի վերջին տողից, որն այս դեպքում rc կամ 9 է և ավարտվում է առաջին տողով:
Քայլ -3 կօգնի ջնջել այս տիրույթի յուրաքանչյուր 3-րդ տողը:
➤Սեղմեք F5
Արդյունք :
Այնուհետև դուք կջնջեք Ապրանքի անունները պարունակող տողերը Կոշիկ 1 , Կոշիկ2, և <8:>Shoe3 .
Կարդալ ավելին. Ինչպես ջնջել ամեն n-րդ R ow Excel-ում (Ամենահեշտ 6 եղանակ)
Նման ընթերցումներ.
- Ինչպես ջնջել ընտրված տողերը Excel VBA-ով (Քայլ- քայլ առ քայլ ուղեցույց)
- Ջնջել չօգտագործված տողերը Excel-ում (8 հեշտ եղանակ)
- Ինչպես ջնջել թաքնված տողերը Excel-ում (3 մեթոդ)
- Ջնջել անսահման տողեր Excel-ում (5 հեշտ եղանակ)
- Ինչպես ջնջել տողեր Excel-ում, որոնք շարունակվում են ընդմիշտ (4 հեշտՃանապարհներ)
Մեթոդ-8. Տողի ջնջում` հիմնված բջջային արժեքի վրա
Այս մեթոդով ես կջնջեմ որոշակի արժեք ունեցող տողը Վերաշապիկ 2 .
Քայլ-01 :
➤Հետևեք Քայլ-01 մեթոդից- 1
1576
«B5:D13» տվյալների տիրույթն է, և FOR հանգույցը կաշխատի այս տիրույթի յուրաքանչյուր բջիջի համար:
Եթե տողի որևէ բջիջ պարունակում է «Shirt 2» արժեքը ապա տողը կջնջվի:
➤Սեղմեք F5<2:>
Արդյունք :
Այս կերպ դուք կջնջեք Ապրանքի անունը պարունակող տողը Շապիկ 2 ։
Կարդալ ավելին. VBA մակրո՝ տողը ջնջելու համար, եթե բջիջը արժեք է պարունակում Excel-ում (2 մեթոդ)
Մեթոդ-9. Կրկնվող տողերի ջնջում
Այստեղ ես ունեմ երկու տող, որոնք ունեն Ապրանքի կոդը 97375 , և ես ուզում եմ ջնջել այս տողերից մեկը, որոնք նշված են կարմիր տուփ ներքևում:
Քայլ-01 :
➤Հետևեք Քայլ-01 <1-ից>Մեթոդ-1
6144
Ահա, «B5:D13» տվյալների տիրույթն է և Սյունակներ`=1 me քանի որ այն կփնտրի կրկնօրինակ արժեքներ միայն մեկ սյունակում, որը մեկնարկային սյունակ է Սյունակ B բայց եթե ցանկանում եք որոնել նաև այլ սյունակներում, կարող եք օգտագործել այս թիվը ըստ ձեր կարիքների:
➤Սեղմեք F5
Արդյունք :
Այնուհետև դուք կկարողանաք ջնջել այն տողը, որը նման է մեկ այլ տողի:
Կարդալ ավելին. Ինչպես ջնջել կրկնօրինակ տողերըExcel-ը VBA-ով (8 արդյունավետ եղանակ)
Մեթոդ-10. Աղյուսակի տողերի ջնջում
Ենթադրենք, դուք ունեք հետևյալ աղյուսակը, որի անունն է Աղյուսակ1 և այժմ ցանկանում եք ջնջել այս աղյուսակի 6-րդ տողը: Դա անելու համար դուք կարող եք հետևել այս մեթոդին:
Քայլ-01 :
➤Հետևեք Քայլ-01-ին <2 Մեթոդ-1-ից
4685
Այստեղ «Աղյուսակ» թերթի անունն է, «Աղյուսակ1» աղյուսակի անվանումն է և 6 այս աղյուսակի տողի համարն է, որը ցանկանում եք ջնջել:
➤Սեղմեք F5
Արդյունք :
Այս կերպ դուք կջնջեք այս աղյուսակի ձեր ցանկալի տողը:
Կարդալ ավելին` Ինչպես հեռացնել կրկնօրինակ տողերը մեկ սյունակի վրա օգտագործելով Excel VBA
Մեթոդ-11. Ջնջել տեսանելի տողերը զտելուց հետո
Այստեղ ես ունեմ տվյալների աղյուսակ, որը զտված է ըստ Գին սյունակը $1,500.00-ից ավելի արժեքների համար և ես ուզում եմ ջնջել բոլոր տեսանելի տողերը զտելուց հետո:
Քայլ-01 :
➤Հետևեք Քայլ-01 Մեթոդ-1
8590
Այստեղ, «B5: D13" տվյալների միջակայքն է:
➤Սեղմեք F5
Այժմ, զտելուց հետո տեսանելի բոլոր տողերը կ ջնջվի։ Այժմ կարող եք ետ բերել թաքնված տողերը՝ ընտրելով Filter նշանը Price սյունակում:
➤Սեղմեք Ընտրեք բոլորը տարբերակը
➤Սեղմեք OK
Արդյունք :
Վերջապես, թաքնված տողերը կվերադարձնեքտվյալների աղյուսակը:
Կարդալ ավելին. Ինչպես զտել և ջնջել տողերը VBA-ով Excel-ում (2 մեթոդ)
Մեթոդ-12. Ջնջել տողը` հիմնված վերջին ակտիվ բջիջի վրա
Այստեղ իմ վերջին ակտիվ բջիջը B13 բջիջն է, և ես ուզում եմ ջնջել այն, որն ունի հետևյալ վերջին ակտիվ բջիջը: տվյալների աղյուսակ:
Քայլ-01 :
➤Հետևեք Քայլ-01 մեթոդից -1
1918
Այստեղ 2 նշանակում է Սյունակ B որի վրա ես ունեմ իմ ակտիվ բջիջը, դուք կարող եք փոխել թիվը ըստ ձեր կարիքների:
➤Սեղմեք F5
Արդյունք :
Այս կերպ դուք կջնջեք ձեր վերջին ակտիվ տողը:
Կարդալ ավելին. Excel VBA կոդ՝ բազմաթիվ բջջային արժեքի հիման վրա տողեր ջնջելու համար (3 չափանիշ)
Մեթոդ-13. Ցանկացած տող ունեցող տողերի ջնջում
Ենթադրենք, դուք ցանկանում եք ջնջել ցանկացած տող ունեցող տողերը, և դա անելու համար կարող եք հետևել այս մեթոդին:
Քայլ-01 :
➤Հետևեք Քայլ-01 Մեթոդ-1-ից
9955
Ահա, «string» թերթի անունն է, Այս տվյալների տիրույթի առաջին շարքի համարը 5 է, իսկ մեկնարկային սյունակի համարը 2
With հայտարարությունը թույլ է տալիս նշել օբյեկտ: կամ օգտագործողի կողմից սահմանված տիպը մեկ անգամ՝ մի ամբողջ շարք հայտարարությունների համար:
On Error Resume Next հայտարարությունը սահմանում է, որ երբ գործարկման ժամանակի սխալ է տեղի ունենում, կառավարումը անցնում է այն հայտարարությանը հաջորդող հայտարարությանը, որտեղ սխալը տեղի է ունենում:
LastRow և LastColumn վերադարձնում են տվյալների տիրույթի վերջին տողը և սյունակը:
SpecialCells(xlCellTypeConstants, xlTextValues) կընտրի տողերը, որոնք ունեն ցանկացած տեքստային արժեքներ: միջակայք:
➤Սեղմեք F5
Արդյունք :
Այնուհետև դուք ջնջեք ցանկացած տեքստային տող ունեցող տողերը:
Կարդալ ավելին. Excel-ի դյուրանցում` տողերը ջնջելու համար (բոնուսային տեխնիկայով)
Մեթոդ-14. Ջնջել տողը` հիմնված ամսաթվերի վրա
Այստեղ ես կջնջեմ այն տողերը, որոնք ունեն հատուկ ամսաթիվ 11/12/2021 (մմ/dd/yyyy) այս հատվածում: մեթոդ՝ օգտագործելով DATEVALUE ֆունկցիան :
Քայլ-01 :
➤Հետևեք Քայլ- 01 Մեթոդ-1-ից
1674
Այստեղ «Ամսաթիվը» թերթի անունն է, այս տվյալների տիրույթի առաջին շարքի համարը է: 5 իսկ չափանիշների սյունակի (որը սյունակում կան ամսաթվեր) համարը 3 է:
With հայտարարությունը թույլ է տալիս մեկ անգամ նշել օբյեկտը կամ օգտագործողի կողմից սահմանված տեսակը: հայտարարությունների մի ամբողջ շարքի համար:
On Error Resume Next հայտարարությունը սահմանում է, որ. երբ գործարկման ժամանակի սխալ է տեղի ունենում, կառավարումն անցնում է այն հայտարարությանը հաջորդող հայտարարությանը, որտեղ տեղի է ունեցել սխալը:
LastRow վերադարձնում է տվյալների տիրույթի վերջին տողը, իսկ այստեղ` FOR loop-ը կսկսվի վերջին տողից, որն այս դեպքում Last Row կամ 6 է, և ավարտվում է առաջին տողով:
DATEVALUE տեքստի ամսաթիվը կվերափոխի արժեքի:
Այստեղ Union կվերադարձնի
