Bain sraitheanna dúblacha go héasca bunaithe ar chritéir i gcolún amháin agus ná coinnigh ach na luachanna is airde in Excel

Má cheaptar go bhfuil tábla agat mar a thaispeántar thíos. Agus tabharfaidh an modh seo macra VBA isteach chun sraitheanna dúblacha a bhaint bunaithe ar cholún áirithe agus na luachanna is airde a choinneáil i gcolún eile in Excel amháin. Déan mar a leanas le do thoil:

1. Brúigh an Eile + F11 eochracha ag an am céanna chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

2. cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhfuinneog nua an Mhodúil oscailte.

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. Brúigh an F5 eochair nó cliceáil ar an Rith cnaipe chun an VBA seo a rith.

4. Anois tagann bosca dialóige amach. Roghnaigh na colúin a bhainfidh tú sraitheanna dúblacha astu agus coimeádfaidh tú na luachanna is airde iontu, agus cliceáil ar an OK cnaipe.

Is é ár gcás, bainfimid sraitheanna dúblacha de réir Colún Torthaí agus coinneoimid na luachanna is airde sa Cholún Méid, mar sin roghnaím an colún Torthaí agus an colún Méid mar a thaispeántar thuas.

Ansin feicfidh tú go mbaintear sraitheanna dúblacha bunaithe ar an gcolún Torthaí, agus coimeádtar luachanna is airde torthaí comhfhreagracha sa cholún Méid. Féach an pictiúr:

nótaí:

(1) Caithfidh an raon sonraithe tosú leis an gcolún a mbainfidh tú sraitheanna dúblacha faoi.

(2) Ní féidir leis an VBA seo ach na luachanna is airde sa cholún a choinneáil díreach taobh thiar den cholún ar bhain tú sraitheanna dúblacha astu.

(3) Ní oibríonn an VBA seo i Microsoft Excel 2007.

B’fhéidir nach mbeidh an VBA thuas furasta go leor do roinnt úsáideoirí, agus ní fhéadfaidh sé ach na luachanna is airde a choinneáil sa cholún taobh thiar de cholún na gcritéar. Ach Kutools do Excel's Sraitheanna Comhcheangail Casta cuideoidh fóntais leat an fhadhb seo a réiteach go héasca.

1. Roghnaigh an tábla a bhainfidh tú sraitheanna dúblacha agus coinneoidh tú na luachanna is airde (roghnaigh A1: C24 inár gcás), agus cliceáil Kutools > Ábhar > Sraitheanna Comhcheangail Casta.

2. Sa bhosca dialóige Comhcheangail Oscailte Bunaithe ar bhosca dialóige Colún, cumraigh le do thoil mar seo a leanas:

(1) Roghnaigh colún Torthaí (a mbainfidh tú sraitheanna dúblacha de), agus ansin cliceáil ar an Eochair Bhunscoile cnaipe;

(2) Roghnaigh an colún Méid (A gcoinneoidh tú na luachanna is airde ann), agus ansin cliceáil Ríomh > Max.

(3) Sonraigh rialacha teaglaim do cholúin eile de réir mar is gá duit.

3. Cliceáil ar an Ok cnaipe. Agus ansin feicfidh tú go mbaintear na sraitheanna dúblacha uile bunaithe ar an gColún Torthaí agus nach gcoinnítear ach uasluachanna na dtorthaí comhfhreagracha sa cholún Méid. Féach an pictiúr:

An Sraitheanna Comhcheangail Casta is féidir le fóntais Kutools for Excel sraitheanna a chomhcheangal go héasca le colún amháin, agus ansin colúin eile atá bunaithe ar na colúin seo a ríomh freisin, mar shampla Suim, Líon, Uasmhéid, Min, Táirge, srl. Cliceáil le haghaidh trialach saor in aisce 60 lá, gan aon teorannú!