¿Cómo visualizar y devolver múltiples valores sin duplicados en Excel?
A veces, es posible que desee visualizar y devolver varios valores coincidentes en una sola celda a la vez. Pero, si hay algunos valores repetidos en las celdas devueltas, ¿cómo podría ignorar los duplicados y solo mantener los valores únicos al devolver todos los valores coincidentes como se muestra en la siguiente captura de pantalla en Excel?
Vlookup y devuelve múltiples valores coincidentes sin duplicados mediante la función definida por el usuario
El siguiente código VBA puede ayudarlo a devolver múltiples valores coincidentes sin duplicados, haga lo siguiente:
1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: Vlookup y devuelve múltiples valores coincidentes únicos:
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. Después de insertar el código, haga clic en Herramientas > Referencias en el abierto Microsoft Visual Basic para aplicaciones ventana, y luego, en la ventana emergente Referencias - VBAProject cuadro de diálogo, comprobar Tiempo de ejecución de secuencias de comandos de Microsoft opción en el Referencias disponibles cuadro de lista, ver captura de pantalla:
4. Luego haga clic OK para cerrar el cuadro de diálogo, guarde y cierre la ventana de código, vuelva a la hoja de trabajo e ingrese esta fórmula: =MultipleLookupNoRept(E2,A2:C17,3) en una celda en blanco donde desea generar el resultado, presione Participar clave para obtener el resultado correcto que necesita. Ver captura de pantalla:
Note: En la fórmula anterior, E2 son los criterios que desea visualizar, A2: C17 es el rango de datos que desea usar, el número 3 es el número de columna que contiene los valores devueltos.
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!