Wie kann man eindeutige Werte in Excel verketten?

Das Verketten eindeutiger Werte in Excel ist eine gängige Aufgabe, die durch verschiedene Methoden erreicht werden kann. Dieser Artikel untersucht verschiedene Techniken, um eindeutige Werte in einer Spalte zu verketten und gleichzeitig ihre entsprechenden Werte aufzulisten.

Nur eindeutige Werte aus einer Spalte verketten

• Durch die Verwendung der Funktionen TEXTVERKETTEN und EINDEUTIG
• Durch die Verwendung von Kutools AI-Assistent
• Durch die Verwendung einer benutzerdefinierten Funktion

Einzigartige Werte auflisten und entsprechende Werte verketten

• Durch die Verwendung der Funktionen TEXTVERKETTEN und EINDEUTIG
• Durch die Verwendung von Kutools für Excel
• Durch die Verwendung von VBA-Code

Nur eindeutige Werte aus einer Spalte verketten

Bei der Datenanalyse gibt es Fälle, in denen Sie eindeutige Werte aus einer Spalte in Excel in eine einzige Zelle verketten müssen. Diese Aufgabe kann mit Formeln, VBA oder Kutools erreicht werden, je nach Ihren Vorlieben und der Komplexität des Datensatzes. Im Folgenden werden wir optimierte Methoden untersuchen, um dies effizient zu handhaben.

Methode 1: Verwenden der Funktionen TEXTVERKETTEN und EINDEUTIG

Wenn Sie Excel 365 oder Excel 2021 verwenden, bieten die neuen Funktionen TEXTVERKETTEN und EINDEUTIG eine einfache und effiziente Möglichkeit, eindeutige Werte aus einer Spalte zu verketten.

Verwenden Sie die folgende Formel in einer Zelle, in der Sie das verkettete Ergebnis wünschen:

=TEXTJOIN(", ", TRUE, UNIQUE(A2:A18))

Methode 2: Verwenden von Kutools AI-Assistent

Für eine schnellere und vollständig automatisierte Lösung bietet Kutools für Excel ein innovatives Tool – den "Kutools AI-Assistent". Beschreiben Sie einfach Ihre Aufgabe, und die KI generiert sofort die gewünschten Ergebnisse ohne manuelle Einrichtung. Dies eliminiert die Notwendigkeit komplexer Formeln oder zeitaufwändiger Konfigurationen und liefert präzise Ergebnisse innerhalb von Sekunden.

Nach der Installation von Kutools für Excel klicken Sie bitte auf "Kutools" > "AI-Assistent", um den Bereich "Kutools AI-Assistent" zu öffnen.

1. Wählen Sie die Zellen aus, die Sie nur mit eindeutigen Werten kombinieren möchten;
2. Geben Sie die Anforderung im Chatfenster ein, zum Beispiel:
   Verketten Sie eindeutige Werte mit Komma aus dem ausgewählten Bereich und setzen Sie das kombinierte Ergebnis in Zelle C2.
3. Drücken Sie dann die Eingabetaste oder klicken Sie auf die Schaltfläche "Senden". Kutools AI analysiert die Frage, und nach Abschluss klicken Sie auf die Schaltfläche "Ausführen", um das Ergebnis zu erhalten.
   

Methode 3: Verwenden einer benutzerdefinierten Funktion

Für fortgeschrittene Benutzer, die mehr Flexibilität benötigen oder den Prozess automatisieren möchten, kann eine benutzerdefinierte VBA-Funktion (UDF) erstellt werden, um eindeutige Werte zu verketten. Diese Methode ist ideal für Benutzer, die sich mit Codierung auskennen oder eine wiederverwendbare Lösung benötigen.

1. Halten Sie die Tasten "ALT + F11" gedrückt, um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

2. Klicken Sie auf "Einfügen" > "Modul" und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Eindeutige Werte in eine einzelne Zelle verketten:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    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 (A2:A18,",") in eine leere Zelle, in der Sie das verkettete Ergebnis ausgeben möchten, und drücken Sie die Eingabetaste, um das eindeutige verkettete Ergebnis zu erhalten, siehe Screenshot:

Einzigartige Werte auflisten und entsprechende Werte verketten

In Excel ist das Auflisten eindeutiger Werte und das Verketten ihrer entsprechenden Werte eine gängige Aufgabe, insbesondere bei der Arbeit mit Datensätzen, die eine Zusammenfassung oder Konsolidierung erfordern. Dieser Abschnitt bietet eine umfassende Anleitung, um dies effizient zu erreichen.

Methode 1: Verwenden der Funktionen TEXTVERKETTEN und EINDEUTIG

Excels moderne Funktionen wie EINDEUTIG, FILTER und TEXTVERKETTEN machen es einfach, eindeutige Werte aufzulisten und ihre entsprechenden Werte zu verketten, ohne komplexe Formeln zu benötigen.

1. Verwenden Sie die Funktion EINDEUTIG, um alle eindeutigen Werte aus Spalte A aufzulisten:

=UNIQUE(A2:A17)

2. Wenden Sie die Funktionen TEXTVERKETTEN und FILTER an, um die entsprechenden Werte für den eindeutigen Wert zu verketten, ziehen Sie die Formel nach unten, um andere Zellen auszufüllen, siehe Screenshot:

=TEXTJOIN(", ", TRUE, FILTER($B$2:$B$17, $A$2:$A$17 =D2))

Methode 2: Verwenden von Kutools für Excel

Wenn Sie Kutools für Excel haben, ermöglicht seine leistungsstarke Funktion "Erweiterte Zeilen zusammenführen", dass Sie mühelos eindeutige Werte auflisten und ihre entsprechenden Werte verketten können – schnell und einfach, ohne jegliches Codieren oder komplexe Formeln. Wählen Sie einfach Ihre Daten aus, konfigurieren Sie die Einstellungen, und lassen Sie Kutools den Rest erledigen, um professionelle Ergebnisse innerhalb von Sekunden zu liefern.

1. Kopieren und fügen Sie die Originaldaten in eine andere Zelle ein, um die Daten zu sichern. Wählen Sie den Datenbereich aus, dann klicken Sie auf "Kutools" > "Zusammenführen & Aufteilen" > "Erweiterte Zeilen zusammenführen", siehe Screenshot:

2. Konfigurieren Sie im Dialogfeld "Erweiterte Zeilen zusammenführen" die Einstellungen:

• Klicken Sie auf den Spaltennamen, basierend auf dem Sie Duplikate kombinieren möchten, und wählen Sie dann "Primärschlüssel" aus der Dropdown-Liste in der Spalte "Berechnung" aus;
• Wählen Sie dann den Spaltennamen aus, dessen Werte Sie kombinieren möchten, und wählen Sie ein Trennzeichen aus der Dropdown-Liste in der Spalte "Berechnung" aus, um die Werte zu trennen;
• Klicken Sie abschließend auf die Schaltfläche OK.
  

Ergebnis:

Kutools automatisiert den Prozess des Extrahierens eindeutiger Werte und des Verkettens ihrer entsprechenden Werte mit dem angegebenen Trennzeichen.

Methode 3: Verwenden von VBA-Code

Während Excels integrierte Funktionen wie EINDEUTIG und TEXTVERKETTEN dies bis zu einem gewissen Grad bewältigen können, könnten sie bei der Handhabung komplexer Szenarien oder älterer Excel-Versionen an ihre Grenzen stoßen. Unabhängig davon, ob Sie Anfänger oder fortgeschrittener Benutzer sind, wird Sie diese Anleitung durch die Schritte führen, um eindeutige Werte aufzulisten und ihre entsprechenden Werte mit VBA-Code zu verketten.

1. Halten Sie die Tasten "ALT + F11" gedrückt, um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

2. Klicken Sie auf "Einfügen" > "Modul" und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Eindeutige Werte auflisten und entsprechende Daten verketten

Sub test()
    'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    Dim xOutputRg As Range
    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
    Set xOutputRg = Application.InputBox("Please select the output cell", "Kutools for Excel", Type:=8)
    If xOutputRg Is Nothing Then Exit Sub
    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
    xOutputRg.Resize(xDic.Count, 2).Value = xArr
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Eingabefeld erscheint, das Sie auffordert, den Datenbereich auszuwählen, den Sie basierend auf den eindeutigen Werten verketten möchten, siehe Screenshot:

4. Klicken Sie auf OK, ein weiteres Eingabefeld erscheint, das Sie auffordert, die Zellen für das Ergebnis auszuwählen:

5. Klicken Sie auf OK, die eindeutigen Werte wurden extrahiert und ihre entsprechenden Werte in einer anderen Spalte wurden zusammengefasst. Siehe Screenshot:

Zusammenfassend lässt sich sagen, dass das Verketten eindeutiger Werte in Excel durch mehrere Methoden effizient erreicht werden kann, die auf unterschiedliche Fachkenntnisse und Bedürfnisse zugeschnitten sind. Indem Sie die Methode auswählen, die am besten zu Ihren Anforderungen passt, können Sie die Datenverarbeitung optimieren und die Effizienz beim Verwalten eindeutiger Werte in Excel steigern. Wenn Sie daran interessiert sind, weitere Excel-Tipps und -Tricks zu erkunden, bietet unsere Website Tausende von Tutorials.