Jak połączyć zduplikowane wiersze i zsumować wartości w programie Excel?

W programie Excel ， możesz zawsze napotkać ten problem, gdy masz zakres danych, który zawiera zduplikowane wpisy, a teraz chcesz połączyć zduplikowane dane i zsumować odpowiednie wartości w innej kolumnie, jak pokazano na poniższych zrzutach ekranu. Jak możesz rozwiązać ten problem?

Połącz zduplikowane wiersze i zsumuj wartości za pomocą funkcji Konsoliduj

Połącz zduplikowane wiersze i zsumuj wartości z kodem VBA

Połącz zduplikowane wiersze i zsumuj wartości za pomocą Kutools for Excel

Połącz odpowiednie wiersze na podstawie zduplikowanych wartości w innej kolumnie za pomocą Kutools for Excel

Połącz zduplikowane wiersze i zsumuj wartości za pomocą funkcji Konsoliduj

Konsolidacja jest dla nas użytecznym narzędziem do konsolidacji wielu arkuszy lub wierszy w programie Excel, więc dzięki tej funkcji możemy również podsumować wiele wierszy na podstawie duplikatów. Wykonaj następujące czynności:

1. Kliknij komórkę, w której chcesz zlokalizować wynik w bieżącym arkuszu.

2. Przejdź do kliknięcia Dane > Konsolidowaćzobacz zrzut ekranu:

3, w Konsolidować Okno dialogowe:

• (1.) Wybierz Suma od Funkcjonować Lista rozwijana;
• (2.) Kliknij , aby wybrać zakres, który chcesz skonsolidować, a następnie kliknij Dodaj przycisk, do którego chcesz dodać odniesienie Wszystkie referencje skrzynka na listy;
• (3.) Sprawdź Górny rząd i Lewa kolumna od Użyj etykiet w opcja. Zobacz zrzut ekranu:

4. Po zakończeniu ustawień kliknij OK, a duplikaty są łączone i sumowane. Zobacz zrzut ekranu:

Uwagi: Jeśli zakres nie ma wiersza nagłówka, należy usunąć zaznaczenie Górny rząd z Użyj etykiet w opcja.

Połącz zduplikowane wiersze i zsumuj wartości z kodem VBA

Poniższy kod VBA może również pomóc w konsolidacji zduplikowanych wierszy w arkuszu, ale w tym samym czasie oryginalne dane zostaną zniszczone, musisz wykonać kopię zapasową danych.

1. Przytrzymaj ALT + F11 klucze, a następnie otwiera Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: połącz zduplikowane wiersze i zsumuj wartości

Sub CombineRows()
'Updateby Extendoffice
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)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
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. Następnie naciśnij F5 aby uruchomić ten kod, i musisz wybrać zakres, który chcesz skonsolidować w wyskakującym okienku zachęty. Zobacz zrzut ekranu:

4. A następnie kliknij OK, zduplikowane wiersze zostały połączone i wartości zostały zsumowane.

Uwagi: Jeśli chcesz użyć tego kodu, lepiej wykonaj kopię pliku, aby uniknąć zniszczenia danych, a ten kod jest stosowany tylko do dwóch kolumn.

Połącz zduplikowane wiersze i zsumuj wartości za pomocą Kutools for Excel

Tutaj przedstawiam przydatne narzędzie - Kutools dla programu Excel dla ciebie to Zaawansowane wiersze łączenia może również szybko zrobić przysługę, aby rozwiązać ten problem.

Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:

1. Wybierz potrzebny zakres i kliknij Kutools > Połącz i podziel > Zaawansowane wiersze łączenia. Zobacz zrzut ekranu:

2, w Zaawansowane wiersze łączenia okno dialogowe, sprawdź Moje dane mają nagłówki jeśli twój zakres ma nagłówki i wybierz nazwę kolumny, którą chcesz połączyć z duplikatami i kliknij Główny kluczzobacz zrzut ekranu:

3. Następnie wybierz nazwę kolumny, dla której chcesz zsumować wartości, i kliknij Obliczać > Suma lub inne obliczenia według potrzeb. Zobacz zrzut ekranu:

4, Kliknij Ok aby zamknąć okno dialogowe, możesz zobaczyć, jak duplikaty są łączone, a odpowiadające im dane w innej kolumnie są sumowane. Zobacz zrzuty ekranu:

Kliknij tutaj, aby dowiedzieć się więcej o zaawansowanych wierszach łączenia.

Połącz odpowiednie wiersze na podstawie zduplikowanych wartości w innej kolumnie za pomocą Kutools for Excel

Czasami chcesz połączyć wiersze na podstawie zduplikowanych wartości w innej kolumnie, pliku Zaawansowane wiersze łączenia of Kutools dla programu Excel również może wyświadczyć ci przysługę, wykonaj następujące czynności:

1. Wybierz zakres danych, którego chcesz użyć, a następnie kliknij Kutools > Połącz i podziel > Zaawansowane wiersze łączenia włączyć Zaawansowane wiersze łączenia Okno dialogowe.

2, w Zaawansowane wiersze łączenia kliknij nazwę kolumny, na podstawie której chcesz połączyć inne dane, i kliknij Główny kluczzobacz zrzut ekranu:

3. Następnie kliknij nazwę innej kolumny, z którą chcesz połączyć dane, i kliknij Połączyć aby wybrać separator do oddzielenia połączonych wartości, zobacz zrzut ekranu:

4. Następnie kliknij Ok, wszystkie wartości z tą samą komórką w kolumnie A zostały połączone razem, patrz zrzuty ekranu:

Połącz zduplikowane wiersze i zsumuj wartości za pomocą Kutools for Excel

Podobne artykuły:

Połącz wiele wierszy w jeden na podstawie zduplikowanych wartości

---

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

• Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
• Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
• Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

Czytaj więcej... Darmowe pobieranie... Zakup...