求和范围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