Kako združiti več vrstic v eno na podlagi dvojnikov v Excelu?
Mogoče imate naslednje podatke posnetka zaslona, v stolpcu Ime izdelka je nekaj podvojenih elementov, zdaj pa morate odstraniti podvojene vnose v stolpcu A, vendar združite ustrezne vrednosti v stolpcu B, glejte posnetke zaslona:
Ali imate nekaj učinkovitih načinov za rešitev te naloge?
Več podvojenih vrstic združite v eno s kodo VBA
Združite več podvojenih vrstic v en Kutools za Excel
Združite več podvojenih vrstic in vrednosti povzemite / povprečite s Kutools za Excel
Več podvojenih vrstic združite v eno s kodo VBA
Naslednja koda VBA vam lahko pomaga kombinirati podvojene vrstice na podlagi vrednosti stolpca A, naslednja koda pa se uporablja samo za dva stolpca. Torej, če imate podatke iz dveh stolpcev, vam bo ta koda naredila uslugo.
1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: združite več vrstic v eno
Sub CombineRows()
'Update 20131202
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)
xvalue = arr(i, 1)
If Dic.Exists(xvalue) Then
Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
Else
Dic(arr(i, 1)) = arr(i, 2)
End If
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 in izpiše se pozivno polje, ki vas opomni, da izberete obseg, ki ga morate združiti. Oglejte si posnetek zaslona:
4. In nato kliknite OK, so vrednosti v stolpcu B združene v en zapis in ločene s presledki.
Opombe:
1. Ta koda lahko uniči izvirne podatke. Ko jo uporabite, raje najprej varnostno kopirajte podatke.
2. Ta koda se uporablja samo za dva stolpca. Če imate več kot dva stolpca, bo ta koda združila samo prva dva stolpca in odstranila druge podatke stolpcev. Ko uporabljate to kodo, bodite previdni.
Združite več podvojenih vrstic v en Kutools za Excel
Ali ima zgornja koda zdaj nekaj omejitev in tveganj, ali obstaja priročen in varen način za dokončanje tega dela? S Kutools za ExcelJe Napredne kombinirane vrstice Pripomoček lahko v stolpcih, na katerih temeljiš, hitro odstranite več podvojenih vrstic in jih združite ali naredite nekaj izračunov za druge zapise v ustrezne celice.
Kutools za Excel vključuje več kot 300 priročnih orodij Excel. Brezplačno poskusite brez omejitev v 30 dneh. Get it now.
Po namestitvi Kutools za Excel naredite naslednje:
1. Izberite podatke o obsegu, za katere želite združiti dvojnike.
2. Nato kliknite Kutools > Pretvornik vsebine > Napredne kombinirane vrstice. Oglejte si posnetek zaslona:
3. v Napredne kombinirane vrstice v pogovornem oknu izberite ime stolpca kot ključne stolpce, na podlagi katerih želite združiti vrednosti, in kliknite Ključni stolpci. Oglejte si posnetek zaslona:
4. Nato kliknite stolpec, v katerem morate združiti njihove vrednosti v en zapis, in nato kliknite Kombinirane operacije In izberite Kombinirajte samo z ločevalnikomin izberite en ločevalnik, ki ga želite ločiti na pravem seznamu. Oglejte si posnetek zaslona:
5. Po končanih nastavitvah kliknite OK, in vaši podatki bodo združeni na podlagi ključnih stolpcev in ločeni z ločili.
Opomba: Če vam ni treba nastaviti operacij za ostale stolpce, samo ohranite privzeto stanje.
Združite več podvojenih vrstic in vrednosti povzemite / povprečite s Kutools za Excel
S tem večnamenskim Napredne kombinirane vrstice Pripomoček lahko kombinirate podvojene vrstice in opravite tudi nekaj izračunov za vrednosti.
1. Izberite podatke o obsegu, za katere želite združiti dvojnike.
2. Pojdi na Napredne kombinirane vrstice pogovorno okno;
- (1.) Kot ključni stolpec izberite ime stolpca, na podlagi katerega želite izračunati druge vrednosti stolpcev, in kliknite Ključni stolpci;
- (2.) Izberite stolpec, v katerem morate opraviti nekaj izračunov za vrednosti, in kliknite Kombinirane operacije > Združite izračun, nato izberite eno vrsto izračuna, ki jo potrebujete, v tem primeru jaz izberem Seštevek. Oglejte si posnetek zaslona:
3. Če vam ni treba nastaviti operacij za ostale stolpce, samo ohranite privzeto stanje in kliknite OKin podvojene vrednosti v stolpcu A bodo združene in njihove ustrezne vrednosti v stolpcu B bodo seštete. Oglejte si posnetke zaslona:
Opombe:
1. Če preverite Moji podatki imajo glave možnost, bodo vaše glave (prva vrstica) obsega prezrte, ko uporabite ta pripomoček.
2. Uporabite formatirane vrednosti: ohranilo bo oblikovanje vrednosti po združitvi podvojenih celic.
3. Ta pripomoček ni na voljo za filtriranje podatkov.
Kliknite, če želite izvedeti več o tej funkciji Napredne kombinirane vrstice.
Povezani članek:
Združite podvojene vrstice in seštejte vrednosti
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!