如何通过满足不同的条件来计数?

如果满足以下条件,我想计算“a”(a ++):

对于范围b4中的每个单元格,最后使用的行和列:

1)列B中单元格的值不应该等于“TEXT”

2)列M中相应单元格的值不应为空白

3)列G中单元格的相应值应与下列数组的元素匹配:

array = {d,e,f,g,h}

有人能告诉我如何在VBA中做到这一点?

我试过这个代码,但它不工作。

For Each elem In arr1 a = a + WorksheetFunction.SumProduct(--WorksheetFunction.IsNA(WorksheetFunction.Match(.Columns(2), "spare", 0))) + WorksheetFunction.Sum(WorksheetFunction.CountIfs(.Columns(13), "<>" & "", .Columns(7), elem)) Next elem 

任何帮助/提示真的很感激。 非常感谢你 :)

我想你是在这之后:

  For Each elem In arr2 sweet = sweet _ + WorksheetFunction.CountIfs(.Columns(1), "active", .Columns(30), "sugar") _ + WorksheetFunction.CountIfs(.Columns(1), "active", .Columns(31), elem) Next elem