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

Sut i gael gwared ar resi yn seiliedig ar werth celloedd yn Excel?

I ddileu neu ddileu rhesi lluosog yn gyflym yn seiliedig ar werth celloedd yn Excel, efallai y bydd angen i chi ddewis y rhesi cyfan hynny sy'n cynnwys gwerth celloedd penodol yn gyntaf, ac yna ewch i'w tynnu. Mae'n ymddangos nad oes ffordd gyflym o ddileu rhesi yn seiliedig ar werth celloedd ond gan ddefnyddio cod VBA. Dyma rai triciau cyflym i'ch helpu chi.


Tynnwch resi yn seiliedig ar werth celloedd gyda nodwedd Dod o Hyd ac Amnewid

Yn Excel, gallwch gymhwyso'r nodwedd pwerus Canfod ac Amnewid i dynnu rhesi yn seiliedig ar werth celloedd penodol yn hawdd. Gwnewch fel a ganlyn:

1. Dewiswch yr ystod lle byddwch chi'n tynnu rhesi yn seiliedig ar werth celloedd penodol, ac yn agor y blwch deialog Dod o Hyd ac Amnewid gyda phwyso'r Ctrl + F allweddi ar yr un pryd.

2. Yn y blwch deialog Canfod ac Amnewid, teipiwch werth penodol y gell (yn ein hachos ni, rydyn ni'n nodi'r Soe) i mewn i'r Find what blwch, a chliciwch ar y Find All botwm. Gweler y screenshot cyntaf isod:

3. Dewiswch yr holl ganlyniadau chwilio ar waelod y blwch deialog Dod o Hyd ac Amnewid, a chau'r blwch deialog hwn. (Nodyn: Gallwch ddewis un o ganlyniad chwilio, ac yna Ctrl + A allweddi i ddewis yr holl ganlyniadau a ganfuwyd. Gweler yr ail lun uchod.)
Ac yna gallwch weld bod yr holl gelloedd sy'n cynnwys y gwerth penodol yn cael eu dewis.

4. Ewch ymlaen i glicio ar y dde ar gelloedd a ddewiswyd a dewis y Delete o'r ddewislen clicio ar y dde. Ac yna gwiriwch y Entire row opsiwn yn y blwch deialog Dileu Dileu, a chliciwch ar y OK botwm. Nawr fe welwch fod yr holl gelloedd sy'n cynnwys y gwerth penodol yn cael eu tynnu. Gweler y sgrinluniau isod:

Ac yna mae rhesi cyfan wedi'u dileu yn seiliedig ar y gwerth penodol yn barod.


Tynnwch resi yn seiliedig ar werth celloedd gyda chod VBA

Gyda'r cod VBA canlynol, gallwch ddileu'r rhesi â gwerth celloedd penodol yn gyflym, gwnewch fel y camau canlynol:

1. Gwasgwch y Alt + F11 allweddi ar yr un pryd i agor Microsoft Visual Basic for applications ffenestr,

2. Cliciwch Insert > Module, a mewnbynnu'r cod canlynol i'r Modiwl:

VBA: Tynnwch y rhesi cyfan yn seiliedig ar werth y gell

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Yna cliciwch y Run botwm i redeg y cod.

4. Yn y blwch deialog popio i fyny, dewiswch yr ystod lle byddwch chi'n tynnu rhesi yn seiliedig ar y gwerth penodol, a chliciwch ar y OK botwm.

5. Mewn blwch deialog arall, teipiwch y gwerth penodol y byddwch chi'n tynnu rhesi arno yn seiliedig, ac yn clicio'r OK botwm. Gweler y screenshot:

Ac yna fe welwch fod rhesi cyfan wedi'u dileu yn seiliedig ar y gwerth penodedig yn barod.


Tynnwch resi yn seiliedig ar werth celloedd un neu ddwy gyda Kutools ar gyfer Excel

Os ydych chi wedi gosod Kutools for Excel, ei Select Specific Cells gall nodwedd eich helpu i ddileu'r rhesi â gwerth penodol yn gyflym. Gwnewch fel a ganlyn:

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim 30-diwrnod, dim angen cerdyn credyd! Get It Now

1. Dewiswch yr ystod y byddwch chi'n tynnu rhesi yn seiliedig ar y gwerth penodol, a chlicio Kutools > Select > Select Specific Cells. Gweler y screenshot:

2. Yn y blwch deialog Dewiswch Celloedd Penodedig agoriadol, gwiriwch Entire row opsiwn, dewiswch Contains o Specific type gwymplen, nodwch y gwerth penodedig yn y blwch dde, a chliciwch ar y Ok botwm (Gweler y screenshot uchod).
Ar ôl cymhwyso'r nodwedd hon, bydd blwch deialog yn popio allan ac yn dangos i chi faint o gelloedd sydd wedi'u darganfod yn seiliedig ar y meini prawf penodedig. Cliciwch y OK botwm i'w gau.

3. Nawr mae rhesi cyfan sydd â'r gwerth penodol yn cael eu dewis. Cliciwch ar y dde i'r rhesi a ddewiswyd, a chliciwch ar y Delete o'r ddewislen clicio ar y dde. Gweler y screenshot isod:

Nodyn: Mae hyn yn Select Specific Cells nodwedd yn cefnogi i ddileu rhesi gan un neu ddau o werthoedd penodol. Ar gyfer dileu rhesi yn seiliedig ar ddau werth penodol, nodwch werth arall yn y Specific type adran o'r blwch deialog Dewiswch Celloedd Penodol fel y dangosir y llun a ganlyn:

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim 30-diwrnod, dim angen cerdyn credyd! Get It Now


Tynnwch resi yn seiliedig ar werthoedd celloedd lluosog gyda Kutools ar gyfer Excel

Mewn rhai achosion, efallai y bydd angen i chi dynnu rhesi yn seiliedig ar werthoedd celloedd lluosog o golofn / rhestr arall yn Excel. Yma byddaf yn cyflwyno Kutools for Excel's Select Same & Different Cells nodwedd i'w ddatrys yn gyflym yn rhwydd.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim 30-diwrnod, dim angen cerdyn credyd! Get It Now

1. Cliciwch Kutools > Select > Select Same & Different Cells i agor y blwch deialog Select Same & Different Cells.

2. Yn yr agoriad Select Same & Different Cells blwch deialog, gwnewch fel a ganlyn (gweler y screenshot):

(1) Yn y Find values in blwch, dewiswch y golofn lle byddwch chi'n dod o hyd i'r gwerthoedd penodol;
(2) Yn y According to blwch, dewiswch y golofn / rhestr gyda gwerthoedd lluosog y byddwch yn dileu rhesi yn seiliedig arnynt;
(3) Yn y Based on adran, gwiriwch yr Each row opsiwn;
(4) Yn y Find adran, gwiriwch yr Same Values opsiwn;
(5) Gwiriwch y Select entire rows opsiwn ar waelod y blwch deialog agoriadol.
Nodyn: Os yw dwy golofn benodol yn cynnwys yr un pennawd, gwiriwch y My data has headers opsiwn.

3. Cliciwch y Ok botwm i gymhwyso'r cyfleustodau hwn. Ac yna mae blwch deialog yn dod allan ac yn dangos faint o resi sydd wedi'u dewis. Cliciwch ar y OK botwm i'w gau.

Ac yna mae'r holl resi sy'n cynnwys gwerthoedd ymhlith y rhestr benodol wedi'u dewis.

4. Cliciwch Home > Delete > Delete Sheet Rows i ddileu'r holl resi a ddewiswyd.


Demo: tynnu rhesi yn seiliedig ar un neu fwy o werthoedd celloedd yn Excel


Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel, am ddim i geisio heb gyfyngiad mewn 30 diwrnod. Dadlwythwch a Threial Am Ddim Nawr!

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 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 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 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 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (39)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ffantastig! Gweithiodd hynny'n wledd, fe wnes i ei newid ychydig i weddu i'r hyn yr oeddwn ei angen ond hynod ddoniol. O Fersiwn VBA.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Unrhyw ffordd i addasu'r If (cell.Value) = "Afal" i gynnwys gwerthoedd lluosog?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bobby, rhowch gynnig ar hyn, dylai gael yr hyn yr ydych ei eisiau: If (cell.Value) = "Afal" OR (cell.Value) = "Dydd Llun"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw werth i gydnabod gwerth p'un a yw > neu = i werth penodol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei - diolch yn fawr am y sgript. Roeddwn yn meddwl tybed a allwch chi ddefnyddio wildcards fel y gallwch ddewis unrhyw beth o fewn cell sy'n cyfateb yn hytrach nag eitem benodol? Rwyf wedi ceisio defnyddio ** wildcards ond nid yw'n ymddangos i wneud unrhyw beth. Dyma beth sydd gennyf: Is Delete_Rows() Dim rng Fel Ystod, cell Fel Ystod, del Fel Ystod Set rng = Croestoriad(Amrediad("B6:B20"), ActiveSheet.UsedRange) Ar gyfer Pob cell Mewn rng Os cell.Value Like "*WORDTODELETE*" _ Yna Os Nad oes Dim Yna Gosod del = cell Arall: Gosod del = Undeb(del, cell) Diwedd Os Diwedd Os Diwedd cell Ar Gwall Ail-ddechrau Nesaf del.EntireRow.Delete End Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch o galon - mae bob amser yn ddoniol pan fydd y dyn Marchnata yn ceisio ysgrifennu cod, ac roedd y wybodaeth hon yn ddefnyddiol iawn. Nid oeddwn yn gallu cael y cod i rychwantu colofnau lluosog (mae "AA2:AA3000" yn gweithio, mae "AB2:AB3000" yn gweithio, ond nid yw "AA2:AB3000" yn gweithio. Does dim Kaboom sy'n chwalu'r ddaear - nid yw'n gwneud dim. 'wedi ei datrys (yn amaturaidd, dybiwn i) trwy redeg sawl macros yn eu trefn, ond mae'n debyg fod yna ffordd fwy cain Diolch eto am eich cymorth, Jim (Melville, NY)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael: gwall amser rhedeg '13': Math diffyg cyfatebiaeth Mae dadfygio yn amlygu'r adran If (cell.Value) = "FALSE" _ Yna. Rydw i ar goll yn llwyr yn MVB, byddai unrhyw help yn cael ei werthfawrogi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gadewch i ni ddweud fy mod wedi rhoi'r cod isod i ddileu pob un o'm rhesi sy'n cynnwys afal ond yna rwyf am iddo barhau unwaith y bydd hynny wedi'i wneud a dileu'r holl resi sy'n cynnwys banana? Ceisiais dim ond dyblygu y cod ond mae'n ymddangos i stopio ar ôl afal. diolch. Is-ddileu_Rows() Dim rng Fel Ystod, cell Fel Ystod, neu Fel Ystod Set rng = Croestoriad(Amrediad("A1:C20"), ActiveSheet.UsedRange) Ar gyfer Pob cell Yn rng If (cell.Value) = "Afal" _ Yna Os yw del Oes Dim Yna Gosod del = cell Arall: Set del = Union(del, cell) Diwedd Os Diwedd Os Diwedd cell Ar Gwall Ail-ddechrau Nesaf del.EntireRow.Delete End Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roeddwn i eisiau dweud diolch. Roedd hyn yn gweithio fel swyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn bendant awsome! Gwerthfawrogi am rannu!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, mae hyn yn wych! Sylw cyflym, ceisiais y swyddogaeth darganfod a disodli yn excel 2010. Er mwyn dewis yr holl ganlyniadau a ddarganfuwyd roedd yn rhaid i mi ddefnyddio Ctrl + A yn lle Alt + A.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Beth yw'r ffordd hawsaf i ddileu rhesi NAD ydynt yn cynnwys "Afal" os gwelwch yn dda? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Unrhyw ffordd i'w ysgrifennu i ddileu rhes, gydag eithriad NEU? Hy- dileu rhesi sy'n ddyblyg, ond yn anwybyddu gwerth penodol. Rwyf am ddileu copïau dyblyg, ac eithrio lle mae'r golofn dan sylw yn cynnwys b/c gwag nad oes gan y golofn honno ddata dilys eto. Rhedais fel sydd gennych chi, ond fe wnes i orffen dileu rhesi gyda gwag yn y golofn dan sylw, felly ni allaf ei ddefnyddio fel y mae. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y Sgript VB. Ni allaf aros i roi cynnig ar hyn. Cwestiwn: A oes unrhyw ffordd i farcio'r colofnau i'w dileu cyn eu dileu a/neu eu copïo i dab ar wahân yn y llyfr gwaith? Yn ogystal, a oes ffordd i redeg y sgript hon a redir ar lyfrau gwaith / ffeiliau lluosog ar yr un pryd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch ... mae'n fy helpu llawer ...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn ddileu pob rhes lle column1 = "Afal" AND column3 = "gwyrdd". os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid wyf yn siŵr sut i wneud hyn gan ddefnyddio macro's neu ddwy, ond un opsiwn a fyddai'n gwneud ei waith yn iawn yw ychwanegu colum ychwanegol sy'n profi i'r un colum fod yn "afal" a'r llall yn "wyrdd" ac yna gadewch mae'n rhoi gwerth syml "ie" neu "na". na defnyddio'r naill na'r llall o'r opsiynau uchod i chwilio am y gwerth "ie" a dileu rhesi yn seiliedig ar hynny yn lle 2 werth ar wahân.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i restr o siopau mewn un ddogfen. Mae gennyf adroddiad sy'n dychwelyd miloedd o linellau. mae rhif y storfa bob amser yng Ngholofn A. A oes cod/macro a fydd yn chwilio'r adroddiad ac yn dileu pob colofn gyda rhifau storfa o'r rhestr storfa. meddwl bod angen vlookup a "Do While".
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo a diolch yn fawr iawn am y cod VBA. Mae gennyf un cwestiwn. A yw'n bosibl gwneud y cod y ffordd y mae'n bosibl dewis gwerthoedd sawl cell i'w dileu ar yr un pryd? Er enghraifft, dewiswch Apple ac Emily ar yr un pryd a'u dileu? Rwy'n gwerthfawrogi eich gwaith ac yn edrych ymlaen at eich ymateb. Joan K
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i nodi'r ystod A3:D3000 (hy. Nid wyf am i'r defnyddiwr ddewis yr ystod)? Sut alla i wneud y Llinyn Dileu yn gyfeirnod cell, e.e. G1?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
oes modd cymharu dwy golofn ac yna dileu? yn ystod A3:D3000 os yw cell A=x a cell B=y yna'n dileu rhes?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Am wych. diolch gymaint i gyd. :)
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
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