Kako združiti podvojene vrstice in sešteti vrednosti v Excelu?

V Excelu ， se boste s to težavo vedno srečali, če imate nabor podatkov, ki vsebujejo nekaj podvojenih vnosov, zdaj pa želite združiti podvojene podatke in v drugem stolpcu sešteti ustrezne vrednosti, kot je prikazano na spodnjih zaslonih. Kako bi lahko rešili to težavo?

Združite podvojene vrstice in seštejte vrednosti s funkcijo Konsolidiraj

Združite podvojene vrstice in seštejte vrednosti s kodo VBA

Združite podvojene vrstice in seštejte vrednosti s programom Kutools za Excel

Ustrezne vrstice na podlagi podvojenih vrednosti združite v drugem stolpcu s programom Kutools za Excel

Združite podvojene vrstice in seštejte vrednosti s funkcijo Konsolidiraj

Konsolidacija je za nas koristno orodje za strnitev več delovnih listov ali vrstic v Excelu, zato lahko s to funkcijo na podlagi dvojnikov povzamemo tudi več vrstic. Naredite naslednje:

1. Kliknite celico, v kateri želite poiskati rezultat na trenutnem delovnem listu.

2. Pojdi na klik datum > utrditi, glej posnetek zaslona:

3. v utrditi pogovorno okno:

• (1.) Izberite Seštevek iz funkcija spustni seznam;
• (2.) Kliknite , da izberete obseg, ki ga želite utrditi, in kliknite Dodaj , da dodate sklic na Vse reference polje s seznamom;
• (3.) Preverite Zgornja vrstica in Levi stolpec iz Uporabite nalepke v možnost. Oglejte si posnetek zaslona:

4. Po končanih nastavitvah kliknite OK, dvojniki pa se kombinirajo in seštejejo. Oglejte si posnetek zaslona:

Opombe: Če obseg nima vrstice z glavo, počistite polje Zgornja vrstica Iz Uporabite nalepke v možnost.

Združite podvojene vrstice in seštejte vrednosti s kodo VBA

Naslednja koda VBA vam lahko pomaga tudi pri združevanju podvojenih vrstic na delovnem listu, hkrati pa bodo izvirni podatki uničeni, kopijo podatkov morate varnostno kopirati.

1. Držite tipko ALT + F11 tipke, nato odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: združite podvojene vrstice in seštejte vrednosti

Sub CombineRows()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3. Nato pritisnite F5 tipko za zagon te kode in v izpuščenem pozivnem polju morate izbrati obseg, ki ga želite utrditi. Oglejte si posnetek zaslona:

4. In nato kliknite OK, podvojene vrstice so bile kombinirane in vrednosti so seštete.

Opombe: Če želite uporabiti to kodo, raje naredite kopijo datoteke, da ne boste uničili podatkov, in ta koda se uporablja samo za dva stolpca.

Združite podvojene vrstice in seštejte vrednosti s programom Kutools za Excel

Tukaj predstavljam priročno orodje - Kutools za Excel za vas Napredne kombinirane vrstice lahko tudi hitro naredi uslugo, da reši to težavo.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Izberite obseg, ki ga potrebujete, in kliknite Kutools > Spoji in razdeli > Napredne kombinirane vrstice. Oglejte si posnetek zaslona:

2. v Napredne kombinirane vrstice pogovorno okno, preverite Moji podatki imajo glave če imate obseg glave in izberite ime stolpca, v katerega želite združiti dvojnike, in kliknite Primarni ključ, glej posnetek zaslona:

3. Nato izberite ime stolpca, v katerega želite sešteti vrednosti, in kliknite izračuna > Seštevek ali druge izračune, kot jih potrebujete. Oglejte si posnetek zaslona:

4. Kliknite Ok če želite zapreti pogovorno okno, lahko vidite, da se dvojniki kombinirajo in se ustrezni podatki v drugem stolpcu seštejejo. Oglejte si posnetke zaslona:

Kliknite tukaj, če želite izvedeti več o naprednih kombiniranih vrsticah.

Ustrezne vrstice na podlagi podvojenih vrednosti združite v drugem stolpcu s programom Kutools za Excel

Včasih želite vrstice združiti na podlagi podvojenih vrednosti v drugem stolpcu, Napredne kombinirane vrstice of Kutools za Excel lahko tudi stori uslugo za vas, storite naslednje:

1. Izberite obseg podatkov, ki ga želite uporabiti, in kliknite Kutools > Spoji in razdeli > Napredne kombinirane vrstice da omogočite Napredne kombinirane vrstice pogovorno okno.

2. v Napredne kombinirane vrstice v pogovornem oknu kliknite ime stolpca, na katerem želite združiti druge podatke, in kliknite Primarni ključ, glej posnetek zaslona:

3. Nato kliknite drugo ime stolpca, v katerem želite združiti podatke, in kliknite Združite če želite izbrati ločilo za ločevanje združenih vrednosti, si oglejte posnetek zaslona:

4. Nato kliknite Ok, vse vrednosti z isto celico v stolpcu A so združene, glejte posnetke zaslona:

Združite podvojene vrstice in seštejte vrednosti s programom Kutools za Excel

Povezani članek:

Več vrstic združite v eno na podlagi podvojenih vrednosti

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...