Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

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:

doc-napredni-kombiniraj1 -2 doc-napredni-kombiniraj2

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

Kartica Office Omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte svoje delo ...
Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%
  • Ponovno uporabi vse: Med priljubljene dodajte najbolj uporabljene ali zapletene formule, grafikone in kar koli drugega ter jih v prihodnosti hitro ponovno uporabite.
  • Več kot 20 besedilnih funkcij: Izvleček številke iz besedilnega niza; Izvleči ali odstrani del besedil; Pretvorite številke in valute v angleške besede.
  • Združi orodja: Več delovnih zvezkov in listov v eno; Združi več celic / vrstic / stolpcev brez izgube podatkov; Združi podvojene vrstice in vsoto.
  • Razdeljena orodja: Razdeli podatke na več listov na podlagi vrednosti; En delovni zvezek v več datotek Excel, PDF ali CSV; En stolpec na več stolpcev.
  • Prilepi preskoči Skrite / filtrirane vrstice; Štetje in vsota glede na Barva ozadja; V večjem obsegu pošiljajte osebna e-poštna sporočila več prejemnikom.
  • Super filter: Ustvarite napredne filtrirne sheme in uporabite za vse liste; Razvrščanje po tednih, dnevih, pogostosti in še več; filter s krepkim tiskom, formule, komentar ...
  • Več kot 300 zmogljivih funkcij; Deluje s sistemoma Office 2007-2019 in 365; Podpira vse jezike; Preprosta namestitev v vašem podjetju ali organizaciji.

puščica modri desni mehurčekVeč 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:

doc-napredni-kombiniraj3

4. In nato kliknite OK, so vrednosti v stolpcu B združene v en zapis in ločene s presledki.

doc-napredni-kombiniraj4

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.


puščica modri desni mehurčekZdruž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.

doc-napredni-kombiniraj5

2. Nato kliknite Kutools > Pretvornik vsebine > Napredne kombinirane vrstice. Oglejte si posnetek zaslona:

doc-napredni-kombiniraj6

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:

doc-napredni-kombiniraj7

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:

doc-napredni-kombiniraj8

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.

doc-napredni-kombiniraj9

Opomba: Če vam ni treba nastaviti operacij za ostale stolpce, samo ohranite privzeto stanje.


puščica modri desni mehurčekZdruž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:

doc-napredni-kombiniraj10

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:

doc-napredni-kombiniraj11 -2 doc-napredni-kombiniraj12

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča 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-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

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 z miško!
dno pisarniške mize
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ashley · 3 years ago
    I have used the code above successfully in the past however today, it is deleting column B. Looks like it's just removing duplicates...not sure what the issue is.

    Sample Data
    Reece, Ashley G01-Registered-UWG
    Reece, Chris G02-Registered-KSU
    Reece, Chris G03-Dropped-KSU
    Reece, Jayden G02-Registered-UNG
    Reece, Jayden G02-Withdrawn-UNG
  • To post as a guest, your comment is unpublished.
    Muveen · 3 years ago
    I have in column A

    1 Cast
    2 Crew
    3 Hiring
    4 Cast
    5 Hiring
    6 Crew

    I need these unique CAST CREW AND HIRING in another column without delete in column A entries.

    Ex: I need (after formula)

    1 Cast
    2 Crew
    3 Hiring

    Is it possible by formula?
  • To post as a guest, your comment is unpublished.
    Ilaiyaraja · 5 years ago
    Above Macro only Combine the limited cell(e.g 20 cells) in b column. How to Combine more cells
    • To post as a guest, your comment is unpublished.
      NewYears1978 · 2 months ago
      Same - 2021 and this still only works if you have like 20 rows...
  • To post as a guest, your comment is unpublished.
    David Greene · 7 years ago
    I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?
    • To post as a guest, your comment is unpublished.
      NewYears1978 · 2 months ago
      Same here. I was about to purchase because the tools are very nice, but figured I would try it first. Combine never works. I tried it for about 3 weeks now and it always locks up. No matter the power of my computer (ran on my at home powerhouse computer, same issue)

      I kept cutting down to less and less data to see if it would work but it still would not.

      The last one I tried was 4 columns and 100k rows and it still locked up. Not very useful unless you have like < 100 rows or something.
    • To post as a guest, your comment is unpublished.
      JP · 2 months ago
      Same here, I filtered my data all the way down to 4 columns and 100k rows and it still work not work. I have tried this for 3 weeks now and unable to successfully complete my task. Kutools will only work if you have very few rows.
    • To post as a guest, your comment is unpublished.
      Admin-jay · 7 years ago
      [quote name="David Greene"]I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?[/quote]
      Sorry, we will fix it in next version.