total = total + ActiveCell.Value不适用于每个循环

我有这个代码，我想在另一个工作表中查找一些单元格，如果他们匹配条件，然后添加一个相邻的单元格总数，返回到单元格函数被调用。

Function collectUtfall(A1 As String, Ax As String) Dim rng As Range Dim total As Long: total = 0 Set rng = Sheets("Utfall").Range("M2:O272") Dim cell As Range For Each cell In rng If StrComp(cell.Offset(0, 1).Text, Ax, vbTextCompare) = 0 Then total = total + ActiveCell.Value Else End If Next collectUtfall = total End Function 

问题是执行时出现“循环引用”错误。 以这种方式使用ActiveCell.Value有问题吗？

如果我只是尝试一个值，说10，它的工作就好了：

 total = total + 10 

所以问题必须与ActiveCell.Value ？

Answer 1

 Function collectUtfall(A1 As String, Ax As String) Dim rng As Range Dim total As Long set total = 0 Set rng = Sheets("Utfall").Range("M2:O272") Dim cell As Range For Each cell In rng If StrComp(cell.Offset(0, 1).Text, Ax, vbTextCompare) = 0 Then total = total + Cell.Value Else End If Next Cell collectUtfall = total End Function