VBA代码根据excel中另一列中的值对一列中的值求和

Question

我是VBA新手和这个论坛的第一个计时器 - 我已经按照“如何询问”页面上的所有说明 - 我可能错过了一些请做建议

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

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

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

我相信答案在于使用数组，但需要手握这个概念来理解它是如何工作的

Pivot和Excel公式对我不起作用，因为该表是动态的，而报告是静态的，我需要删除用户干预创建报告

提前致谢

Answer 1

说标准列从A1开始，要汇总的colume从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。”

我希望这很有用。