Come estrarre dinamicamente un elenco di valori univoci da un intervallo di colonne in Excel?

Per un intervallo di colonne i cui valori cambiano regolarmente, è necessario ottenere sempre tutti i valori univoci dall'intervallo indipendentemente da come esso cambi. Come creare un elenco dinamico di valori univoci? Questo articolo vi mostrerà come gestirlo.

Estrarre dinamicamente un elenco di valori univoci da un intervallo di colonne con una formula
Estrarre dinamicamente un elenco di valori univoci da un intervallo di colonne con codice VBA

Estrarre dinamicamente un elenco di valori univoci da un intervallo di colonne con una formula

Come mostrato nello screenshot sottostante, è necessario estrarre dinamicamente un elenco di valori univoci dall'intervallo B2:B9. Provate la seguente formula matriciale.

1. Selezionate una cella vuota come D2, inserite la formula sottostante al suo interno e premete contemporaneamente i tasti Ctrl + Shift + Enter. (B2:B9 è l'intervallo di dati della colonna da cui si desidera estrarre i valori univoci, D1 è la cella sopra dove si trova la vostra formula)

=SE.ERRORE(INDICE($B$2:$B$9; CONFRONTA(0;CONTA.SE($D$1:D1; $B$2:$B$9); 0));"")

2. Mantenete selezionata la cella D2, quindi trascinate la maniglia di riempimento verso il basso per ottenere tutti i valori univoci dall'intervallo specificato.

Ora tutti i valori univoci nell'intervallo di colonne B2:B9 sono stati estratti. Quando i valori in questo intervallo cambiano, l'elenco dei valori univoci verrà aggiornato immediatamente.

Estrarre dinamicamente un elenco di valori univoci da un intervallo di colonne con codice VBA

È anche possibile estrarre dinamicamente un elenco di valori univoci da un intervallo di colonne con il seguente codice VBA.

1. Premere contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic per Applicazioni.

2. Nella finestra Microsoft Visual Basic per Applicazioni, fare clic su Inserisci > Modulo. Quindi copiare e incollare il seguente codice VBA nella finestra Modulo.

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

Nota: Nel codice, D2 è la cella in cui si posizionerà l'elenco dei valori univoci. È possibile modificarla secondo necessità.

3. Tornate al foglio di lavoro, fate clic su Inserisci > Forme > Rettangolo. Vedere lo screenshot:

4. Disegnate un rettangolo nel vostro foglio di lavoro, quindi inserite alcune parole che desiderate visualizzare su di esso. Poi fate clic con il tasto destro del mouse e selezionate Assegna Macro dal menu contestuale. Nella finestra di dialogo Assegna Macro, selezionate CreateUniqueList nella casella Nome macro, quindi fate clic sul pulsante OK. Vedere lo screenshot:

5. Ora fate clic sul pulsante rettangolo, apparirà una finestra di dialogo di Kutools per Excel, selezionate l'intervallo contenente i valori univoci che desiderate estrarre, quindi fate clic sul pulsante OK.

Da adesso in poi, potete ripetere il passaggio 5 di cui sopra per aggiornare automaticamente l'elenco dei valori univoci.

Articoli correlati:

• Come creare un calendario mensile dinamico in Excel?
• Come inserire dinamicamente un'immagine o una foto in una cella basandosi sul valore della cella in Excel?
• Come creare un collegamento ipertestuale dinamico a un altro foglio in Excel?