Red de conocimiento informático - Descarga de software - Utilice VBA para contar la cantidad de datos que cumplen con las condiciones. Por favor, ayúdenme.

Utilice VBA para contar la cantidad de datos que cumplen con las condiciones. Por favor, ayúdenme.

Sub?mysub()

Dim?countA?As?Integer

Dim?countB?As?Integer

Para?i ?=?1?To?Range("B65536").End(xlUp).Row

If?Cells(i,?2).Value?=?[O2]?And?Cells(i ?+?1,?2).¿Valor?=?[O3]?Entonces

Si?Cells(i?+?2,?"L").Valor?=?"A"?Entonces

countA?=?countA?+?1

ElseIf?Cells(i?+?2,?"L").Value?=?"B"?Then p>

countB?=?countB?+?1

Fin?Si

Fin?Si

Siguiente

[ Q3]?=?countA

[R3]?=?countB

Fin?Sub