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