Cómo filtrar datos usando EXCEL o programación

Una macro

Sub?bj()

'Desde la primera línea hasta la última línea

Para?n?=? 1 ?To?Range("a1").End(xlDown).Row

Utilice espacios como intervalos para obtener la primera columna de la fila actual, matriz

l?=? Split(Cells( n,?1),?"?") 'Obtiene el número de columnas en la fila actual

ls?=?Range(Cells(n,?1),?Cells(n ,?1)).End (xlToRight).Column 'De la segunda columna a la última columnaFor?m?=?2?To?ls

p?=?Split(Cells(n,?m ),?"?") c?=?0 For?a?=?0?To?5

For?b?=?0?To?5

'Comparación Contar

Si?l(a)?=?p(b)?Entonces?c?=?c?+?1

Siguiente Siguiente

Si ?c?>=?4 ?Entonces 'Si? un conjunto de datos tiene 4 o más elementos idénticos, escriba al final de los datos Cells(n,?ls?+?1)?=?Cells(n,?ls ?+?1)?+ ?1

¿Fin?Si es siguiente

Siguiente

Fin?Sub