Note: The other languages of the website are Google-translated. Back to English

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 Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
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!
fundul officetab
Comentarii (3)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei, modulul tău funcționa și pentru mese mari (de exemplu, vrei să rezumați în funcție de An, dar aveți Vânzări 1, Vânzări 2, Vânzări 3... etc). Dar acum primește corect doar prima coloană (Vânzări 1) și toate celelalte nu sunt însumate corect. Ai schimbat ceva?
Multumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, IK, poate puteți folosi funcția produs suma SUMPRODUS((A2:A10=”Pen”)*(B2:E10)) pentru a le calcula unul câte unul. A2:A10 este intervalul care conține valoarea de căutare, stiloul este criteriul, B2:E10 este intervalul pe care doriți să îl însumați în funcție de criteriu.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am aceeasi intrebare/asemanatoare. Încerc să însumez toate coloanele din dreapta celulei de referință, dar o însumează doar pe aceea. Cum fac să însumeze toate cele corecte individual?
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL