我有这段代码,我想在另一张工作表中查找一些单元格,如果它们符合条件,则将相邻单元格添加到返回到调用单元格函数的总数中。
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
?