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

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

Tynnwch resi dyblyg a chadwch y 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. Nodwedd Llawn Am Ddim Treial 30-diwrnod!

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.

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.


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 cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Treial Am Ddim 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 Rhesi Cyfuno Uwch gall cyfleustodau Kutools ar gyfer Excel gyfuno rhesi yn ôl un golofn yn hawdd, 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 yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel, am ddim i roi cynnig arnynt 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 Swyddfa / Excel 2007-2019 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 (1)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
yn enghraifft VBA, nid yw'r golofn dyddiad yn hidlo. cynghorwch.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir