Note: The other languages of the website are Google-translated. Back to English
English English
  • dogfennau
  • Excel
  • Sut i ddileu rhes gyfan os yw'r gell yn cynnwys sero yn Excel?

Sut i ddileu rhes gyfan os yw'r gell yn cynnwys sero yn Excel?

Weithiau, rydych chi am ddileu'r rhes gyfan os yw'r gell yn cynnwys sero yn Excel, a gallwch chi eu dileu fesul un os oes ychydig ohonyn nhw. Ond beth am gael gwared â channoedd o resi sy'n cynnwys sero? Gallwch ddewis un o'r ffyrdd anodd isod i'w ddatrys.

Dileu rhes os yw'r gell yn cynnwys sero gyda swyddogaeth Hidlo yn Excel
Dileu rhes os yw'r gell yn cynnwys sero gyda VBA yn Excel
Dileu rhes os yw'r gell yn cynnwys sero gyda Kutools ar gyfer Excel


Dileu rhes os yw'r gell yn cynnwys sero gyda swyddogaeth Hidlo yn Excel

Gallwch ddefnyddio'r swyddogaeth Hidlo i hidlo pob rhes yn seiliedig ar y gwerthoedd sero mewn colofn benodol, ac yna dileu'r holl resi gweladwy yn nes ymlaen. Gwnewch fel a ganlyn.

1. Dewiswch y celloedd colofn sy'n cynnwys y gwerthoedd sero rydych chi am ddileu'r rhesi cyfan yn seiliedig arnyn nhw, yna cliciwch Dyddiad > Hidlo. Gweler y screenshot:

2. Yna mae saeth gwympo yn arddangos yng nghell gyntaf y golofn a ddewiswyd, cliciwch y saeth, ac yna dewiswch Hidlau Rhif > Equals o'r rhestr ostwng.

dileu doc ​​os sero 1

3. Yn y AutoFilter Custom blwch deialog, nodwch rif 0 i mewn i'r blwch testun fel isod dangosir y screenshot, ac yna cliciwch ar y OK botwm.

dileu doc ​​os sero 1

4. Yna caiff yr holl gelloedd gwerth sero yn y golofn benodol hon eu hidlo allan. Dewiswch yr holl gelloedd gweladwy yn yr ystod hidlo a chliciwch arnynt, dewiswch Delete Rows o'r ddewislen clicio ar y dde. Ac yn y blwch prydlon popping up, cliciwch y OK botwm. Gweler y screenshot:

dileu doc ​​os sero 1

5. Nawr mae'r holl resi gweladwy yn cael eu dileu. Gallwch glicio Dyddiad > Hidlo eto i ddangos yr holl ddata heb gelloedd gwerth sero. Gweler y screenshot:

dileu doc ​​os sero 1


Dileu pob rhes yn hawdd os oes gwerthoedd sero yn bodoli mewn ystod benodol yn Excel:

Kutools ar gyfer Excel's Dewiswch Gelloedd Penodol mae cyfleustodau yn eich helpu i ddewis rhesi cyfan yn hawdd os oes gwerthoedd sero yn bodoli mewn ystod benodol, ac yna gallwch chi ddileu'r holl resi a ddewiswyd â llaw yn gyflym heb unrhyw gamgymeriadau.
Dadlwythwch a rhowch gynnig arni nawr! (

- llwybr diwrnod am ddim)


Dileu rhes os yw'r gell yn cynnwys sero gyda VBA yn Excel

Bydd yr adran hon yn dangos y dull VBA i chi ddileu pob rhes os oes gwerthoedd sero yn bodoli mewn colofn benodol yn Excel.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i arddangos y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn ffenestr Microsoft Visual Basic for Applications, cliciwch Mewnosod > Modiwlau, yna copïwch a gludwch y cod VBA canlynol i mewn i ffenestr y modiwl.

VBA: Dileu rhesi cyfan os oes gwerth sero yn bodoli mewn amrediad colofn penodol mewn taflen waith

Is DeleteZeroRow () 'Updateby20140616 Dim Rng As Range Dim WorkRng As Range On Error Ail-ddechrau Next xTitleId = "KutoolsforExcel" Gosod WorkRng = Set Cais.Selection WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8 .

3. Gwasgwch y F5 allwedd i redeg y cod, yn y popping up KutoolsforExcel blwch deialog, dewiswch yr ystod golofn rydych chi am ddileu rhesi cyfan yn seiliedig ar y gwerthoedd sero y tu mewn, yna cliciwch ar y OK botwm. Gweler y screenshot:

dileu doc ​​os sero 1

Yna caiff yr holl resi sy'n seiliedig ar y gwerthoedd sero yn yr ystod golofn benodol eu dileu ar unwaith.

dileu doc ​​os sero 1


Dileu rhes os yw'r gell yn cynnwys sero gyda Kutools ar gyfer Excel

I lawer o ddefnyddwyr Excel, mae defnyddio cod VBA yn beryglus i gael gwared ar ddata yn Excel. Os nad ydych yn ymddiried yn union yn y cod VBA, yma rydym yn eich argymell i roi cynnig ar y Dewiswch Gelloedd Penodol cyfleustodau Kutools ar gyfer Excel.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Dewiswch yr ystod golofn y byddwch chi'n tynnu rhesi cyfan yn seiliedig ar y gwerthoedd sero y tu mewn, ac yna cliciwch Kutools > dewiswch > Dewiswch Gelloedd Penodol. Gweler y screenshot:

2. Yn y Dewiswch Gelloedd Penodol deialog, mae angen i chi:

(1) Dewiswch y Rhes gyfan opsiwn yn y Math o ddewis adran hon.

(2) Dewiswch Equals yn y cyntaf Math penodol rhestr ostwng, yna nodwch y rhif 0 i mewn i'r blwch testun.

(3) Cliciwch y OK botwm.

3. Mae blwch deialog yn ymddangos i ddweud wrthych faint o resi sydd wedi'u dewis, cliciwch y OK botwm. Nawr mae'r holl resi sydd â'r gwerthoedd sero yn bodoli yn yr ystod golofn benodol yn cael eu dewis. Cliciwch ar y dde i unrhyw res a ddewiswyd, yna cliciwch Dileu yn y ddewislen clicio ar y dde. Gweler y screenshot:

dileu doc ​​os sero 1

Nawr mae'r holl resi sydd â'r gwerthoedd sero yn bodoli yn y golofn benodol yn cael eu dileu ar unwaith. Gweler y screenshot:

dileu doc ​​os sero 1

  Os ydych chi am gael treial am ddim (

30
-day) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.

Dileu rhes os yw'r gell yn cynnwys sero gyda Kutools ar gyfer Excel


Erthyglau Perthynas:


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, Ac Yn Cynyddu Eich Cynhyrchiant erbyn
80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na
    300
    nodweddion pwerus
    . Yn cefnogi Office/Excel
    2007-2019 a 365
    . Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn
    30
    - treial am ddim diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant gan
    50%
    , ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (15)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hwn yn achubwr bywyd!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw eich cod VB yn gweithio. Mae'n dileu pob rhes gyda sero yn y sefyllfa 10au. Gobeithio nad oes neb yn defnyddio hwn mewn gwirionedd gan y byddan nhw'n dileu data...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Addasais y cod uchod i weithio i mi. Roeddwn i eisiau dileu pob rhes oedd â "Dileu" yn rhes C. Is Delete_DeleteRows() Set WorkRng = Ystod("C2:C12000") Application.ScreenUpdating = Anghywir Gosod Rng = WorkRng.Find("Dileu", LookIn:= xlValues) Os nad yw Rng Yn Dim Yna Rng.EntireRow.Delete End Os Dolen Tra Ddim Rng Ydy Dim Dim Application.ScreenUpdating = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Addasais y cod isod i weithio i mi. Roedd hyn yn dileu pob rhes yng ngholofn C oedd â "Dileu" yn y gell yng ngholofn C. Is Delete_DeleteRows() Set WorkRng = Ystod("C2:C12000") Application.ScreenUpdating = Anghywir Gosod Rng = WorkRng.Find("Dileu" , LookIn:=xlValues) Os Nad yw Rng Yn Ddim Yna Rng.EntireRow.Dileu Diwedd Os Dolen Tra Ddim Rng Yn Dim Application.ScreenUpdating = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch am yr ymateb, gweithiodd i mi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
mae wedi gweithio i mi, diolch yn fawr.
os oes gen i daflenni lluosog? sut alla i redeg y sgript 1 amser ar gyfer yr holl daflenni?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
addaswyd i'm pwrpas --diolch am eich cymorth: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Ail-ddechrau Nesaf xTitleId = " " Application.Calculation = xlManual MsgBox " Gosodwch yr amrediad yr ydych am dynnu'r maint 0 nas defnyddiwyd rhesi o" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Math:=8) Application.ScreenUpdating = Taflenni Ffug("ENTRY").Select Do Set Rng = WorkRng.Find("0 " , LookIn:=xlValues) Os Nad yw Rng Yn Dim Yna Rng.EntireRow.Dileu Diwedd Os Dim Dolen Tra Ddim Rng Yn Dim 92's ROWS o golofn FG -- cyfrifo nawr - arhoswch" Application.Calculation = xlAwtomatig Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo annwyl , mae angen cod arnaf i guddio'r rhesi sydd â'r gwerth = 0 ar y golofn "N" yn y daflen 1. Bydd gwerth y golofn "N" yn newid wrth ddiweddaru'r manylion ar Daflen 2. dyna'r amser angen dad-guddio'r rhes. a yw hyn yn bosibl i wneud hyn gyda fformiwla Excel (heb macro ac Excel Filters).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wnaeth hyn ddim gweithio i mi. Newidiodd yr holl werthoedd yn y golofn o'm dewis a'r golofn gyfagos i sero. Mae'n rhaid fy mod i'n gwneud rhywbeth o'i le!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Sheri,
Mae'r cod yn gweithio'n dda yn fy achos i. Pa fersiwn Excel ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Grisial. Postiais hwn ddwy flynedd yn ôl felly rwy'n dyfalu fy mod wedi cyfrifo'r peth. Ond diolch am yr ateb.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mewnosodwch hwn ym modiwl newydd VB.
Mae hyn gydag InputBox i ddileu rhes sy'n cynnwys y gair hwnnw.

Priodoledd VB_Name = "FindDelRowByWord"
Is DarganfodDelRow()
'Diweddariad erbyn20140616
Dim Rng Fel Ystod
Dim WorkRng Fel Ystod
Dim xRep Fel Llinynnol
Ar Ail-ddechrau Gwall Nesaf
xTitleId = "Offer ZOK"
Gosod WorkRng = Application.Selection
Gosod WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math:=8)
xRep = Application.InputBox ("gair i ddileu Row:"", "ZOK Tools", , , , , , 2)
Application.ScreenUpdating = Anghywir
Do
Gosod Rng = WorkRng.Find(xRep, LookIn:=xlValues)
Os Nid Rng Yw Dim Yna
Rng.EntireRow.Dileu
Gorffennwch Os
Dolen Tra Ddim yn Rng Ydy Dim
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
BETH OS oes gennych ddalen fawr, a bod rhesi yr ydych am eu cadw, a rhesi eraill sy'n cynnwys rhai geiriau allweddol ac yn dileu'r rheini? mae'r kutools yn gweithio i mi ond ar gyfer un gair allweddol bod gan lawer o resi y gair allweddol hwnnw, cafodd y rhesi eu dileu, dwi eisiau cael geiriau allweddol lluosog i wneud yr un peth? a yw hyn yn gweithio ar gyfer y cod uchod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Gall Kutools ddelio â dau air allweddol ar yr un pryd. Mae angen i chi alluogi ei ail gyflwr gyda "Ac" neu "Neu". Gobeithio y gallaf helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL