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.

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.

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:

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:

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.

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.