Cómo contar el número de elementos de una matriz que cumplen las condiciones en VBA
'Supongamos que ya tiene una matriz: arr1
'Utilice un diccionario para implementar el recuento de elementos de la matriz de una sola condición
Set dicN = CreateObject("scripting. "diccionario" )
Para j = 1 a UBound(arr1, 1)
Si no es dicN.exists(arr1(j, 2)) Entonces
dicN .Sumar arr1(j, 2), 1
De lo contrario
dicN(arr1(j, 2)) = dicN(arr1(j, 2)) + 1
Fin si
Siguiente
'Recuento de salida, i es una variable
msgbox dicN(arr1(i, 2))