將變量的值添加到循環中的下一個變量中

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