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.
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! |
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:
3. Po izbiri delovnega območja kliknite OK. Zdaj so podatki združeni v prvem stolpcu in seštejejo vrednosti v drugem stolpcu.
Opombe: Ta koda VBA lahko pravilno deluje pri združevanju na podlagi prvega stolpca in vrednosti vsote v drugem stolpcu.
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:
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.
3. Nato kliknite Ok. Zdaj so bili podatki združeni na podlagi primarnega stolpca, drugi pa je povzetek. Oglejte si posnetek zaslona:
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.
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:
2. V Ljubljani Kombiniraj vrstice na podlagi stolpca pogovorno okno, naredite tako:
(1) Kliknite stolpec, ki ga želite združiti, in kliknite Primarni ključ;
(2) Kliknite stolpec, v katerem želite združiti podatke, in kliknite Združite, nato na seznamu izberite eno ločilo;
(3) Kliknite stolpec, v katerega želite sešteti vrednosti, in kliknite izračunain izberite Seštevek.
3. klik Ok. Zdaj lahko vidite rezultat kot spodaj:
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
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...
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!