¿Cómo extraer dinámicamente una lista de valores únicos de un rango de columnas en Excel?
Para un rango de columna cuyos valores cambian regularmente, y siempre necesita obtener todos los valores únicos del rango sin importar cómo cambió. ¿Cómo hacer una lista dinámica de valores únicos? Este artículo le mostrará cómo manejarlo.
Extraiga dinámicamente una lista de valores únicos de un rango de columna con fórmula
Extraiga dinámicamente una lista de valores únicos de un rango de columnas con código VBA
Extraiga dinámicamente una lista de valores únicos de un rango de columna con fórmula
Como se muestra a continuación, debe extraer dinámicamente una lista de valores únicos del rango B2: B9. Pruebe la siguiente fórmula de matriz.
1. Seleccione una celda en blanco como D2, ingrese la fórmula a continuación y presione el Ctrl + Shift + Participar teclas simultáneamente. (B2: B9 son los datos de la columna de los que desea extraer los valores únicos, D1 es la celda anterior donde se encuentra su fórmula)
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")
2. Siga seleccionando la celda D2, luego arrastre el controlador de relleno hacia abajo para obtener todos los valores únicos del rango especificado.
Ahora se extraen todos los valores únicos en el rango de columnas B2: B9. Cuando los valores en este rango cambian, la lista de valores únicos cambiará dinámicamente inmediatamente.
Seleccione y resalte fácilmente todos los valores únicos en un rango en Excel:
La Seleccione celdas duplicadas y únicas utilidad de Kutools for Excel puede ayudarlo a seleccionar y resaltar fácilmente todos los valores únicos (incluidos los primeros duplicados) o los valores únicos que aparecen solo una vez, así como los valores duplicados que necesite, como se muestra a continuación.
¡Descarga Kutools para Excel ahora! (Pista gratuita de 30 días)
Extraiga dinámicamente una lista de valores únicos de un rango de columnas con código VBA
También puede extraer una lista de valores únicos dinámicamente de un rango de columna con el siguiente código VBA.
1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código VBA en el Módulo ventana.
Código de VBA: extraiga 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
Note: En el código, D2 es la celda en la que ubicará la lista de valores únicos. Puede cambiarlo cuando lo necesite.
3. Regrese a la hoja de trabajo, haga clic en recuadro > Formas > Rectángulo. Ver captura de pantalla:
4. Dibuje un rectángulo en su hoja de trabajo, luego ingrese algunas palabras que necesita mostrar en él. Luego haga clic derecho y seleccione Asignar macro desde el menú contextual. En el Asignar macro cuadro de diálogo, seleccione el Crear lista única existentes Nombre de la macro cuadro, y luego haga clic en el OK botón. Ver captura de pantalla:
5. Ahora haga clic en el botón del rectángulo, un Kutools for Excel aparece el cuadro de diálogo, seleccione el rango que contiene valores únicos que necesita extraer, y luego haga clic en el OK del botón.
A partir de ahora, puede repetir el paso 5 anterior para actualizar la lista de valores únicos automáticamente.
Artículos relacionados:
- ¿Cómo crear un calendario mensual dinámico en Excel?
- ¿Cómo insertar una imagen o una imagen dinámicamente en la celda según el valor de la celda en Excel?
- ¿Cómo crear un hipervínculo dinámico a otra hoja en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!