Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo contar el número de elementos de una matriz que cumplen las condiciones en VBA

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

'Recuento de salida, i es una variable

msgbox dicN(arr1(i, 2))