Come visualizzare e restituire più valori senza duplicati in Excel?
A volte, potresti voler visualizzare e restituire più valori corrispondenti in una singola cella contemporaneamente. Ma, se ci sono alcuni valori ripetuti popolati nelle celle restituite, come potresti ignorare i duplicati e mantenere solo i valori univoci quando restituisci tutti i valori corrispondenti come mostrato nella seguente schermata in Excel?
Vlookup e restituisce più valori corrispondenti senza duplicati utilizzando la funzione definita dall'utente
Il seguente codice VBA può aiutarti a restituire più valori corrispondenti senza duplicati, per favore fai come segue:
1. Tieni premuto il Alt + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: Vlookup e restituisce più valori corrispondenti univoci:
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. Dopo aver inserito il codice, fare clic su Strumenti > Riferimenti in aperto Microsoft Visual Basic, Applications Edition finestra, e poi, nel saltato fuori Riferimenti - VBAProject finestra di dialogo, controllare Runtime di script Microsoft opzione nel Riferimenti disponibili casella di riepilogo, vedi screenshot:
4. Quindi fare clic OK per chiudere la finestra di dialogo, salvare e chiudere la finestra del codice, tornare al foglio di lavoro e immettere questa formula: =MultipleLookupNoRept(E2,A2:C17,3) in una cella vuota in cui si desidera visualizzare il risultato, premere entrare chiave per ottenere il risultato corretto di cui hai bisogno. Vedi screenshot:
Note:: Nella formula sopra, E2 sono i criteri che desideri esaminare, A2: C17 è l'intervallo di dati che si desidera utilizzare, il numero 3 è il numero di colonna che contiene i valori restituiti.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!