Jak połączyć wiele wierszy w jeden na podstawie duplikatów w programie Excel?
Być może masz następujące dane zrzutu ekranu, w kolumnie Nazwa produktu A znajdują się zduplikowane elementy, a teraz musisz usunąć zduplikowane wpisy w kolumnie A, ale połączyć odpowiednie wartości w kolumnie B, patrz zrzuty ekranu:
Czy masz jakieś skuteczne sposoby rozwiązania tego zadania?
Połącz wiele zduplikowanych wierszy w jeden za pomocą kodu VBA
Połącz wiele zduplikowanych wierszy w jeden Kutools for Excel
Połącz wiele zduplikowanych wierszy i zsumuj / uśrednij wartości za pomocą Kutools for Excel
Połącz wiele zduplikowanych wierszy w jeden za pomocą kodu VBA
Poniższy kod VBA może pomóc w łączeniu zduplikowanych wierszy na podstawie wartości kolumny A, a poniższy kod jest stosowany tylko do dwóch kolumn. Tak więc, jeśli masz dane w dwóch kolumnach, ten kod zrobi ci przysługę.
1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: połącz wiele wierszy w jeden
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. Następnie naciśnij F5 i pojawi się okienko zachęty przypominające o wyborze zakresu, który chcesz połączyć. Zobacz zrzut ekranu:
4. A następnie kliknij OKwartości w kolumnie B zostały połączone w jeden rekord i oddzielone spacjami.
Uwagi:
1. Ten kod może zniszczyć oryginalne dane, kiedy go używasz, lepiej najpierw wykonaj kopię zapasową danych.
2. Ten kod jest stosowany tylko dla dwóch kolumn, jeśli masz więcej niż dwie kolumny, ten kod połączy tylko pierwsze dwie kolumny i usunie dane z innych kolumn. Używając tego kodu, musisz być ostrożny.
Połącz wiele zduplikowanych wierszy w jeden Kutools for Excel
Teraz, gdy powyższy kod ma pewne ograniczenia i ryzyko, czy istnieje wygodny i bezpieczny sposób na zakończenie tej pracy? Z Kutools dla programu Excel'S Zaawansowane wiersze łączenia narzędzie, możesz szybko usunąć wiele zduplikowanych wierszy z kolumn, na których bazujesz, i scalić je lub wykonać obliczenia dla innych rekordów w odpowiednich komórkach.
Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz.
Po zainstalowaniu Kutools dla programu Excel wykonaj następujące czynności:
1. Wybierz zakres danych, które chcesz połączyć duplikaty.
2. Następnie kliknij Kutools > Konwerter treści > Zaawansowane wiersze łączenia. Zobacz zrzut ekranu:
3, w Zaawansowane wiersze łączenia w oknie dialogowym wybierz nazwę kolumny jako kolumny kluczowe, na podstawie których chcesz połączyć wartości, a następnie kliknij Kluczowe kolumny. Zobacz zrzut ekranu:
4. Następnie kliknij kolumnę, w której chcesz połączyć ich wartości w jeden rekord, a następnie kliknij Połącz operacje i wybierz Łączyć tylko z separatoremi wybierz jeden separator, który chcesz oddzielić połączone wartości z prawej listy. Zobacz zrzut ekranu:
5. Po zakończeniu ustawień kliknij OK, a Twoje dane zostaną scalone na podstawie kluczowych kolumn i oddzielone separatorami.
Uwaga: Jeśli nie musisz ustawiać operacji dla pozostałych kolumn, po prostu zachowaj stan domyślny.
Połącz wiele zduplikowanych wierszy i zsumuj / uśrednij wartości za pomocą Kutools for Excel
Dzięki temu wielofunkcyjnemu Zaawansowane wiersze łączenia narzędzie, można łączyć zduplikowane wiersze i wykonywać obliczenia dla wartości.
1. Wybierz zakres danych, które chcesz połączyć duplikaty.
2. Idź do Zaawansowane wiersze łączenia Okno dialogowe;
- (1.) Wybierz nazwę kolumny jako kolumnę kluczową, na podstawie której chcesz obliczyć inne wartości kolumn, a następnie kliknij Kluczowe kolumny;
- (2.) Wybierz kolumnę, dla której chcesz wykonać obliczenia dla wartości, a następnie kliknij Połącz operacje > Połącz obliczyć, a następnie wybierz jeden typ obliczeń, którego potrzebujesz, w tym przypadku wybieram Suma. Zobacz zrzut ekranu:
3. Jeśli nie musisz ustawiać operacji dla pozostałych kolumn, po prostu zachowaj stan domyślny, a następnie kliknij OK, a zduplikowane wartości w kolumnie A zostaną scalone, a odpowiadające im wartości w kolumnie B zostaną zsumowane. Zobacz zrzuty ekranu:
Uwagi:
1. Jeśli zaznaczysz Moje dane mają nagłówki opcja, twoje nagłówki (pierwszy wiersz) zakresu zostaną zignorowane po zastosowaniu tego narzędzia.
2. Użyj sformatowanych wartości: zachowa formatowanie wartości po połączeniu zduplikowanych komórek.
3. To narzędzie nie jest dostępne do filtrowania danych.
Kliknij, aby dowiedzieć się więcej o tej funkcji Zaawansowane łączenie wierszy.
Podobne artykuły:
Połącz zduplikowane wiersze i zsumuj wartości
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
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!