Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako odstraniti podvojene vrstice in ohraniti najvišje vrednosti samo v Excelu?

Na primer imate tabelo za nakup v Excelu kot prvo prikazano sliko. Zdaj morate odstraniti podvojene vrstice na podlagi stolpca Fruit in v stolpcu Znesek shraniti najvišje vrednosti ustreznih sadežev, kot je prikazana druga slika. Na katero koli rešitev si lahko pomislite? Ta članek bo delil dva trika, da bi jih rešil.

Odstranite podvojene vrstice in ohranite najvišje vrednosti samo z VBA

Odstranite podvojene vrstice in ohranite najvišje vrednosti samo s programom Kutools for Excel

Preprosto odstranite podvojene vrstice na podlagi meril v enem stolpcu in samo v Excelu shranite najvišje vrednosti

Kutools za Excelove Napredne kombinacije vrst pripomoček lahko uporabnikom Excelu hitro pomaga pri iskanju najmanjše vrednosti vsakega elementa v drugem stolpcu z lahkoto. Popolna brezplačna preizkusna različica 60-dan!

oglas napredni kombinirani vrstici max

Ta pripomoček Advanced Combine Rows lahko kombinira tudi vrstice in ločene vrednosti z določenimi oznakami ali združuje vrstice in izračuna njihove zneske, število pojavitev, najvišje / najnižje vrednosti, povprečja itd.



Predvidevam, da imate prikazano tabelo pod prikazom slike. Ta metoda bo uvedla makro VBA za odstranitev podvojenih vrstic na podlagi določenega stolpca in ohranjanje najvišjih vrednosti le v drugem stolpcu v Excelu. Prosimo, naredite naslednje:

1. Pritisnite druga + F11 hkrati odpreti okno Microsoft Visual Basic for Applications.

2. klik Vstavi > Moduli, in prilepite naslednjo kodo v novo okno Modul.

VBA: Odstranite podvojene vrstice in ohranite najvišje vrednosti

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. Pritisnite F5 ali kliknite na Run gumb za zagon te VBA.

4. Sedaj se prikaže pogovorno okno. Prosimo, izberite stolpce, s katerimi boste odstranili podvojene vrstice, in rezervirajte najvišje vrednosti v in kliknite na OK gumb.

V našem primeru bomo odstranili podvojene vrstice po Fruit Columnu in ohranili najvišje vrednosti v stolpcu zneska, zato sem izbral stolpce Fruit in stolpec Količina, kot je prikazano zgoraj.

Potem boste videli podvojene vrstice, ki so odstranjene na podlagi stolpca "Sadje", v stolpcu Količina pa so shranjene najvišje vrednosti ustreznih plodov. Prikaz slike:

Opombe:

(1) Navedeni obseg se mora začeti s stolpcem, s katerim boste odstranili podvojene vrstice z.

(2) Ta VBA lahko obdrži najvišje vrednosti v stolpcu tik za stolpcu, ki ste ga odstranili z dvojnimi vrsticami.

(3) Ta VBA ne deluje v programu Microsoft Excel 2007.


Zgornja VBA morda ni dovolj preprosta za nekatere uporabnike in lahko ohranja le najvišje vrednosti v stolpcu za stolpcem za merila. Ampak Kutools za Excel je Napredne kombinacije vrst pripomoček vam bo lažje rešil ta problem.

Kutools za Excel - Združuje več kot 300 napredne funkcije in orodja za Microsoft Excel

1. Izberite tabelo, s katero boste odstranili podvojene vrstice in ohranili najvišje vrednosti (v našem primeru izberite A1: C24) in kliknite Kutools > vsebina > Napredne kombinacije vrst.

2. V pogovornem oknu za kombiniranje vrst, ki temelji na stolpcu, konfigurirajte na naslednji način:

(1) Izberite Fruit column (ki ga boste odstranili z dvojnimi vrsticami) in nato kliknite Primarni ključ gumb;

(2) Izberite stolpec Znesek (v katerega boste ohranili najvišje vrednosti) in kliknite izračuna > max.

(3) Določite kombinacijska pravila za druge stolpce, kot jih potrebujete.

doc odstraniti dvojnike ohraniti najvišjo vrednost 2

3. Kliknite Ok gumb. In potem boste videli, da se vse podvojene vrstice odstranijo glede na Fruit Column, v stolpcu Količina pa se hranijo samo najvišje vrednosti ustreznih plodov. Prikaz slike:

O Napredne kombinacije vrst uporabnost orodij Kutools za Excel lahko preprosto združuje vrstice za en stolpec, nato pa tudi druge stolpce, ki temeljijo na teh stolpcih, kot so Sum, Count, Max, Min, Product, itd. Kliknite za brezplačni preizkus 60-dan brez omejitev!


V tem videoposnetku Kutools in zavihek Kutools Plus zavihek doda Kutools za Excel. Če je potrebno, kliknite tukaj da brezplačno brezplačno preizkusite 60-dan!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.