Skip i'r prif gynnwys

Sut i gael gwared ar resi dyblyg a chadw'r gwerthoedd uchaf yn Excel yn unig?

Er enghraifft mae gennych fwrdd prynu yn Excel fel y screenshot cyntaf a ddangosir. Nawr mae angen i chi gael gwared ar resi dyblyg yn seiliedig ar y golofn Ffrwythau, a chadw'r gwerthoedd uchaf o ffrwythau cyfatebol yn y golofn Swm fel yr ail lun a ddangosir. Unrhyw ateb allwch chi feddwl amdano? Bydd yr erthygl hon yn rhannu dau dric i'w datrys.

Tynnwch resi dyblyg a chadwch y gwerthoedd uchaf gyda VBA yn unig

Dileu rhesi dyblyg a chadw gwerthoedd uchaf yn unig gyda Kutools ar gyfer Excel

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

Kutools ar gyfer Excel's Rhesi Cyfuno Uwch gall cyfleustodau helpu defnyddwyr Excel i ddarganfod yn gyflym werth uchaf isafswm gwerth pob eitem mewn colofn arall.

ad datblygedig cyfuno rhesi max

Gall y cyfleustodau Advanced Combine Rows hwn hefyd gyfuno rhesi a gwerthoedd ar wahân yn ôl marciau penodol, neu gyfuno rhesi a chyfrifo eu symiau, nifer y digwyddiadau, y gwerthoedd uchaf / lleiaf, cyfartaleddau, ac ati.


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.

VBA: Tynnwch resi dyblyg a chadwch y gwerthoedd uchaf

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.

Kutools ar gyfer Excel - Yn llawn dros 300 o offer hanfodol ar gyfer Excel. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod angen cerdyn credyd! Lawrlwytho nawr!

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.

mae dileu dyblygu yn cadw'r gwerth uchaf 2

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'r 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!


Kutools ar gyfer Excel: Dros 300 o offer defnyddiol ar flaenau eich bysedd! Dechreuwch eich treial am ddim 30 diwrnod heb unrhyw gyfyngiadau nodwedd heddiw. Lawrlwytho Nawr!

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

tab kte 201905


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
in VBA example, the date column doesn't filter. please advise.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations