将变量的值添加到循环中的下一个变量中

Question

我需要在我写的代码中提供帮助，此代码正在处理E列中的每个单元格，并且如果它在列中指定的列中找到单词“Total”可变ChargebleHours细胞在同一行F的列值的代码是：

Sub ChargeableHours() 
DIM E as Range,F as Range, r as Range 
SET E = Intersect(ActiveSheet.UsedRange, Range("E:E")) 
FOR Each r IN E 
    If Left(r.Text,5) = "Total" Then 
     ChargebleHours = Cells(r.Row,"F").Value 
    End If 
Next r 
EndSub 

现在我有落实，其中存储有变量ChargebleHours的价值先前发现并添加到下一个值是第二循环的麻烦认定。

Answer 1

也许你的意思是这样：

ChargebleHours = ChargebleHours + Cells(r.Row,"F").Value 

或本：

Cells(r.Row,"E").Value = Cells(r.Row,"E").Value + ChargebleHours