Sut i ddileu rhesi nad ydynt yn cyfateb â meini prawf ar ddalen arall?
Efallai na fydd yn anodd ichi ddileu rhesi nad ydynt yn cyfateb i'r meini prawf ar yr un ddalen, ond a ydych chi'n gwybod am unrhyw ffyrdd o ddileu'r rhesi nad ydynt yn cyfateb meini prawf ar ddalen arall fel y dangosir isod. Nawr mae gen i ddau dric a all eich helpu i'w datrys yn gyflym.
Dileu rhesi nad ydynt yn cyfateb meini prawf ar ddalen arall â VBA
Dileu rhesi nad ydynt yn cyfateb i feini prawf ar ddalen arall gyda Kutools ar gyfer Excel
Meini Prawf (Yn Nhaflen 2) | Cyn (Taflen 1) | Ar ôl (Taflen1) |
Dileu rhesi nad ydynt yn cyfateb meini prawf ar ddalen arall â VBA
Mae yna god VBA a all eich helpu i ddileu rhesi nad ydynt yn cyfateb â meini prawf ar ddalen arall.
1. Gwasgwch Alt + F11 i arddangos y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y ffenestr, cliciwch Mewnosod > Modiwlau i ddangos ffenestr modiwl newydd, yna copïwch y cod VBA canlynol i mewn i ffenestr y modiwl.
VBA: Dileu rhesi nad ydynt yn cyfateb meini prawf ar ddalen arall yn Excel.
Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
xKey = arr2(i, 1)
dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
xKey = arr1(i, 1)
If dic2.Exists(xKey) Then
OutArr(xIndex, 1) = xKey
xIndex = xIndex + 1
End If
Next
Rng1.Value = OutArr
End Sub
3. Cliciwch RunI Kutoolsorexcel deialog yn galw i chi ddewis ystod rydych chi am ddileu'r rhesi nad ydyn nhw'n cyfateb i feini prawf. Gweler y screenshot:
4. Cliciwch OK, ac mae deialog arall yn galw allan am ddewis y meini prawf mewn dalen arall, gweler y screenshot:
5. Nawr mae'r holl resi nad ydyn nhw'n cyfateb i'r meini prawf mewn dalen arall yn cael eu tynnu.
Dileu rhesi nad ydynt yn cyfateb i feini prawf ar ddalen arall gyda Kutools ar gyfer Excel
Os yw cod VBA ychydig yn anodd i chi, gallwch chi roi cynnig arni Kutools ar gyfer Excel's Cymharwch Ystod nodwedd.
Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now
1. Dewiswch y ddalen rydych chi am ddileu'r rhesi nad ydyn nhw'n cyfateb i feini prawf. A chlicio Kutools > Cymharwch y Meysydd. Gweler y screenshot:
2. Yn y Cymharwch y Meysydd deialog, cliciwch botwm yn y Ystod B., ac yna gallwch ddewis yr ystod meini prawf sydd ei hangen arnoch. Gweler y screenshot:
3. Yna cliciwch OK, yna yn ôl at y Cymharwch y Meysydd deialog, gwirio Gwerth Gwahanol ac Dewiswch resi cyfan. Gweler y screenshot:
4. Cliciwch Ok, ac ymadael â'r Cymharwch y Meysydd deialog. Yna byddwch chi'n gweld bod y rhesi gwerth sy'n wahanol i'r meini prawf yn cael eu dewis.
5. Cliciwch ar y dde i glicio Dileu o'r ddewislen cyd-destun i ddileu'r rhesi nad ydyn nhw'n cyfateb i'r meini prawf ar ddalen arall.
Cliciwch yma am ragor o wybodaeth ar Kutools ar gyfer Cymharu Ystod Excel.
Erthyglau Perthynas:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!