Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս ջնջել ամբողջ շարքը, եթե բջիջը զրո է պարունակում Excel- ում:

Երբեմն ուզում եք ջնջել ամբողջ տողը, եթե բջիջը զրո է պարունակում Excel- ում, և դրանք մեկ առ մեկ կարող եք ջնջել, եթե դրանցից մի քանիսը կան: Բայց ինչպե՞ս պետք է հանվեր զրո պարունակող հարյուրավոր շարքեր: Այն լուծելու համար կարող եք ընտրել ստորև ներկայացված բարդ եղանակներից մեկը:

Deleteնջել տողը, եթե բջիջը զրո է պարունակում զտիչ գործառույթով Excel- ում
Deleteնջել տողը, եթե բջիջը Excel- ում զրո է պարունակում VBA- ի հետ
Deleteնջել տողը, եթե բջիջը զրո է պարունակում Excel- ի համար Kutools- ի հետ


Deleteնջել տողը, եթե բջիջը զրո է պարունակում զտիչ գործառույթով Excel- ում

Դուք կարող եք օգտագործել Filter ֆունկցիան ՝ զտելու համար բոլոր շարքերը ՝ ելնելով որոշակի սյունակի զրոյական արժեքներից, և այնուհետև ջնջելու բոլոր տեսանելի շարքերը: Խնդրում եմ, արեք հետևյալ կերպ.

1. Ընտրեք սյունակի բջիջները, որոնք պարունակում են զրոյական արժեքներ, որոնց հիման վրա ցանկանում եք ջնջել ամբողջ շարքերը, ապա կտտացրեք Ամսաթիվ > ֆիլտր, Տեսեք,

2. Ապա ընտրված սյունակի առաջին բջիջում ցուցադրվում է բացվող սլաք, կտտացրեք սլաքին և ապա ընտրեք Թվերի զտիչներ > հավասար բացվող ցուցակից:

doc ջնջել, եթե զրո 1

3. Մեջ Անհատականացված AutoFilter երկխոսության տուփ, մուտքագրեք համարը 0 տեքստի տուփի մեջ, ինչպես ցույց է տրված նկարի ներքևում, և այնուհետև կտտացրեք այն OK կոճակը:

doc ջնջել, եթե զրո 1

4. Այնուհետեւ այս որոշակի սյունակում զրոյական արժեք ունեցող բոլոր բջիջները զտվում են: Խնդրում ենք ընտրել ֆիլտրի տիրույթում գտնվող բոլոր տեսանելի բջիջները և աջ սեղմել դրանց վրա, ընտրել Ջնջել տողերը աջ կտտացնելու ցանկից: Եվ պատուհանից դուրս գալու պատուհանում կտտացրեք այն OK կոճակ Տեսեք,

doc ջնջել, եթե զրո 1

5. Այժմ բոլոր տեսանելի շարքերը ջնջվում են: Կարող եք սեղմել Ամսաթիվ > ֆիլտր կրկին ցույց տալ բոլոր տվյալները առանց զրոյական արժեքի բջիջների: Տեսեք,

doc ջնջել, եթե զրո 1


Հեշտությամբ ջնջեք բոլոր տողերը, եթե զրոյական արժեքներ գոյություն ունեն որոշակի տիրույթում Excel- ում.

Excel- ի համար նախատեսված գործիքներ Ընտրեք հատուկ բջիջներ օգտակարությունն օգնում է ձեզ հեշտությամբ ընտրել ամբողջ տողերը, եթե զրոյական արժեքներ գոյություն ունեն որոշակի տիրույթում, ապա կարող եք արագորեն ջնջել բոլոր ընտրված շարքերը ձեռքով ՝ առանց որևէ սխալների:
Ներբեռնեք և փորձեք հիմա: (30- օր անվճար երթուղի)


Deleteնջել տողը, եթե բջիջը Excel- ում զրո է պարունակում VBA- ի հետ

Այս բաժինը ցույց կտա ձեզ VBA մեթոդը ՝ բոլոր տողերը ջնջելու համար, եթե զրոյական արժեքներ գոյություն ունեն Excel- ի որոշակի սյունակում:

1. Մամուլ Alt + F11 ստեղները միաժամանակ ցուցադրելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Microsoft Visual Basic հավելվածների համար պատուհանում կտտացրեք Տեղադրել > Մոդուլներ, ապա պատճենեք և տեղադրեք հետևյալ VBA կոդը մոդուլի պատուհանում:

VBA. Deleteնջել ամբողջ տողերը, եթե զրոյական արժեք գոյություն ունի որոշակի սյունակի տիրույթում աշխատանքային թերթում

Sub DeleteZeroRow () 'Updateby20140616 Dim Rng As Range Dim WorkRng As Range On Error Resume Հաջորդ xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng. Հասցե, Տեսակ: = 8 ) Application.ScreenUpdating = False Do Set Rng = WorkRng.Find («0», LookIn: = xlValues) Եթե Rng- ը ոչինչ չկա, ապա Rng.EntireRow.Delete- ն ավարտվում է, եթե Loop- ը, մինչդեռ RNG- ը, կիրառություն չէ: ScreenUpdating = True End Sub

3. Սեղմեք F5 Բանալին ՝ կոդն աշխատեցնելու համար, դուրս գալու պատուհանից KutoolsforExcel երկխոսության տուփ, ընտրեք սյունակի տիրույթը, որը ցանկանում եք ջնջել ամբողջ տողերը `հիմնվելով ներսում գտնվող զրոյական արժեքների վրա, ապա կտտացրեք այն OK կոճակ Տեսեք,

doc ջնջել, եթե զրո 1

Այնուհետև նշված սյունակի զրոյական արժեքների վրա հիմնված բոլոր շարքերը անմիջապես ջնջվում են:

doc ջնջել, եթե զրո 1


Deleteնջել տողը, եթե բջիջը զրո է պարունակում Excel- ի համար Kutools- ի հետ

Excel- ի շատ օգտվողների համար Excel- ում տվյալների հեռացումը վտանգավոր է VBA կոդի օգտագործմամբ: Եթե ​​ճիշտ չեք վստահում VBA կոդին, ապա այստեղ խորհուրդ ենք տալիս փորձել այն Ընտրեք հատուկ բջիջներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ.

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1. Ընտրեք սյունակի տիրույթը, որը դուք կհեռացնեք ամբողջ շարքերը ՝ հիմնվելով ներսում եղած զրոյական արժեքների վրա, ապա կտտացրեք Կուտոլս > ընտրել > Ընտրեք հատուկ բջիջներ, Տեսեք,

2. Մեջ Ընտրեք հատուկ բջիջներ երկխոսություն, անհրաժեշտ է.

(1) Ընտրեք Ամբողջ շարքը տարբերակը Ընտրության տեսակը բաժնում:

(2) Ընտրեք հավասար առաջինում Հատուկ տեսակ բացվող ցուցակ, ապա մուտքագրեք համարը 0 տեքստի վանդակում:

(3) Կտտացրեք այն կոճակին OK կոճակը:

3. dialogուցադրվում է երկխոսության տուփ ՝ ձեզ ասելու համար, թե քանի տող է ընտրված, կտտացրեք այն OK կոճակ Այժմ ընտրված են նշված սյունակի զրոյական արժեք ունեցող բոլոր տողերը: Խնդրում ենք աջ կտտացնել ցանկացած ընտրված շարքի վրա, ապա կտտացնել ջնջել աջ կտտացնելու ցանկում: Տեսեք,

doc ջնջել, եթե զրո 1

Նշված սյունակում գոյություն ունեցող զրոյական արժեք ունեցող բոլոր տողերն անմիջապես ջնջվում են: Տեսեք,

doc ջնջել, եթե զրո 1

  Եթե ​​ցանկանում եք ունենալ անվճար փորձաշրջան (30-օր) այս կոմունալ, խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Deleteնջել տողը, եթե բջիջը զրո է պարունակում Excel- ի համար Kutools- ի հետ


Հարաբերական հոդվածներ:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (15)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա կյանքը փրկեց!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեր VB կոդը չի աշխատում: Այն ջնջում է բոլոր տողերը 10-րդ դիրքում գտնվող Զրոյով: Հուսով եմ, որ ոչ ոք իրականում չի օգտագործում սա, քանի որ նրանք կջնջեն տվյալները…
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փոփոխել եմ վերը նշված կոդը՝ ինձ համար աշխատելու համար: Ես ուզում էի ջնջել յուրաքանչյուր տող, որն ուներ «Ջնջել» C տողում: Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:= xlValues) Եթե ոչ Rng-ը ոչինչ է, ապա Rng.EntireRow.Delete End If Loop մինչդեռ ոչ Rng-ը ոչինչ չէ Application.ScreenUpdating = True End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փոփոխել եմ ստորև բերված կոդը՝ ինձ համար աշխատելու համար: Սա ջնջեց C սյունակի բոլոր տողերը, որոնք ուներ «Ջնջել» C սյունակի բջիջում: Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete"): , LookIn:=xlValues) Եթե ոչ Rng-ը ոչինչ է, ապա Rng.EntireRow.Delete End If Loop while Not Rng ոչինչ չէ Application.ScreenUpdating = True End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն արձագանքի համար, աշխատեց ինձ համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
այն աշխատեց ինձ համար, շատ շնորհակալություն:
եթե ես ունեմ մի քանի թերթ: ինչպե՞ս կարող եմ 1 անգամ գործարկել սցենարը բոլոր թերթերի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
փոփոխվել է իմ նպատակով. շնորհակալություն օգնության համար. Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Սահմանել այն միջակայքը, որը ցանկանում եք հեռացնել չօգտագործված 0 քանակությունը տողեր «Set WorkRng = Application.InputBox («Range», xTitleId, «FG93:FG500», Type:=8) Application.ScreenUpdating = False Sheets(«ENTRY»). Ընտրեք Do Set Rng = WorkRng.Find("0 ", LookIn:=xlValues) Եթե ոչ Rng-ը ոչինչ, ապա Rng.EntireRow.Delete End If Loop while Not Rng-ը ոչինչ չէ Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Ընտրեք MsgBox "Removed" 0's ROWS FG սյունակից--հաշվում է հիմա--խնդրում ենք սպասել" Application.Calculation = xlAutomatic End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն սիրելիներս, ինձ կոդ է պետք 0-ին թերթի «N» սյունակի արժեք ունեցող տողերը թաքցնելու համար: «N» սյունակի արժեքը կփոխվի, երբ թարմացնեք Թերթ 1-ի մանրամասները: Դա ճիշտ ժամանակն է: անհրաժեշտ է հեռացնել տողը: հնարավո՞ր է դա անել Excel բանաձևով (առանց մակրո և Excel ֆիլտրերի):
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա ինձ մոտ չաշխատեց: Այն փոխեց իմ ընտրած սյունակի և հարակից սյունակի բոլոր արժեքները զրոյի: Երևի սխալ բան եմ անում։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Շերի,
Կոդն իմ դեպքում լավ է աշխատում։ Excel-ի ո՞ր տարբերակն եք օգտագործում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Կրիստալ: Ես տեղադրել եմ սա երկու տարի առաջ, այնպես որ ես կռահում եմ, որ ես հասկացել եմ այն: Բայց շնորհակալություն պատասխանի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Տեղադրեք սա VB նոր մոդուլում:
Սա InputBox-ի հետ է՝ այդ բառը պարունակող տողը ջնջելու համար:

Հատկանիշ VB_Name = «FindDelRowByWord»
Sub FindDelRow()
«Թարմացում մինչև 20140616 թթ
Dim Rng որպես միջակայք
Dim WorkRng որպես տիրույթ
Dim xRep As String
Ս.թ. սխալի Ռեզյումե Next
xTitleId = «ZOK գործիքներ»
Սահմանել WorkRng = Application.Selection
Սահմանել WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox («տող ջնջելու բառ.», «ZOK գործիքներ», , , , , 2)
Դիմում. ScreenUpdating = Սուտ է
Do
Սահմանել Rng = WorkRng.Find (xRep, LookIn:=xlValues)
Եթե ​​ոչ Rng-ը ոչինչ է, ապա
Rng.EntireRow.Delete
Վերջ: Եթե
Loop while Not Rng-ը ոչինչ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞ՆՉ ԵԹԵ ունեք մեծ թերթիկ, և կան տողեր, որոնք ցանկանում եք պահել, և այլ տողեր, որոնք պարունակում են որոշակի հիմնաբառեր և ջնջում դրանք: kutools-ն աշխատում է ինձ համար, բայց մեկ բանալի բառի համար, որը շատ տողերում կա այդ բանալի բառը, տողերը ջնջվել են, ես պարզապես ուզում եմ ունենալ մի քանի բանալի բառեր՝ նույնն անելու համար: սա աշխատում է վերը նշված կոդի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Kutools-ը կարող է միաժամանակ զբաղվել երկու հիմնական բառով: Դուք պետք է միացնեք դրա երկրորդ պայմանը «Եվ» կամ «Կամ»: Հուսով եմ, որ կարող եմ օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից