Wie kann ich mehrere Werte ohne Duplikate in Excel anzeigen und zurückgeben?
Manchmal möchten Sie möglicherweise mehrere übereinstimmende Werte gleichzeitig in einer einzelnen Zelle anzeigen und zurückgeben. Wenn jedoch einige wiederholte Werte in die zurückgegebenen Zellen eingefügt werden, wie können Sie die Duplikate ignorieren und die eindeutigen Werte nur beibehalten, wenn Sie alle übereinstimmenden Werte zurückgeben, wie im folgenden Screenshot in Excel gezeigt?
Suchen Sie mithilfe der benutzerdefinierten Funktion mehrere übereinstimmende Werte ohne Duplikate
Suchen Sie mithilfe der benutzerdefinierten Funktion mehrere übereinstimmende Werte ohne Duplikate
Der folgende VBA-Code kann Ihnen dabei helfen, mehrere übereinstimmende Werte ohne Duplikate zurückzugeben. Gehen Sie dazu folgendermaßen 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: Vlookup und Rückgabe mehrerer eindeutiger übereinstimmender Werte:
Function MultipleLookupNoRept(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer)
Dim xDic As New Dictionary
Dim xRows As Long
Dim xStr As String
Dim i As Long
On Error Resume Next
xRows = LookupRange.Rows.Count
For i = 1 To xRows
If LookupRange.Columns(1).Cells(i).Value = Lookupvalue Then
xDic.Add LookupRange.Columns(ColumnNumber).Cells(i).Value, ""
End If
Next
xStr = ""
MultipleLookupNoRept = xStr
If xDic.Count > 0 Then
For i = 0 To xDic.Count - 1
xStr = xStr & xDic.Keys(i) & ","
Next
MultipleLookupNoRept = Left(xStr, Len(xStr) - 1)
End If
End Function
3. Klicken Sie nach dem Einfügen des Codes auf Tools > Bibliographie im geöffneten Microsoft Visual Basic für Applikationen Fenster, und dann in der herausgesprungen Referenzen - VBAProject Dialogfeld überprüfen Microsoft Scripting-Laufzeit Option in der Verfügbare Referenzen Listenfeld, siehe Screenshot:
4. Dann klick OK Um das Dialogfeld zu schließen, speichern und schließen Sie das Codefenster, kehren Sie zum Arbeitsblatt zurück und geben Sie die folgende Formel ein: =MultipleLookupNoRept(E2,A2:C17,3) in eine leere Zelle, in der Sie das Ergebnis ausgeben möchten, drücken Sie Enter Taste, um das richtige Ergebnis zu erhalten, wie Sie es benötigen. Siehe Screenshot:
Note: In der obigen Formel E2 ist das Kriterium, nach dem Sie suchen möchten, A2: C17 ist der Datenbereich, den Sie verwenden möchten, die Nummer 3 ist die Spaltennummer, die die zurückgegebenen Werte enthält.
Beste Office-Produktivitätstools
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 ...
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!