Preskoči na glavno vsebino

Kako hitro združiti vrstice na podlagi ene vrednosti stolpca in nato narediti nekaj izračunov v Excelu?

Na primer, imate obseg podatkov in en stolpec ima dvojnike, zdaj želite združiti vrstice na podlagi stolpca A (ima dvojnike), nato pa opravite nekaj izračunov v drug stolpec na podlagi združenih vrstic, kot je prikazano na sliki:

V Excelu ni hitre metode združevanja vrstic na podlagi ene vrednosti stolpca, vendar tukaj predstavljam
triki, s katerimi lahko združite podvojene vrstice, nato pa seštejete ali opravite druge izračune v drugem stolpcu.


puščica modri desni mehurček Vrstice združite na podlagi enega stolpca, nato vrednosti seštejte z VBA

Obstaja koda VBA, ki vam lahko pomaga združiti podvojene vrstice in nato sešteti vrednosti drugih stolpcev.

Brskanje in urejanje več Excelovih delovnih zvezkov / Wordovih dokumentov kot Firefox, Chrome, Internet Explore 10!

Morda ste seznanjeni z ogledom več spletnih strani v Firefoxu / Chromu / IE in med njimi preklapljate tako, da enostavno kliknete ustrezne zavihke. Tu Office Tab podpira podobno obdelavo, ki omogoča brskanje po več Excelovih delovnih zvezkih ali Wordovih dokumentih v enem Excelovem oknu ali Wordovem oknu in enostavno preklapljanje med njimi s klikom na njihove zavihke. Kliknite brezplačno 30-dnevni preizkus Office Tab!

ali excel

1. Pritisnite F11 + Nadomestna tipke za omogočanje Microsoft Visual Basic za aplikacije okno, nato kliknite Vstavi > Moduli ter pod novo kodo VBA kopirajte in prilepite Moduli okno.

VBA: Združi vrstice na podlagi ene vrednosti stolpca

Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
    If Not .Exists(Rng.Value) Then
        .Add Rng.Value, Rng.Offset(, 1)
    Else
        .Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
            If nRng Is Nothing Then
                Set nRng = Rng
            Else
                Set nRng = Union(nRng, Rng)
            End If
    End If
Next
If Not nRng Is Nothing Then
    nRng.EntireRow.Delete
End If
End With
End Sub

2. Pritisnite F5 ali kliknite Run za zagon VBA in odpre se pogovorno okno za izbiro obsega podatkov, ki bo deloval. glej posnetek zaslona:

doc spajanje stolpcev na podlagi enega stolpca 3

3. Po izbiri delovnega območja kliknite OK. Zdaj so podatki združeni v prvem stolpcu in seštejejo vrednosti v drugem stolpcu.

doc spajanje stolpcev na podlagi enega stolpca 4

Opombe: Ta koda VBA lahko pravilno deluje pri združevanju na podlagi prvega stolpca in vrednosti vsote v drugem stolpcu.


puščica modri desni mehurček Vrstice združite na podlagi enega stolpca, nato vrednosti seštejte z naprednimi kombiniranimi vrsticami

Če kode VBA ne poznate, lahko uporabite Napredne kombinirane vrstice značilnost orodja za dodatek za tretji del - Kutools za Excel za enostavno in hitro združitev podvojenih vrstic, nato vrednosti seštejte v drug stolpec.

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Izberite podatke, ki jih želite uporabiti, in kliknite Kutools > Spoji in razdeli > Napredne kombinirane vrstice. Oglejte si posnetek zaslona:

doc napredna kombinacija vrstica 1

2. Nato v pogovornem oknu izberite stolpec, na katerem boste združili druge stolpce in kliknite Primarni Key, kliknite še en stolpec in kliknite izračuna nato izberite Seštevek.

Nasvet: Če ima izbrani obseg glave, preverite Moji podatki imajo glavein preverite Uporabite formatirane vrednosti bo po združitvi ohranil oblikovanje.

doc spajanje stolpcev na podlagi enega stolpca 6

3. Nato kliknite Ok. Zdaj so bili podatki združeni na podlagi primarnega stolpca, drugi pa je povzetek. Oglejte si posnetek zaslona:

doc spajanje stolpcev na podlagi enega stolpca 7


puščica modri desni mehurček Združite vrstice na podlagi enega stolpca in nato izvedite različne operacije na drugih stolpcih z naprednimi kombiniranimi vrsticami.

Napredne kombinirane vrstice je zmogljiv, ker lahko v enem stolpcu ne samo združi podvojene vrstice in nato sešteje drug stolpec, temveč tudi združi podvojene vrstice v enem stolpcu in nato izvede različne operacije v drugih stolpcih.

Recimo, da imam obseg podatkov, kot je prikazano na spodnji sliki zaslona, ​​in želim združiti vrednosti v stolpcu B in vsote vrednosti v stolpcu C na podlagi stolpca A.
doc spajanje stolpcev na podlagi enega stolpca 8

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Izberite obseg podatkov in kliknite Kutools > Spoji in razdeli > Napredne kombinirane vrstice. Oglejte si posnetek zaslona:

doc napredna kombinacija vrstica 1

2. V Ljubljani Kombiniraj vrstice na podlagi stolpca pogovorno okno, naredite tako:

(1) Kliknite stolpec, ki ga želite združiti, in kliknite Primarni ključ;

doc spajanje stolpcev na podlagi enega stolpca 10

(2) Kliknite stolpec, v katerem želite združiti podatke, in kliknite Združite, nato na seznamu izberite eno ločilo;

doc spajanje stolpcev na podlagi enega stolpca 11

(3) Kliknite stolpec, v katerega želite sešteti vrednosti, in kliknite izračunain izberite Seštevek.

doc spajanje stolpcev na podlagi enega stolpca 12

3. klik Ok. Zdaj lahko vidite rezultat kot spodaj:

doc spajanje stolpcev na podlagi enega stolpca 13

z Napredne kombinirane vrstice funkcija, lahko tudi združite vrstice na podlagi enega stolpca, nato pa v drugih stolpcih štejete, povprečite, vodite 1. ali zadnje podatke. 

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have the same/similar question. I am trying to sum all of the columns to the right of the reference cell but it only sums the one. How do I get it to sum all those to the right individually?
This comment was minimized by the moderator on the site
Hey, your module used to work for big tables as well (eg. you want to sum up according to Year but you have Sales 1, Sales 2, Sales 3....etc). But now it only gets the first column right (Sales 1) and all others are not summed correctly. Did you change anything?
Thanks!
This comment was minimized by the moderator on the site
Hi, IK, maybe you can use the sumproduct function SUMPRODUCT((A2:A10=”Pen”)*(B2:E10)) to calculate them one by one. A2:A10 is the range contain the lookup value, pen is the criterion, B2:E10 is range that you want to sum based on criterion.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations