Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ջնջել ամբողջ շարքը, եթե բջիջը զրո է պարունակում 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- ի հետ


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

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

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
This comment was minimized by the moderator on the site
Insert this in VB new module.
This is with InputBox to delete row which contains that word.

Attribute VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
Dim xRep As String
On Error Resume Next
xTitleId = "ZOK Tools"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("word to delete Row:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.EntireRow.Delete
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
WHAT IF you have a big sheet, and there are rows you want to keep, and others rows that contain certain key words and delete those? the kutools work for me but for one key word that many rows have that key word, the rows were deleted, i just want to have multiple key words to do the same? does this work for the code above?
This comment was minimized by the moderator on the site
Good Day,
Kutools can deal with two key words at the same time. You need to enable its second condition with "And" or "Or". Hope I can help.
This comment was minimized by the moderator on the site
This didn't work for me. It changed all values in my chosen column and the adjacent column to zeros. I must be doing something wrong!
This comment was minimized by the moderator on the site
Hi Sheri,
The code works well in my case. Which Excel verson do you use?
This comment was minimized by the moderator on the site
Hi Crystal. I posted this two years ago so I’m guessing I figured it out. But thanks for the reply.
This comment was minimized by the moderator on the site
Hi dears , I need a code to hide the rows which have the value=0 on the column "N" in the sheet 1. The value of the column "N" will change when update the details on the Sheet 2. that's the time need to un-hide the row. is this possible to do this with Excel formula(without macro and Excel Filters).
This comment was minimized by the moderator on the site
modified for my purpose--thank you for your help: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Set the range you want to remove the unused 0 quantity rows from" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Select Do Set Rng = WorkRng.Find("0", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Select MsgBox "Removed 0's ROWS from column FG--calculating now--please wait" Application.Calculation = xlAutomatic End Sub
This comment was minimized by the moderator on the site
I modified the below code to work for me. This deleted every row in column C that had "Delete" in the cell of column C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Hi,
its worked for me, thanks a lot.
if I have multiple sheets? how i can run the script 1 time for all the sheets?
This comment was minimized by the moderator on the site
thanks for the response, worked for me
This comment was minimized by the moderator on the site
I modified the above code to work for me. I wanted to delete every row that had "Delete" in row C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Your VB code doesn't work. It deletes all rows with a Zero in the 10s position. I hope no one actually uses this as they will delete data...
This comment was minimized by the moderator on the site
This was a life saver!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations