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

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:

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.

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 dem Kombinieren Dienstprogramme, um das gewünschte Ergebnis zu erzielen.

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:

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

2. Klicken Sie Kutoolen > Select > 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:

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

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:

5. Wählen Sie die eingefügten eindeutigen Zellen aus und klicken Sie dann auf Kutoolen > Zusammenführen & Teilen > Kombinieren 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:

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

Kostenloser Download von Kutools für Excel jetzt!

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?

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:

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.

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.

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:

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:

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

Kostenloser Download von Kutools für Excel jetzt!