Sub st()
Dim arr, d, i%, r_end%
r_end = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("b1:e" & r_end)
For i = 2 To UBound(arr)
If arr(i, 2) >= 25 And arr(i, 3) >= 201601 Then
If InStr(arr(i, 1),“科") Then
d = d + 1
End If
End If
Next i
MsgBox "符合条件的人数" & d & "人"
End Sub