Arrays Excel/VBA：基于字段匹配查找行并计算非空值

我有一个excel文件，包含两张表格。第一张表包含名称列表和总计列。第二张工作表可能包含第一张工作表中的名称和三列中输入的一个或多个日期。对于sheet1 A列中的每个名称，我希望搜索sheet2并计算B列、C列和D列中每个名称的条目数。这些计数需要是三个单独的值

最后，我将对这些计数中的每一个应用一个加权值，并将所有计数相加，从而为每个名称生成一个数值

我想我可以在VBA中为每个循环使用a，类似于：

  For Each Item In XXX
      Myname = othername 
   Next

但我真的不知道如何按列获取计数并将其设置为变量？

示例公式：

下面GIF中的引用。您可以根据需要操作公式。 演示：

---

您可以使用CountIf，我认为您不需要VBA。根据条件的数量，CountIf可能是合适的。非常有趣的函数，谢谢大家。我将使用语法！

=COUNTIFS($H$2:$H$21,$A2,I$2:I$21, "<>")