Salt la conținutul principal

Cum să îmbinați rapid rândurile pe baza unei valori de coloană, apoi să faceți câteva calcule în Excel?

De exemplu, aveți o gamă de date și o coloană are duplicate, acum doriți să îmbinați rândurile bazează coloana A (are duplicate) apoi faceți câteva calcule la o altă coloană pe baza rândurilor îmbinate, după cum se arată în captura de ecran:

În Excel, nu există nicio metodă rapidă de îmbinare a rândurilor pe baza unei valori de coloană, dar aici vă prezint
trucuri care vă pot ajuta să îmbinați rândurile duplicate, apoi să sumați sau să faceți alte calcule pe o altă coloană.


săgeată albastru dreapta balon Mergeți rândurile pe baza unei coloane, apoi sumați valorile cu VBA

Există un cod VBA care vă poate ajuta să îmbinați rândurile duplicate, apoi să însumați alte valori ale coloanei.

Navigarea cu file și editarea mai multor registre de lucru Excel / documente Word ca Firefox, Chrome, Internet Explore 10!

Este posibil să fiți familiarizați să vizualizați mai multe pagini web în Firefox / Chrome / IE și să comutați între ele făcând clic pe filele corespunzătoare. Aici, fila Office acceptă procesări similare, care vă permit să răsfoiți mai multe cărți de lucru Excel sau documente Word într-o fereastră Excel sau fereastră Word și să comutați cu ușurință între ele făcând clic pe filele lor. Click gratuit 30-o zi de probă a Office Tab!

nu excelează

1. presa F11 + Alt taste pentru activare Microsoft Visual Basic pentru aplicații fereastră, apoi faceți clic pe Insera > Module și copiați și lipiți sub codul VBA în noul Module fereastră.

VBA: Merge rânduri pe baza unei valori de coloană

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. presa F5 sau faceți clic pe Alerga pentru a rula VBA și apare un dialog pentru selectarea unui interval de date care să funcționeze. vezi captura de ecran:

doc fuzionează coloane pe baza unei coloane 3

3. După ce ați selectat un domeniu de lucru, faceți clic pe OK. Acum datele au fost îmbinate de prima coloană și însumează valorile din a doua coloană.

doc fuzionează coloane pe baza unei coloane 4

notițe: Acest cod VBA poate funcționa corect atunci când fuzionează pe baza primei coloane și a valorilor de sumă din a doua coloană.


săgeată albastru dreapta balon Combinați rândurile pe baza unei coloane, apoi sumați valorile cu rânduri avansate de combinare

Dacă nu sunteți familiarizați cu codul VBA, puteți utiliza fișierul Rânduri combinate avansate caracteristica instrumentului de completare a celei de-a treia părți - Kutools pentru Excel pentru a îmbina cu ușurință și rapid rândurile duplicate, apoi suma valorilor într-o altă coloană.

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Selectați datele pe care doriți să le utilizați și faceți clic Kutools > Merge & Split > Rânduri combinate avansate. Vedeți captura de ecran:

doc avansat combina rândul 1

2. Apoi, în caseta de dialog popping, selectați coloana pe care veți îmbina alte coloane, apoi faceți clic Primar Tasta și faceți clic pe altă coloană și faceți clic pe calculati Apoi selectați Sumă.

varful: Dacă gama selectată are anteturi, verificați Datele mele au anteturiși verificați Folosiți valori formatate va păstra formatarea după îmbinare.

doc fuzionează coloane pe baza unei coloane 6

3. Apoi apasa Ok. Acum, datele au fost îmbinate pe baza coloanei primare, iar altul este rezumat. Vedeți captura de ecran:

doc fuzionează coloane pe baza unei coloane 7


săgeată albastru dreapta balon Îmbinați rândurile pe baza unei coloane, apoi efectuați operații diferite pe alte coloane cu rânduri avansate de combinare.

Rânduri combinate avansate este puternic, deoarece nu numai că poate îmbina rândurile duplicate într-o coloană, apoi poate însuma o altă coloană, dar poate, de asemenea, să îmbine rândurile duplicate într-o coloană, apoi să facă operațiuni diferite pe alte coloane.

Să presupunem că am o gamă de date așa cum este prezentată mai jos și doresc să combin atât valorile din Coloana B, cât și sumele din Coloana C pe baza Coloanei A.
doc fuzionează coloane pe baza unei coloane 8

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Selectați intervalul de date și faceți clic Kutools > Merge & Split > Rânduri combinate avansate. Vedeți captura de ecran:

doc avansat combina rândul 1

2. În Combinați rândurile pe baza coloanei dialog, faceți ca acestea:

(1) Faceți clic pe coloana pe care doriți să o combinați și faceți clic pe Cheia principala;

doc fuzionează coloane pe baza unei coloane 10

(2) Faceți clic pe coloana pe care doriți să combinați datele și faceți clic pe Combina, apoi selectați din listă un separator de care aveți nevoie;

doc fuzionează coloane pe baza unei coloane 11

(3) Faceți clic pe coloana pe care doriți să o sumați valorile și faceți clic pe calculatiȘi selectați Sumă.

doc fuzionează coloane pe baza unei coloane 12

3. clic Ok. Acum puteți vedea rezultatul după cum urmează:

doc fuzionează coloane pe baza unei coloane 13

Cu Rânduri combinate avansate caracteristică, puteți, de asemenea, să îmbinați rânduri pe baza unei coloane, apoi să numărați, să mediați, să păstrați prima sau ultima dată în alte coloane. 

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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