Come estrarre dinamicamente un elenco di valori univoci da un intervallo di colonne in Excel?
Per un intervallo di colonne in cui i valori cambiano regolarmente e devi sempre ottenere tutti i valori univoci dall'intervallo, indipendentemente da come è cambiato. Come creare un elenco dinamico di valori univoci? Questo articolo ti mostrerà come affrontarlo.
Estrai dinamicamente un elenco di valori univoci da un intervallo di colonne con formula
Estrai dinamicamente un elenco di valori univoci da un intervallo di colonne con codice VBA
Estrai dinamicamente un elenco di valori univoci da un intervallo di colonne con formula
Come mostrato nell'immagine sottostante, è necessario estrarre dinamicamente un elenco di valori univoci dall'intervallo B2: B9. Prova la seguente formula di matrice.
1. Seleziona una cella vuota come D2, inserisci la formula sottostante e premi il tasto Ctrl + spostamento + Entra tasti contemporaneamente. (B2: B9 sono i dati della colonna da cui vuoi estrarre i valori univoci, D1 è la cella sopra in cui si trova la tua formula)
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")
2. Continuare a selezionare la cella D2, quindi trascinare la maniglia di riempimento verso il basso per ottenere tutti i valori univoci dall'intervallo specificato.
Ora vengono estratti tutti i valori univoci nell'intervallo di colonne B2: B9. Quando i valori in questo intervallo vengono modificati, l'elenco dei valori univoci verrà modificato immediatamente in modo dinamico.
Estrai dinamicamente un elenco di valori univoci da un intervallo di colonne con codice VBA
È inoltre possibile estrarre dinamicamente un elenco di valori univoci da un intervallo di colonne con il seguente codice VBA.
1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo. Quindi copia e incolla il codice VBA sottostante nel file Modulo finestra.
Codice VBA: estrai un elenco di valori univoci da un intervallo
Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
End If
Next
End Sub
Osservazioni:: Nel codice, D2 è la cella in cui individuerai l'elenco di valori univoci. Puoi cambiarlo secondo le tue necessità.
3. Tornare al foglio di lavoro, fare clic su inserire > Forme > Rettangolo. Vedi screenshot:
4. Disegna un rettangolo nel foglio di lavoro, quindi inserisci alcune parole che devi visualizzare su di esso. Quindi fai clic con il pulsante destro del mouse e seleziona Assegna macro dal menu di scelta rapida. Nel Assegna macro finestra di dialogo, selezionare il CreaListaUnica nello Nome della macro casella, quindi fare clic su OK pulsante. Vedi screenshot:
5. Ora fare clic sul pulsante rettangolo, a Kutools for Excel si apre la finestra di dialogo, selezionare l'intervallo contiene valori univoci che è necessario estrarre, quindi fare clic su OK pulsante.
D'ora in poi, puoi ripetere il passaggio 5 di cui sopra per aggiornare automaticamente l'elenco dei valori univoci.
Articoli correlati:
I migliori strumenti per la produttività in ufficio
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
