如题所述
=自定义函数(A:D,F2)
代码文本:
Function 自定义函数(a As Range, b As String)
For i = 2 To 10000
If a.Cells(i, 1) = "" Then Exit For
If a.Cells(i, 1) = b And a.Cells(i, 3) + a.Cells(i, 4) > 8000 Then 自定义函数 = 自定义函数 + 1
Next
End Function