如何通过满足不同的条件来计算？

Question

如果满足以下条件，我想要计算'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

非常感谢任何帮助/提示。 非常感谢你：）

Answer 1

我想你是在这之后：

    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