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

时间:2012-11-10 21:11:58

标签: excel excel-vba vba

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

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

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

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

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

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

提前致谢

1 个答案:

答案 0 :(得分:0)

说标准列从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。”

我希望这很有用。