VBA代码基于Excel中另一列中的值对一列中的值求和

Question

我是VBA新手，并且是该论坛的首次参加者-我已经按照“如何提问”页面上的所有说明进行操作-我可能错过了一些内容，请务必提出建议

我正在根据以下列标题创建用于项目跟踪的EV报告（为简洁起见，仅显示了一些）

"TaskName" "Status" "BaselineStart" "BaselineFinish" "BaselineEffort"

在检查BaselineFinish列中的值是否小于或等于第7天值后，需要以7天为增量对BaselineEffort列中的值求和

我相信答案在于使用数组，但是需要掌握该概念才能理解其工作原理

数据透视表和Excel公式对我不起作用，因为表是动态的，而报表是静态的，我需要在创建报表时消除用户干预

提前致谢

Answer 1

说，条件列从A1开始，要求和的求和列从B1开始

do while not isempty(range("a1").offset(x,0))
  if range("a1").offset(x,0) = SomeValue then
    sum = sum + range("a1").offset(x,0)
  end if
  x = x + 1
loop

该代码将一直运行，直到查看了A列中的每个项目为止，并且如果A列中的值等于“ SomeValue”，则将B列中的值加到我称为“ sum”的总和中。 我怀疑您实际上可以使用变量名称“ sum”。

我希望这是有用的。