¿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

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 Las 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 Entrar clave para obtener el resultado correcto que necesita. Ver captura de pantalla:

Nota:: 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

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

• Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
• Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
• Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
• Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
• Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
• Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
• Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
• Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
• Más de 300 potentes funciones. Compatible con Office / Excel 2007-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Leer más ... Descarga gratis... Compra... 

---

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!

Leer más ... Descarga gratis... Compra...