Note: The other languages of the website are Google-translated. Back to English

Wie extrahiere ich eindeutige Werte aus mehreren Spalten in Excel?

Angenommen, Sie haben mehrere Spalten mit mehreren Werten, werden einige Werte in derselben Spalte oder in einer anderen Spalte wiederholt. Und jetzt möchten Sie die Werte, die in beiden Spalten vorhanden sind, nur einmal finden. Gibt es schnelle Tricks, mit denen Sie eindeutige Werte aus mehreren Spalten in Excel extrahieren können?


Extrahieren Sie eindeutige Werte aus mehreren Spalten mit der Array-Formel

Hier ist eine Array-Formel, mit der Sie auch die eindeutigen Werte aus mehreren Spalten extrahieren können.

1. Angenommen, Ihre Werte liegen im Bereich A2: C9Bitte geben Sie die folgende Formel in Zelle E2 ein:

=INDIRECT(TEXT(MIN(IF(($A$2:$C$9<>"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&""

Hinweis: In der obigen Formel A2: C9 gibt den Zellenbereich an, aus dem Sie die eindeutigen Werte extrahieren möchten. E1: E1 ist die erste Zelle der Spalte, in der Sie das Ergebnis platzieren möchten. $ 2: $ 9 Ständer für die Zeilen enthalten die Zellen, die Sie verwenden möchten, und $ A: $ C. Gibt an, dass die Spalten die Zellen enthalten, die Sie verwenden möchten. Bitte ändern Sie sie zu Ihren eigenen.

2. Dann drücken Umschalt + Strg + Eingabetaste Drücken Sie die Tasten zusammen und ziehen Sie dann den Füllpunkt, um die eindeutigen Werte zu extrahieren, bis leere Zellen angezeigt werden. Siehe Screenshot:


Extrahieren Sie mit Pivot Table eindeutige Werte aus mehreren Spalten

Wenn Sie mit der Pivot-Tabelle vertraut sind, können Sie die eindeutigen Werte mit den folgenden Schritten problemlos aus mehreren Spalten extrahieren:

1. Fügen Sie zunächst eine neue leere Spalte links von Ihren Daten ein. In diesem Beispiel füge ich Spalte A neben den Originaldaten ein.

2. Klicken Sie auf eine Zelle in Ihren Daten und drücken Sie Alt + D Tasten, dann drücken P Schlüssel sofort, um die zu öffnen PivotTable- und PivotChart-Assistent, wählen Mehrere Konsolidierungsbereiche Siehe Schritt 1 des Assistenten, siehe Screenshot:

3. Dann klick Weiter Schaltfläche, überprüfen Erstellen Sie ein einzelnes Seitenfeld für mich Option in Assistent Schritt 2, siehe Screenshot:

4. Klicken Sie weiter Weiter Klicken Sie auf die Schaltfläche, um den Datenbereich auszuwählen, der die linke neue Zellenspalte enthält, und klicken Sie dann auf Verwenden Sie Schaltfläche, um den Datenbereich zum hinzuzufügen Alle Bereiche Listenfeld, siehe Screenshot:

5. Klicken Sie nach Auswahl des Datenbereichs weiter WeiterWählen Sie im Schritt 3 des Assistenten aus, wo Sie den PivotTable-Bericht nach Ihren Wünschen ablegen möchten.

6. Endlich, klick Endziel Um den Assistenten abzuschließen, wurde im aktuellen Arbeitsblatt eine Pivot-Tabelle erstellt, und deaktivieren Sie dann alle Felder im Feld Wählen Sie Felder aus, die dem Bericht hinzugefügt werden sollen Abschnitt, siehe Screenshot:

7. Dann überprüfen Sie das Feld Wert oder ziehen Sie den Wert auf die Reihen Beschriftung, jetzt erhalten Sie die eindeutigen Werte aus den mehreren Spalten wie folgt:


Extrahieren Sie eindeutige Werte aus mehreren Spalten mit VBA-Code

Mit dem folgenden VBA-Code können Sie die eindeutigen Werte auch aus mehreren Spalten extrahieren.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.

VBA: Extrahieren Sie eindeutige Werte aus mehreren Spalten

Sub Uniquedata()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
Set dt = CreateObject("Scripting.Dictionary")
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For Each rng In InputRng
    If rng.Value <> "" Then
        dt(rng.Value) = ""
    End If
Next
OutRng.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

3. Dann drücken F5 Um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, den Sie verwenden möchten. Siehe Screenshot:

4. Und dann klick OKEin weiteres Eingabeaufforderungsfeld wird angezeigt, in dem Sie einen Ort für die Platzierung des Ergebnisses auswählen können (siehe Screenshot).

5. Klicken Sie OK Um diesen Dialog zu schließen, wurden alle eindeutigen Werte auf einmal extrahiert.


Extrahieren Sie eindeutige Werte aus einer einzelnen Spalte mit einer erstaunlichen Funktion

Manchmal müssen Sie die eindeutigen Werte aus einer einzelnen Spalte extrahieren. Die oben genannten Methoden helfen Ihnen nicht weiter. Hier kann ich ein nützliches Tool empfehlen.Kutools for ExcelMit seinen Zellen mit eindeutigen Werten extrahieren (einschließlich des ersten Duplikats) Dienstprogramm können Sie schnell die eindeutigen Werte extrahieren.

Hinweis:Um dies anzuwenden Zellen mit eindeutigen Werten extrahieren (einschließlich des ersten Duplikats)Zunächst sollten Sie die herunterladen Kutools for Excelund wenden Sie die Funktion dann schnell und einfach an.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Klicken Sie auf eine Zelle, in der Sie das Ergebnis ausgeben möchten. (Hinweis: Klicken Sie nicht auf eine Zelle in der ersten Zeile.)

2. Dann klick Kutoolen > Formel-Helfer > Formel-Helfer, siehe Screenshot:

3. In dem Formeln Helfer Im Dialogfeld führen Sie bitte die folgenden Vorgänge aus:

  • Auswählen Text Option von der Formel Typ Dropdown-Liste;
  • Dann wähle Zellen mit eindeutigen Werten extrahieren (einschließlich des ersten Duplikats) von dem Wähle eine Fromula Listenfeld;
  • Im rechten Eingabe von Argumenten Wählen Sie im Abschnitt eine Liste der Zellen aus, die Sie eindeutige Werte extrahieren möchten.

4. Dann klick Ok Klicken Sie auf die Schaltfläche, und ziehen Sie den Füllpunkt auf die Zellen, in denen Sie alle eindeutigen Werte auflisten möchten, bis leere Zellen angezeigt werden. Siehe Screenshot:

Kostenloser Download von Kutools für Excel jetzt!


Weitere relative Artikel:

  • Zählen Sie die Anzahl der eindeutigen und eindeutigen Werte aus einer Liste
  • Angenommen, Sie haben eine lange Liste von Werten mit einigen doppelten Elementen. Jetzt möchten Sie die Anzahl der eindeutigen Werte (die Werte, die nur einmal in der Liste angezeigt werden) oder der unterschiedlichen Werte (alle unterschiedlichen Werte in der Liste bedeutet dies eindeutig) zählen Werte + 1. doppelte Werte) in einer Spalte wie links gezeigt. In diesem Artikel werde ich darüber sprechen, wie man mit diesem Job in Excel umgeht.
  • Extrahieren Sie eindeutige Werte basierend auf Kriterien in Excel
  • Angenommen, Sie haben den folgenden Datenbereich, in dem Sie nur die eindeutigen Namen von Spalte B basierend auf einem bestimmten Kriterium von Spalte A auflisten möchten, um das Ergebnis wie im folgenden Screenshot zu erhalten. Wie können Sie diese Aufgabe in Excel schnell und einfach erledigen?
  • Nur eindeutige Werte in Excel zulassen
  • Wenn Sie nur eindeutige Werte in eine Spalte des Arbeitsblatts eingeben und die Duplikate vermeiden möchten, werden in diesem Artikel einige schnelle Tricks vorgestellt, mit denen Sie diese Aufgabe lösen können.
  • Summe eindeutiger Werte basierend auf Kriterien in Excel
  • Zum Beispiel habe ich einen Datenbereich, der jetzt Spalten für Name und Reihenfolge enthält, um nur eindeutige Werte in der Spalte Reihenfolge basierend auf der Spalte Name zu summieren, wie im folgenden Screenshot gezeigt. Wie kann man diese Aufgabe schnell und einfach in Excel lösen?

Die besten Tools für die Office-Produktivität

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

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); 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 geteilter Zellen; 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; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
officetab unten
Kommentare (31)
Bewertet 5 aus 5 · 1 Bewertungen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Is this formula complete? =INDIRECT(TEXT(MIN(IF(($A$2:$C$9"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&"",
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist noch nicht behoben :sad:
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was für eine Zeitverschwendung..... Formel funktioniert NICHT
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke!!! Ich habe Stunden damit verbracht, dies zu tun und herauszufinden, was mit dem Pivot-Assistenten (anderer Artikel) passiert ist.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich verwende Ihren VBA-Code, möchte aber nicht, dass das Feld erscheint. Stattdessen möchte ich genau definieren, welcher Zellbereich jedes Mal verwendet werden soll und in welches Feld die Ausgabe genau eingefügt werden soll. Der Eingabebereich und die Ausgabe würden sich auf zwei verschiedenen Blättern befinden. Wie aktualisiere ich das VBA, um dies zu tun? Danke!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey! Weiß jemand, warum diese Formel nach Zeile 87 zu einem Fehler zu führen scheint? Es funktioniert perfekt und an einem bestimmten Punkt gibt es mir nur Fehler für jede Zeile zurück ... was das Schlimmste ist! Weil ich so nah an genau dem bin, was ich hier brauche...
Dieser Kommentar wurde vom Moderator auf der Website minimiert
=INDIRECT(TEXT(MIN(IF(($A$2:$C$9"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&"" It doesn't work
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich möchte eindeutige Zellen aus der ersten Spalte extrahieren, wenn ich sie mit anderen Spalten vergleiche (ich habe drei ungleiche Spalten), wie kann ich das machen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe drei ungleiche Spalten und möchte eindeutige Zellen der ersten Spalte extrahieren. wie kann ich es tun?? vielen Dank im Voraus
Dieser Kommentar wurde vom Moderator auf der Website minimiert
ich liebe

Extrahieren Sie eindeutige Werte aus mehreren Spalten mit Pivot-Tabelle
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Können Sie bitte die richtige Formel übermitteln ... die VBA-Funktion funktioniert einwandfrei.
Gerade für mein Vorhaben verwende ich lieber die richtige Formel.


Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Weiß jemand für die Ausgabe, wie man es in mehrere Zeilen macht, aber nicht in eine Zeile? (Derzeit wird ein Zeilenergebnis von worksheetfunction.transpose erzielt, aber was ich (als Ergebnis) erreichen möchte, ist, dass bei der Auswahl für 3 Spalten das zurückgegebene Ergebnis auch 3 Spalten statt einer sind
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Diese Matrixformel ist RICHTIG. Daten in den Spalten A bis C, erste Ergebnisformel in Zelle D2 ... Diese unterscheidet sich von anderen Matrixformeln, dass die spätere Formel nach unten kopiert und alle Formeln mit Strg + Umschalt + Eingabetaste gedrückt werden. Diese Matrixformel sollte jedoch in der ersten Zelle mit Strg + Umschalt + Eingabetaste ausgeführt und nach unten kopiert werden.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Muchas gracias por la macro!!! me fue muy util
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe mich an mein Blatt angepasst, gebe aber nur den ersten Wert im definierten Array zurück ... was fehlt mir?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Codi,
Die obige Formel funktioniert gut in meinem Arbeitsblatt, könnten Sie hier einen Screenshot Ihres Datenproblems geben?
Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Könnten Sie in Bezug auf die Formelversion genauer erklären, was dieser Teil tut? *100+COLUMN($A:$C),7^8)),"R0C00") Was sind konkret die * 100, 7 ^ 8 und "R0C000" tun? Ich verstehe alles andere, aber ich kann nicht herausfinden, wofür diese sind.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Etwas spät für meine Antwort hier, aber...
ROW($2:$9)*100 - dies multipliziert die Zeilennummer *100, also wenn es in Zeile 5 ist, ist die Zahl jetzt 500
COLUMN($A:$C) - dies wird zur Zeile*100-Nummer hinzugefügt, wenn es also Zeile 5 Spalte 2 ist, dann ist die Nummer 502.
7 ^ 8)), - dies (glaube ich) soll einen Maximalwert für die Min-Anweisung von früher haben.
"R0C00") - dies formatiert den Text basierend auf der Nummer. Im Beispiel hatten wir 502, also ergibt sich R5C02 (Zeile 5, Spalte 02).

Wenn Sie viele Spalten, aber nicht viele Zeilen haben, können Sie es in ROW($2:$9)* ändern.1000+SPALTE($A:$C),7^8)),"R0C000")
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke für den Code. Ich verwende den VBA-Code dieser Seite. Gibt es eine Möglichkeit, einen Sortiercode hinzuzufügen, nachdem die eindeutigen Werte extrahiert wurden, damit sie automatisch sortiert werden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Können wir eine Uniqdata-Funktion anstelle eines Makros erstellen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, Ilhan,Wenn Sie eine benutzerdefinierte Funktion zum Erstellen einer Formel zur Lösung dieses Problems mögen, kann Ihnen der folgende Code helfen: Wählen Sie nach dem Einfügen des Codes eine Liste von Zellen aus, in die Sie die Ergebnisse einfügen möchten. Geben Sie dann diese Formel ein:=Eindeutige(A1:C4)  in der Bearbeitungsleiste.Drücken Sie Strg + Umschalt + Enter Schlüssel zusammen. 


Function Uniques(ByVal inputRange As Range)
Dim inputArray As Variant
Dim myColl As New Collection
Dim xVal As Variant
Dim outArray() As Variant
On Error Resume Next
With inputRange
inputArray = Application.Intersect(.Cells, .Parent.UsedRange).Value
End With
On Error GoTo 0
On Error Resume Next
For Each xVal In inputArray
myColl.*** Item:=xVal, Key:=(CStr(xVal) & TypeName(xVal))
Next xVal
myColl.Remove "String"
On Error GoTo 0
ReDim outArray(1 To Application.Max(myColl.Count, Application.Caller.Cells.Count))
For xVal = 1 To UBound(outArray)
outArray(xVal) = vbNullString
Next xVal
For xVal = 1 To Application.Min(myColl.Count, Application.Caller.Cells.Count)
outArray(xVal) = myColl(xVal)
Next xVal
If Application.Caller.Columns.Count = 1 Then
Uniques = Application.Transpose(outArray)
Else
Uniques = outArray
End If
End Function
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Czy nach żart?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Die Array-Formel oben funktioniert hervorragend, wenn sie mit Daten in demselben Blatt verwendet wird. Wenn ich jedoch versuche, sie zu verwenden, um auf dieselben genauen Daten aus einem anderen Blatt zu verweisen, gibt die Formel nichts zurück. Ich kann nicht herausfinden, warum. Gibt es eine Einschränkung bei Array-Funktionen, die Sie daran hindert, Bereiche in einem anderen Blatt zu referenzieren?

Vielen Dank für jeden Einblick, den Sie bieten können.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Erin,

Froh, dass ich Helfen kann. Die INDIREKT-Funktion in dieser Formel ist komplizierter zu verwenden, wenn auf Daten in anderen Arbeitsblättern verwiesen wird. Es wird nicht empfohlen, diese Funktion zu verwenden, wenn auf Bereiche in verschiedenen Arbeitsblättern verwiesen wird.

Zum Beispiel: Jetzt sind die Daten in Sheet1, ich möchte auf den Inhalt der Zelle C2 von Sheet1 in Sheet2 verweisen. Geben Sie zunächst in zwei beliebige Zellen in Sheet2, z. B. D1 und D2, Sheet1 bzw. C2 ein. Geben Sie an dieser Stelle die Formel in die leere Zelle von Sheet2 ein:
=INDIRECT("'"&D1&"'!"&D2), dann kann der Inhalt der Zelle C2 in Sheet1 zurückgegeben werden.

Wie Sie sehen können, macht es die Dinge viel komplexer. Hoffe meine Erklärung kann helfen. Einen schönen Tag noch.

Mit freundlichen Grüßen
Mandy
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Herr! Das VBA hat Wunder gewirkt, vielen Dank dafür! Ich habe mich gefragt, ob es möglich ist, die Spalte mit den eindeutigen Werten automatisch zu aktualisieren, wenn ich die Originaldaten ändere.
Bewertet 5 aus 5
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Ioannis,

Froh, dass ich Helfen kann. Nachdem Sie die Originaldaten geändert haben, kann VBA das Ergebnis nicht automatisch aktualisieren. Und der einfachste Weg, den ich mir vorstellen kann, ist das Drücken von Strg + Alt + F9, um alle Ergebnisse in Arbeitsblättern in allen geöffneten Arbeitsmappen zu aktualisieren. Einen schönen Tag noch.

Mit freundlichen Grüßen
Mandy
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für diesen tollen Artikel.

Für Leute, die die verwenden Array-Formel in nicht-englischem Excel dabei ist besonders auf den Textformat-String zu achten: in Ihrem Beispiel: "R0C00".
Für Deutsch würde dies "Z0S00" bedeuten. "S" ist jedoch ein Sonderzeichen, das sich auf Sekunden für die Zeitformatierung bezieht. Dieses Zeichen muss maskiert werden und daher ist die korrekte Formatzeichenfolge für deutsches Excel "Z0\S00".

Ich hoffe, das hilft jemandem in der Zukunft :-)
Es sind noch keine Kommentare vorhanden
Mehr laden

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL