V Excelu je pogost scenarij, da naletite na nabor podatkov s podvojenimi vnosi. Pogosto se lahko znajdete z vrsto podatkov, pri katerih je ključni izziv učinkovito združiti te podvojene vrstice in hkrati sešteti vrednosti v ustreznem stolpcu, kot je prikazano na naslednjem posnetku zaslona. V tem kontekstu se bomo poglobili v več praktičnih metod, ki vam lahko pomagajo konsolidirati podvojene podatke in združiti njihove povezane vrednosti, s čimer izboljšate jasnost in uporabnost vaših Excelovih delovnih zvezkov.

Združite podvojene vrstice in seštejte vrednosti

• S funkcijo Consolidate
• Z močno funkcijo – Kutools
• Z vrtilno tabelo
• S kodo VBA

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

Consolidate je uporabno orodje za združevanje več delovnih listov ali vrstic v Excelu. S to funkcijo lahko združimo podvojene vrstice in hitro in enostavno seštejemo njihove ustrezne vrednosti. Izvedite naslednje korake:

1. korak: Izberite ciljno celico

Izberite, kje želite, da se prikažejo konsolidirani podatki.

2. korak: Dostopite do funkcije konsolidacije in nastavite konsolidacijo

1. klik datum > utrditi, glej posnetek zaslona:
   
2. v utrditi pogovorno okno:
   • (1.) Izberite Seštevek iz funkcija spustni seznam;
   • (2.) Kliknite, da izberete obseg, ki ga želite konsolidirati v Reference škatla;
   • (3.) Preverite Zgornja vrstica in Levi stolpec iz Uporabite nalepke v možnost;
   • (4.) Na koncu kliknite OK gumb.
   • 

Rezultat:

Excel bo združil vse dvojnike, najdene v prvem stolpcu, in seštel njihove ustrezne vrednosti v sosednjih stolpcih, kot je prikazano na naslednjem posnetku zaslona:

Združite podvojene vrstice in seštejte vrednosti z zmogljivo funkcijo – Kutools

Če ste namestili Kutools za Excel, njeno Napredne kombinirane vrstice Funkcija vam omogoča preprosto združevanje podvojenih vrstic, ki ponuja možnosti za seštevanje, štetje, povprečje ali izvajanje drugih izračunov na vaših podatkih. Poleg tega ta funkcija ni omejena samo na en ključni stolpec, ampak lahko obravnava več ključnih stolpcev, kar močno olajša zapletene naloge konsolidacije podatkov.

Po namestitvi Kutools za Excel, izberite obseg podatkov in kliknite Kutools > Spoji in razdeli > Napredne kombinirane vrstice.

v Napredne kombinirane vrstice v pogovornem oknu nastavite naslednje postopke:

1. Kliknite ime stolpca, na podlagi katerega želite združiti dvojnike, tukaj bom kliknil Izdelek in nato izbral Primarni ključ s spustnega seznama v operacija stolpec;
2. Nato izberite ime stolpca, v katerem želite sešteti vrednosti, in nato izberite Seštevek s spustnega seznama v operacija stolpec;
3. Kar zadeva druge stolpce, lahko izberete operacijo, ki jo potrebujete, kot je združevanje vrednosti z določenim ločilom ali izvajanje določenega izračuna; (ta korak lahko prezrete, če imate samo dva stolpca)
4. Končno si lahko predogledate kombinirani rezultat in nato kliknete OK gumb.
5. 

Rezultat:

Zdaj so podvojene vrednosti v stolpcu s ključi združene, druge ustrezne vrednosti pa so seštete, kot je prikazan naslednji posnetek zaslona:

Združite podvojene vrstice in seštejte vrednosti z vrtilno tabelo

Vrtilna tabela v Excelu zagotavlja dinamičen način za preurejanje, združevanje in povzemanje podatkov. Ta funkcionalnost postane izjemno uporabna, ko se soočite z naborom podatkov, polnim podvojenih vnosov in morate sešteti ustrezne vrednosti.

1. korak: Ustvarjanje vrtilne tabele

1. Izberite obseg podatkov. In potem pojdite na Vstavi in kliknite Vrteča miza, glej posnetek zaslona:
   
2. V pogovornem oknu, ki se odpre, izberite, kam želite postaviti poročilo vrtilne tabele, lahko ga postavite na nov ali obstoječi list, kot želite. Nato kliknite OK. Oglejte si posnetek zaslona:
   
3. Zdaj je vrtilna tabela vstavljena v izbrano ciljno celico. Oglejte si posnetek zaslona:
   

2. korak: Konfiguracija vrtilne tabele:

1. v Polja vrtilne tabele podoknu povlecite polje z dvojniki v Vrstica območje. To bo združilo vaše dvojnike.
2. Nato povlecite polja z vrednostmi, ki jih želite sešteti, na Vrednote območje. Excel privzeto sešteje vrednosti. Oglejte si spodnjo predstavitev:
3. 

Rezultat:

Vrtilna tabela zdaj prikazuje vaše podatke s kombiniranimi dvojniki in seštevanjem njihovih vrednosti, kar ponuja jasen in jedrnat pogled za analizo. Oglejte si posnetek zaslona:

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

Če vas zanima koda VBA, bomo v tem razdelku podali kodo VBA za združevanje podvojenih vrstic in seštevanje ustreznih vrednosti v drugih stolpcih. Izvedite naslednje korake:

1. korak: Odprite urejevalnik modulov lista VBA in kopirajte kodo

1. Drži dol ALT + F11 tipke v Excelu, da odprete Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
   Koda VBA: združite podvojene vrstice in seštejte vrednosti

   Sub CombineDuplicateRowsAndSumForMultipleColumns()
   'Update by Extendoffice
       Dim SourceRange As Range, OutputRange As Range
       Dim Dict As Object
       Dim DataArray As Variant
       Dim i As Long, j As Long
       Dim Key As Variant
       Dim ColCount As Long
       Dim SumArray() As Variant
       Dim xArr As Variant
       Set SourceRange = Application.InputBox("Select the original range:", "Kutools for Excel", Type:=8)
       If SourceRange Is Nothing Then Exit Sub
       ColCount = SourceRange.Columns.Count
       Set OutputRange = Application.InputBox("Select a cell for output:", "Kutools for Excel", Type:=8)
       If OutputRange Is Nothing Then Exit Sub
       Set Dict = CreateObject("Scripting.Dictionary")
       DataArray = SourceRange.Value
       For i = 1 To UBound(DataArray, 1)
           Key = DataArray(i, 1)
           If Not Dict.Exists(Key) Then
               ReDim SumArray(1 To ColCount - 1)
               For j = 2 To ColCount
                   SumArray(j - 1) = DataArray(i, j)
               Next j
               Dict.Add Key, SumArray
           Else
               xArr = Dict(Key)
               For j = 2 To ColCount
                   xArr(j - 1) = xArr(j - 1) + DataArray(i, j)
               Next j
               Dict(Key) = xArr
           End If
       Next i
       OutputRange.Resize(Dict.Count, ColCount).ClearContents
       i = 1
       For Each Key In Dict.Keys
           OutputRange.Cells(i, 1).Value = Key
           For j = 1 To ColCount - 1
               OutputRange.Cells(i, j + 1).Value = Dict(Key)(j)
           Next j
           i = i + 1
       Next Key
       Set Dict = Nothing
       Set SourceRange = Nothing
       Set OutputRange = Nothing
   End Sub
   

2. korak: Izvedite kodo

1. Po lepljenju te kode pritisnite F5 ključ za zagon te kode. V pozivnem polju izberite obseg podatkov, ki jih želite združiti in sešteti. In nato kliknite OK.
   
2. In v naslednjem pozivnem polju izberite celico, v katero boste izpisali rezultat, in kliknite OK.
   

Rezultat:

Zdaj so podvojene vrstice združene in njihove ustrezne vrednosti so seštete. Oglejte si posnetek zaslona:

Združevanje in seštevanje podvojenih vrstic v Excelu je lahko preprosto in učinkovito. Izbirajte med enostavno funkcijo Consolidate, naprednimi orodji Kutools, analitičnimi vrtilnimi tabelami ali prilagodljivim kodiranjem VBA, da poiščete rešitev, ki ustreza vašim sposobnostim in potrebam. Če vas zanima več nasvetov in trikov za Excel, naše spletno mesto ponuja na tisoče vadnic kliknite tukaj za dostop do njih. Hvala za branje in veselimo se, da vam bomo v prihodnje zagotovili več koristnih informacij!

Sorodni članki: