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

Conas sraitheanna dúblacha a bhaint agus na luachanna is airde a choinneáil in Excel amháin?

Mar shampla tá tábla ceannaigh agat in Excel mar an chéad phictiúr a thaispeántar. Anois ní mór duit sraitheanna dúblacha a bhaint bunaithe ar an gcolún Torthaí, agus na luachanna is airde de thorthaí comhfhreagracha a choinneáil sa cholún Méid mar an dara pictiúr a thaispeántar. Aon réiteach ar féidir leat smaoineamh air? Roinnfidh an t-alt seo dhá chleas chun é a réiteach.

Bain sraitheanna dúblacha agus coinnigh na luachanna is airde le VBA amháin

Bain sraitheanna dúblacha agus coinnigh na luachanna is airde le Kutools le haghaidh Excel amháin

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

Kutools le haghaidh Excel's Sraitheanna Comhcheangail Casta is féidir le fóntais cabhrú le húsáideoirí Excel uasluach íosluach gach earra i gcolún eile a fháil amach gan stró.

ad chun cinn sraitheanna le chéile max

Is féidir leis an bhfóntas Advanced Combine Rows seo sraitheanna agus luachanna ar leithligh a chomhcheangal le marcanna sonraithe, nó sraitheanna a chur le chéile agus a gcuid suimeanna, líon na dteagmhas, uasluachanna / luachanna íosta, meán, srl a ríomh.

Cluaisín Oifige Cumasaigh Eagarthóireacht agus Brabhsáil Tabbed in Oifig, agus Déan Do Obair i bhfad Níos Éasca ...
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
  • Athúsáid Rud ar bith: Cuir na foirmlí, na cairteacha agus aon rud eile is úsáidí nó is casta le do rogha Favorites, agus athúsáid go tapa iad sa todhchaí.
  • Níos mó ná 20 gné téacs: Uimhir Sliocht as Teaghrán Téacs; Sliocht nó Bain Cuid de Théacsanna; Tiontaigh Uimhreacha agus Airgeadraí go Focail Bhéarla.
  • Cumaisc Uirlisí: Illeabhair Oibre agus Bileoga ina hAon; Cumaisc Ilchealla / Sraitheanna / Colúin Gan Sonraí a Chailleadh; Cumaisc Sraithe Dúblacha agus Suim.
  • Uirlisí Scoilt: Roinn Sonraí i Ilbhileoga Bunaithe ar Luach; Leabhar Oibre amháin le Ilchomhaid Excel, PDF nó CSV; Colún amháin go Colúin Iolracha.
  • Greamaigh gan bacadh Sraitheanna Hidden / Scagtha; Líon agus Suim de réir Dath Cúlra; Seol Ríomhphoist Phearsantaithe chuig Il-Faighteoirí i mBulc.
  • Scagaire Sármhaith: Ardscéimeanna scagaire a chruthú agus a chur i bhfeidhm ar aon bhileoga; Sórtáil de réir seachtaine, lae, minicíochta agus níos mó; scagairí le cló trom, foirmlí, trácht ...
  • Níos mó ná 300 gné chumhachtach; Oibríonn sé le hOifig 2007-2021 agus 365; Tacaíonn sé le gach teanga; Imscaradh éasca i d'fhiontar nó d'eagraíocht.

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.

VBA: Bain sraitheanna dúblacha agus coinnigh na luachanna is airde

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.

Kutools le haghaidh Excel - Áirítear níos mó ná 300 uirlisí handy do Excel. Gné iomlán triail saor in aisce 30-lá, níl aon chárta creidmheasa ag teastáil! Triail In Aisce Anois!

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.

coimeádann dúbailtí a bhaint an luach is airde 2

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ú!


Kutools le haghaidh Excel Cuimsíonn sé níos mó ná 300 uirlis áisiúil le haghaidh Excel, saor in aisce le triail gan teorainn i 30 lá. Íoslódáil agus Triail In Aisce Anois!

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (1)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
i VBA mar shampla, ní dhéanann an colún dáta scagadh. Tabhair comhairle, le do thoil.
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL