Tynnwch resi dyblyg yn hawdd yn seiliedig ar feini prawf mewn un golofn a chadwch y gwerthoedd uchaf yn Excel yn unig

Gan dybio bod gennych dabl fel y dangosir isod. A bydd y dull hwn yn cyflwyno macro VBA i gael gwared ar resi dyblyg yn seiliedig ar golofn benodol a chadw'r gwerthoedd uchaf yn unig mewn colofn arall yn Excel. Gwnewch fel a ganlyn:

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

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol i mewn i ffenestr Modiwl agoriadol newydd.

Public Sub DelDupes()
Dim xFilterRg As Range
Dim xCriteriaRg As Range
Dim xAddress As String
Dim xSUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xFilterRg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If xFilterRg Is Nothing Then Exit Sub
Set xFilterRg = Application.Intersect(ActiveSheet.UsedRange, xFilterRg)
If xFilterRg Is Nothing Then Exit Sub
On Error GoTo 0
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xCriteriaRg = ActiveSheet.Cells(1, xFilterRg.Column + xFilterRg.Columns.Count).Resize(2)
xCriteriaRg.Resize(1).Offset(1).Formula = "=COUNTIF(" & xFilterRg(2, 1).Address & ":" & _
xFilterRg(2, 1).Address(False, False) & "," & _
xFilterRg(2, 1).Address(False, False) & ")>1"
With xFilterRg
.Sort key1:=xFilterRg.Cells(1, 1).Offset(0, 1), order1:=xlDescending, Header:=xlYes
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=xCriteriaRg
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Parent.ShowAllData
End With
xCriteriaRg.Clear
Application.ScreenUpdating = xSUpdate
End Sub

3. Gwasgwch y F5 allwedd neu cliciwch y Run botwm i redeg y VBA hwn.

4. Nawr mae blwch deialog yn dod allan. Dewiswch y colofnau y byddwch yn tynnu rhesi dyblyg ohonynt ac yn cadw'r gwerthoedd uchaf ynddynt, a chliciwch ar y OK botwm.

Yn ein hachos ni, byddwn yn dileu rhesi dyblyg yn ôl Colofn Ffrwythau ac yn cadw'r gwerthoedd uchaf yn y Golofn Swm, felly dewisaf y golofn Ffrwythau a'r golofn Swm fel y dangosir y llun uchod.

Yna fe welwch fod rhesi dyblyg yn cael eu tynnu yn seiliedig ar y golofn Ffrwythau, a chedwir gwerthoedd uchaf ffrwythau cyfatebol yn y golofn Swm. Gweler y screenshot:

Nodiadau:

(1) Rhaid i'r amrediad penodedig ddechrau gyda'r golofn y byddwch yn tynnu rhesi wedi'i dyblygu erbyn.

(2) Dim ond ychydig y tu ôl i'r golofn y gwnaethoch chi gael gwared â rhesi dyblyg y gall y VBA hwn gadw'r gwerthoedd uchaf yn y golofn.

(3) Nid yw'r VBA hwn yn gweithio yn Microsoft Excel 2007.

Efallai na fydd y VBA uchod yn ddigon hawdd i rai defnyddwyr, a dim ond yn y golofn y tu ôl i'r golofn meini prawf y gall gadw'r gwerthoedd uchaf. Ond Kutools ar gyfer Excel's Rhesi Cyfuno Uwch bydd cyfleustodau yn eich helpu i ddatrys y broblem hon yn hawdd.

1. Dewiswch y tabl y byddwch yn ei dynnu rhesi dyblyg ac yn cadw'r gwerthoedd uchaf (dewiswch A1: C24 yn ein hachos ni), a chlicio Kutools > Cynnwys > Rhesi Cyfuno Uwch.

2. Yn y blwch deialog Cyfuno Rhesi Yn Seiliedig ar Colofn, ffurfweddwch fel a ganlyn:

(1) Dewiswch golofn Ffrwythau (y byddwch chi'n tynnu rhesi dyblyg ohoni), ac yna cliciwch ar y Allwedd Cynradd botwm;

(2) Dewiswch y golofn Swm (Pa rai y byddwch chi'n cadw'r gwerthoedd uchaf ynddynt), ac yna cliciwch Cyfrifwch > Max.

(3) Nodwch reolau cyfuniad ar gyfer colofnau eraill yn ôl yr angen.

3. Cliciwch ar y Ok botwm. Ac yna fe welwch fod yr holl resi dyblyg yn cael eu tynnu yn seiliedig ar y Golofn Ffrwythau a dim ond gwerthoedd uchaf ffrwythau cyfatebol sy'n cael eu cadw yn y golofn Swm. Gweler y screenshot:

Mae adroddiadau Rhesi Cyfuno Uwch gall cyfleustodau Kutools ar gyfer Excel gyfuno rhesi yn hawdd gan un golofn, ac yna cyfrifo colofnau eraill yn seiliedig ar y colofnau hyn hefyd, megis Swm, Cyfrif, Max, Min, Cynnyrch, ac ati. Cliciwch am dreial am ddim 60 diwrnod, dim cyfyngiad!