Jak pominąć i zwrócić wiele wartości bez duplikatów w programie Excel?
Czasami możesz chcieć pominąć i zwrócić wiele dopasowanych wartości jednocześnie do jednej komórki. Ale jeśli w zwracanych komórkach znajdują się powtarzające się wartości, w jaki sposób można zignorować duplikaty i zachować unikalne wartości tylko podczas zwracania wszystkich pasujących wartości, jak pokazano na zrzucie ekranu w programie Excel?
Wyszukaj i zwróć wiele pasujących wartości bez duplikatów za pomocą funkcji zdefiniowanej przez użytkownika
Poniższy kod VBA może pomóc w zwróceniu wielu pasujących wartości bez duplikatów, wykonaj następujące czynności:
1. Przytrzymaj Alt + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: przeglądaj i zwracaj wiele unikalnych dopasowanych wartości:
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. Po wstawieniu kodu kliknij Tools > Referencje w otwartym Microsoft Visual Basic for Applications okno, a następnie w wyskoczył Referencje - VBAProject okno dialogowe, zaznacz Środowisko wykonawcze skryptów firmy Microsoft Microsoft opcja w Dostępne referencje pole listy, zobacz zrzut ekranu:
4. Następnie kliknij OK aby zamknąć okno dialogowe, zapisz i zamknij okno kodu, wróć do arkusza i wprowadź następującą formułę: =MultipleLookupNoRept(E2,A2:C17,3) do pustej komórki, w której chcesz wypisać wynik, naciśnij Wchodzę klucz, aby uzyskać prawidłowy wynik zgodnie z potrzebami. Zobacz zrzut ekranu:
Note: W powyższym wzorze, E2 to kryteria, które chcesz przejrzeć, A2: C17 to zakres danych, którego chcesz użyć, liczba 3 to numer kolumny zawierającej zwrócone wartości.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!