Wie erstellt man eine Liste einzigartiger Werte über mehrere Arbeitsblätter in Excel?

Beim Arbeiten mit Daten, die über mehrere Arbeitsblätter in Excel verteilt sind, müssen Sie möglicherweise die Informationen konsolidieren und eine Liste einzigartiger Werte generieren. Obwohl Excel keine direkte integrierte Funktion für diese Aufgabe bietet, gibt es mehrere Methoden, um dies zu erreichen. Dieser Artikel führt Sie durch drei praktische Ansätze, um eine Liste einzigartiger Werte aus mehreren Arbeitsblättern zu erstellen.

Erstellen einer Liste einzigartiger Werte aus mehreren Arbeitsblättern

• Mit VBA-Code
• Durch die Verwendung von Kutools AI-Assistent
• Mit Formel (Excel 365)

Erstellen einer Liste einzigartiger Werte aus mehreren Arbeitsblättern mit VBA-Code

Um alle einzigartigen Werte aus allen Arbeitsblättern aufzulisten, kann der folgende VBA-Code helfen. Gehen Sie wie folgt vor:

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 das folgende Makro im Modulfenster ein.

VBA-Code: Erstellen einer Liste einzigartiger Werte aus mehreren Arbeitsblättern:

Sub SheelsUniqueValues()
Dim xObjNewWS As Worksheet
Dim xObjWS As Worksheet
Dim xStrAddress As String
Dim xIntRox As Long
Dim xIntN As Long
Dim xFNum As Integer
Dim xMaxC, xColumn As Integer
Dim xR As Range
xStrName = "Unique value"
Application.ScreenUpdating = False
xMaxC = 0
Application.DisplayAlerts = False
For Each xObjWS In Sheets
    If xObjWS.Name = xStrName Then
        xObjWS.Delete
        Exit For
    End If
Next
Application.DisplayAlerts = True
For xFNum = 1 To Sheets.Count
    xColumn = Sheets(xFNum).Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xMaxC < xColumn Then
        xMaxC = xColumn
    End If
Next xFNum
Application.DisplayAlerts = True
Set xObjNewWS = Sheets.Add(after:=Sheets(Sheets.Count))
xObjNewWS.Name = xStrName
For xColumn = 1 To xMaxC
    xIntN = 1
    For xFNum = 1 To Sheets.Count - 1
        Set xR = Sheets(xFNum).Columns(xColumn)
        If TypeName(Sheets(xFNum).Columns(xColumn).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)) <> "Nothing" Then
            xIntRox = xR.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            Sheets(xFNum).Range(Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address).Copy
            Cells(xIntN, xColumn).PasteSpecial xlValues
            xIntN = xIntRox + xIntN + 1
        End If
    Next xFNum
    If xIntRox - 1 > 0 Then
    xIntRox = xIntN - 1
    xStrAddress = Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range(xStrAddress).Copy
    Cells(1, xColumn + 1).PasteSpecial xlValues
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Columns(xColumn).Delete
    Range(xStrAddress).Sort key1:=Cells(1, xColumn), Header:=xlNo
    End If
Next xColumn
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Nachdem Sie den obigen Code eingefügt haben, drücken Sie F5, um diesen Code auszuführen. Ein neues Arbeitsblatt mit dem Namen Einzigartige Werte wird erstellt, und die einzigartigen Namen in Spalte A aus allen Blättern werden wie im folgenden Screenshot gezeigt aufgelistet:

Erstellen einer Liste einzigartiger Werte aus mehreren Arbeitsblättern mit Kutools AI-Assistent

In diesem Abschnitt zeigen wir Ihnen, wie Sie mühelos eine Liste einzigartiger Werte aus mehreren Arbeitsblättern mit Kutools AI-Assistent erstellen können.

Klicken Sie auf "Kutools" > "AI-Assistent", um den Bereich "Kutools AI-Assistent" zu öffnen. Im Bereich führen Sie bitte die folgenden Schritte aus:

1. Geben Sie die Anforderung im Chatfenster ein, zum Beispiel:
   Extrahieren Sie alle einzigartigen Werte in Spalte A aus allen Arbeitsblättern dieser Arbeitsmappe und listen Sie die einzigartigen Werte in einem neuen Blatt auf.
2. 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". Alle einzigartigen Werte aus mehreren Blättern werden in einem neuen Blatt angezeigt, siehe Demo:
   

Erstellen einer Liste einzigartiger Werte aus mehreren Arbeitsblättern mit Formel (Excel 365)

Wenn Sie eine Liste einzigartiger Werte aus mehreren Arbeitsblättern in Excel mit einer Formel erstellen möchten, können Sie dies erreichen, indem Sie dynamische Array-Funktionen wie UNIQUE und VSTACK in Excel 365 kombinieren.

Bitte geben Sie die folgende Formel in eine leere Zelle ein und drücken Sie dann die Eingabetaste, um einzigartige Werte in einer einzigen Spalte aus mehreren Blättern zu extrahieren. Siehe Screenshot:

=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))

In diesem Artikel haben wir drei effektive Methoden untersucht, um eine Liste einzigartiger Werte aus mehreren Arbeitsblättern in Excel zu erstellen. Jede Methode hat ihre Vorteile, sodass Sie diejenige auswählen können, die am besten zu Ihrer Excel-Version, Ihrem Kenntnisstand und Ihren spezifischen Bedürfnissen passt. Wenn Sie daran interessiert sind, weitere Excel-Tipps und -Tricks zu erkunden, bietet unsere Website Tausende von Tutorials.