Direkt zum Inhalt

Wie verkette ich eindeutige Werte in Excel?

Wenn ich eine lange Liste von Werten habe, die mit 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 in Excel schnell und einfach beheben?

Suchen Sie eindeutige Werte in einer Spalte und verknüpfen Sie sie mit VBA-Code zu einer Zelle

Suchen Sie eindeutige Werte in einer Spalte und verknüpfen Sie sie mit Kutools for Excel zu einer Zelle

Listen Sie eindeutige Werte auf und verknüpfen Sie entsprechende Werte mit VBA-Code

Listen Sie eindeutige Werte auf und verketten Sie entsprechende Werte mit Kutools for Excel


Pfeil blau rechte Blase Suchen Sie eindeutige Werte in einer Spalte und verknüpfen Sie sie mit VBA-Code zu einer Zelle

Folgende Benutzerdefinierte Funktion Sie können nur die eindeutigen Werte aus einer Liste in eine einzelne Zelle verketten. 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 Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

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

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. Kehren Sie dann zu Ihrem Arbeitsblatt zurück und geben Sie die folgende Formel ein: = ConcatUniq (A1: A17, ",") in eine leere Zelle, in der Sie das verkettete Ergebnis ausgeben möchten, und drücken Sie Enter Schlüssel, um das eindeutige verkettete Ergebnis zu erhalten, siehe Screenshot:

doc verketten Unikate 1

Note: 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. Sie können sie nach Ihren Wünschen ändern.


Pfeil blau rechte Blase Suchen Sie eindeutige Werte in einer Spalte und verknüpfen 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 und Kombinieren Dienstprogramme, um das gewünschte Ergebnis zu erzielen.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen.

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor :( Kostenloser Download von Kutools für Excel jetzt! )

1. Wählen Sie die Liste der Zellen aus, in denen Sie nur die eindeutigen Werte kombinieren möchten.

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

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

Tips: Wenn Sie die eindeutigen Werte ohne das zuerst erscheinende Duplikat kombinieren möchten, aktivieren Sie diese Option Nur eindeutige Werte .

doc verketten Unikate 3

4. Dann klick OK Klicken Sie auf die Schaltfläche, und es wurden nur die eindeutigen Werte ausgewählt. Drücken Sie dann Ctrl + C um sie zu kopieren und durch Drücken an einer bestimmten Stelle einzufügen Strg + V, siehe Screenshot:

doc verketten Unikate 4

5. Wählen Sie die eingefügten eindeutigen Zellen aus und klicken Sie dann auf Kutoolen > Zusammenführen & TeilenKombinieren Sie Zeilen, Spalten oder Zellen, ohne Daten zu verlieren, siehe Screenshot:

6. In dem Spalten oder Zeilen kombinieren Dialogfeld, wählen Sie In eine einzelne Zelle kombinieren 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 Unikate 6

7. Dann klick Ok or Anwenden Klicken Sie auf die Schaltfläche. Die extrahierten eindeutigen Werte wurden wie im folgenden Screenshot in einer einzigen Zelle zusammengefasst:

doc verketten Unikate 7

Kostenloser Download von Kutools für Excel jetzt!


Pfeil blau rechte Blase Listen Sie eindeutige Werte auf und verknüpfen Sie entsprechende Werte mit VBA-Code

In einem anderen Fall verfügen Sie über einen Datenbereich, der zwei Spalten umfasst. Jetzt möchten Sie nur die eindeutigen Werte auflisten und die entsprechenden Werte einer anderen Spalte verketten, um das folgende Ergebnis zu erhalten. Haben Sie gute Möglichkeiten, diesen Job zu beenden? in Excel?

doc verketten Unikate 8

Hier können Sie den folgenden VBA-Code anwenden, um diesen Job zu erledigen. 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 Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

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

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
    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 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, den Sie basierend auf den eindeutigen Werten verketten möchten. Siehe Abbildung:

doc verketten Unikate 9

4. Klicken Sie OKwurden die eindeutigen Werte extrahiert und die entsprechenden Werte in einer anderen Spalte zu einem neuen Arbeitsblatt zusammengefasst.

Note: 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 auf alle anderen Trennzeichen, die Sie die kombinierten Daten trennen möchten.


Pfeil blau rechte Blase Listen Sie eindeutige Werte auf und verketten Sie entsprechende Werte mit Kutools for Excel

Wenn Sie Kutools for ExcelMit seinen Erweiterte Zeilen kombinieren Mit dieser Funktion können Sie dieses Problem schnell und einfach ohne Code lösen.

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor :( Kostenloser Download von 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 aus, den Sie anhand der eindeutigen Werte verketten möchten.

2. Dann klick Kutoolen > Zusammenführen & Teilen > Erweiterte Zeilen kombinieren, siehe Screenshot:

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

doc verketten Unikate 11

4. Klicken Sie dann auf einen anderen Spaltennamen, den Sie verketten möchten, und klicken Sie auf Kombinierenund wählen Sie ein Trennzeichen für die Trennung Ihrer kombinierten Daten, siehe Screenshot:

doc verketten Unikate 12

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

doc verketten Unikate 13

Kostenloser Download von Kutools für Excel jetzt!

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die 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 jeden Tag Hunderte von Mausklicks für Sie!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Excellent article!
I have a question.
How would delete blanks from start and end to avoid duplicates(caused by spaces) in function ConcatUniq?
Thank you very much!
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
Thank you! Great and simple function works perfect for me! https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations