¿Cómo extraer dinámicamente una lista de valores únicos de un rango de columnas en Excel?

Para un rango de columnas cuyos valores cambian regularmente, y siempre necesitas obtener todos los valores únicos del rango sin importar cómo haya cambiado. ¿Cómo hacer una lista dinámica de valores únicos? Este artículo te mostrará cómo manejarlo.

Extraer dinámicamente una lista de valores únicos de un rango de columnas con fórmula
Extraer dinámicamente una lista de valores únicos de un rango de columnas con código VBA

Extraer dinámicamente una lista de valores únicos de un rango de columnas con fórmula

Como se muestra en la captura de pantalla a continuación, necesitas extraer dinámicamente una lista de valores únicos del rango B2:B9. Por favor, prueba la siguiente fórmula matricial.

1. Selecciona una celda en blanco como D2, introduce la siguiente fórmula en ella y presiona simultáneamente las teclas Ctrl + Shift + Enter. (B2:B9 es el rango de datos de columna del que deseas extraer los valores únicos, D1 es la celda anterior donde está ubicada tu fórmula)

=SI.ERROR(INDICE($B$2:$B$9; COINCIDIR(0;CONTAR.SI($D$1:D1; $B$2:$B$9); 0));"")

2. Mantén seleccionada la celda D2, luego arrastra el controlador de relleno hacia abajo para obtener todos los valores únicos del rango especificado.

Ahora todos los valores únicos en el rango de columna B2:B9 han sido extraídos. Cuando los valores en este rango cambien, la lista de valores únicos cambiará dinámicamente de inmediato.

Extraer dinámicamente una lista de valores únicos de un rango de columnas con código VBA

También puedes extraer una lista de valores únicos dinámicamente de un rango de columnas con el siguiente código VBA.

1. Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Extraer una lista de valores únicos de un rango

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: En el código, D2 es la celda donde se ubicará la lista de valores únicos. Puedes cambiarla según sea necesario.

3. Regresa a la hoja de trabajo, haz clic en Insertar > Formas > Rectángulo. Ver captura de pantalla:

4. Dibuja un rectángulo en tu hoja de trabajo, luego ingresa las palabras que necesitas mostrar en él. Luego haz clic derecho sobre él y selecciona Asignar Macro desde el menú contextual. En el cuadro de diálogo Asignar Macro, selecciona CreateUniqueList en el cuadro Nombre de la Macro, y luego haz clic en el botón Aceptar. Ver captura de pantalla:

5. Ahora haz clic en el botón del rectángulo, aparecerá un cuadro de diálogo de Kutools para Excel, por favor selecciona el rango que contiene los valores únicos que necesitas extraer, y luego haz clic en el botón Aceptar.

A partir de ahora, puedes repetir el paso 5 mencionado anteriormente para actualizar automáticamente la lista de valores únicos.

Artículos relacionados:

• ¿Cómo crear un calendario mensual dinámico en Excel?
• ¿Cómo insertar una imagen o imagen dinámicamente en una celda basada en el valor de la celda en Excel?
• ¿Cómo crear un hipervínculo dinámico a otra hoja en Excel?