对范围VBA中变量的所有实例求和

Question

我有这个代码：

Sub yeartest()
Dim cell As Range
storeval = 0
For Each cell In Range("I7:I17")
If cell.Value = "THISVALUE" Then
Let storeval = cell.Offset(-1, 0).Value

End If
Range("Q18").Activate
ActiveCell.Formula = "=SUM(storeval)"
Next cell
End Sub

代码应该做的是分析范围 I7：I17。每次遇到此范围内值为 THISVALUE 的单元格时，它应该向右移动一个单元格并存储该值。分析整个范围后，应在单元格 Q18 中输出所有单元格的总和 THISVALUE 的一个右侧。

目前，单元格 Q18 在我执行宏时仅显示一个 #NONAME 值。

Answer 1

Sub yeartest()
Dim cll As Range
storeval = 0
For Each cll In Range("I7:I17")
If cell.Value = "THISVALUE" Then
storeval = storeval + cell.Offset(-1, 0).Value
End If
Next cll
Range("Q18")=storeval
End Sub