Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie verketten Sie eindeutige Werte in Excel?

Wenn ich eine lange Liste von Werten habe, die mit einigen doppelten Daten gefüllt sind, möchte ich jetzt nur die eindeutigen Werte finden und sie dann zu einer einzigen Zelle verketten. Wie kann ich dieses Problem schnell und einfach in Excel lösen?

Finde eindeutige Werte in einer Spalte und verknüpfe sie mit VBA-Code zu einer Zelle

Finden Sie eindeutige Werte in einer Spalte und verketten Sie sie mit Kutools for Excel zu einer Zelle

Listen Sie eindeutige Werte auf und verketten Sie entsprechende Werte mit VBA-Code

Listen Sie eindeutige Werte auf und verketten Sie entsprechende Werte mit Kutools für Excel


Pfeil blaue rechte Blase Finde eindeutige Werte in einer Spalte und verknüpfe sie mit VBA-Code zu einer Zelle


Folgende Benutzerdefinierte Funktion kann Ihnen helfen, nur die eindeutigen Werte in eine einzelne Zelle aus einer Liste zu verketten, gehen Sie bitte wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Einsatz > Modul, und fügen Sie den folgenden Code in die Modul Fenster.

VBA-Code: Verketten Sie eindeutige Werte in einer einzelnen Zelle:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice 20151228
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. Gehen Sie dann zurück zu Ihrem Arbeitsblatt und geben Sie diese Formel ein: = ConcatUniq (A1: A17, ",") in eine leere Zelle, in der Sie das verkettete Ergebnis ausgeben möchten, und drücken Sie Weiter Schlüssel, um das einzigartige verkettete Ergebnis zu erhalten, siehe Screenshot:

doc verketten Uniques 1

Text: In der obigen Formel A1: A17 ist der Zellenbereich, den Sie verketten möchten, und das Komma ","Ist das Trennzeichen, das Sie benötigen, um die kombinierten Werte zu trennen, können Sie sie zu Ihrem Bedarf ändern.


Pfeil blaue rechte Blase Finden Sie eindeutige Werte in einer Spalte und verketten Sie sie mit Kutools for Excel zu einer Zelle

Wenn Sie mit dem VBA-Code nicht vertraut sind, Kutools for Excel kann dir auch helfen, du kannst das kombinieren Wählen Sie Doppelte und eindeutige Zellen aus und Kombinieren Dienstprogramme, um das gewünschte Ergebnis zu erzielen.

Kutools for Excel : mit mehr als 300 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können.

Nach der Installation Kutools for Excel, machen Sie bitte wie folgt :( Kostenloser Download Kutools für Excel jetzt! )

1. Wählen Sie die Liste der Zellen aus, die nur die eindeutigen Werte kombinieren sollen.

2. Klicken Sie Kutoolen > Auswählen > Wählen Sie Doppelte und eindeutige Zellen aus, siehe Screenshot:

doc verketten Uniques 2

3. In dem Wählen Sie Doppelte und eindeutige Zellen aus Dialogfeld auswählen Alle einzigartig (einschließlich 1 st Duplikate) Option unter dem Regel Abschnitt, siehe Screenshot:

Tipps: Wenn Sie die eindeutigen Werte mit Ausnahme des zuerst angezeigten Duplikats kombinieren möchten, aktivieren Sie das Kontrollkästchen Nur eindeutige Werte Option.

doc verketten Uniques 3

4. Dann klick OK Taste, und nur die eindeutigen Werte wurden ausgewählt, und drücken Sie dann Ctrl + C Kopieren Sie sie und fügen Sie sie an einem bestimmten Ort ein, indem Sie drücken Strg + V, siehe Screenshot:

doc verketten Uniques 4

5. Wählen Sie die eingefügten eindeutigen Zellen aus, und klicken Sie dann auf Kutoolen > Kombinieren, siehe Screenshot:

doc verketten Uniques 5

6. In dem Kombinieren Sie Spalten oder Zeilen Dialogfeld, wählen Sie Kombiniere zu einer einzelnen Zelle unter dem So kombinieren Sie ausgewählte Zellen gemäß den folgenden Optionenund geben Sie dann ein Trennzeichen für Ihre kombinierten Daten an, siehe Screenshot:

doc verketten Uniques 6

7. Dann klick Ok or Apply Die extrahierten eindeutigen Werte wurden wie im folgenden Screenshot dargestellt zu einer einzelnen Zelle verkettet:

doc verketten Uniques 7

Kostenloser Download Kutools für Excel jetzt!


Pfeil blaue rechte Blase Listen Sie eindeutige Werte auf und verketten Sie entsprechende Werte mit VBA-Code

In einem anderen Fall haben Sie einen Datenbereich, der zwei Spalten enthält. Wenn Sie nun nur die eindeutigen Werte auflisten und die entsprechenden Werte einer anderen Spalte verketten möchten, erhalten Sie das folgende Ergebnis. Haben Sie gute Möglichkeiten, diesen Job zu beenden? in Excel?

doc verketten Uniques 8

Hier können Sie den folgenden VBA-Code anwenden, um mit diesem Job umzugehen. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Einsatz > Modul, und fügen Sie den folgenden Code in die Modul Fenster.

VBA-Code: Listen Sie eindeutige Werte auf und verketten Sie die entsprechenden Daten

Sub test()
'updateby Extendoffice 20151228
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3. Dann drücken F5 Schlüssel, um diesen Code auszuführen, und eine Eingabeaufforderung wird ausgegeben, um Sie daran zu erinnern, den Datenbereich auszuwählen, den Sie anhand der eindeutigen Werte verketten möchten, siehe Screenshot:

doc verketten Uniques 9

4. Klicken Sie OK, die eindeutigen Werte wurden extrahiert und ihre entsprechenden Werte in einer anderen Spalte wurden zu einem neuen Arbeitsblatt zusammengefügt.

Text: Im obigen Code können Sie das rote Komma ändern xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (XArr (I, 1)), 2) & ","& xArr (I, 2) in diesem Skript zu anderen Trennzeichen, die Sie die kombinierten Daten trennen möchten.


Pfeil blaue rechte Blase Listen Sie eindeutige Werte auf und verketten Sie entsprechende Werte mit Kutools für Excel

Wenn Sie Kutools for ExcelMit seinen Erweiterte Kombinationszeilen Feature, können Sie dieses Problem schnell und einfach ohne Code lösen.

Nach der Installation Kutools for Excel, machen Sie bitte wie folgt :( Kostenloser Download Kutools für Excel jetzt! )

1. Zunächst sollten Sie eine Kopie Ihrer Originaldaten erstellen, wenn Sie die Originaldaten behalten möchten. Wählen Sie dann den Datenbereich, den Sie verketten möchten, basierend auf den eindeutigen Werten aus.

2. Dann klick Kutoolen > Inhalt > Erweiterte Kombinationszeilen, siehe Screenshot:

doc verketten Uniques 10

3. In dem Erweiterte Kombinationszeilen Klicken Sie im Dialogfeld auf den Spaltennamen, für den nur die eindeutigen Werte aufgelistet werden sollen, und klicken Sie auf Primärschlüssel, siehe Screenshot:

doc verketten Uniques 11

4. Klicken Sie dann auf einen anderen Spaltennamen, den Sie verketten möchten, und klicken Sie auf Kombinieren, und wählen Sie ein Trennzeichen zum Trennen Ihrer kombinierten Daten, siehe Screenshot:

doc verketten Uniques 12

5. Und dann klick Ok Schaltfläche wurden die Werte basierend auf den eindeutigen Werten einer anderen Spalte wie im folgenden Screenshot verkettet:

doc verketten Uniques 13

Kostenloser Download Kutools für Excel jetzt!


Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); Layout lesen (Leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt der Zellen teilen; Kombinieren Sie doppelte Zeilen / Spalten... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie "Duplizieren" oder "Eindeutig" Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 30-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    MSBrown · 2 years ago
    I was successfully using the VBA function but something has gone wrong with it - I am only having a #VALUE! error returned now in places where it was working previously. I have combed my data for errors and tried removing and re-creating the VBA module, and renaming the function, nothing seems to be working. Any help would be appreciated, thanks!
  • To post as a guest, your comment is unpublished.
    Marek · 2 years ago
    Thank you! Great and simple function works perfect for me!

    https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1