Excel VBA简单代码bug

Question

我正在尝试在Excel中编写一个函数：

1. 遍历每个工作表
2. 检查提供的字符串是否存在于提供的单元格中
3. 如果步骤2的计算结果为True
，则将预定的单元格值添加到返回值

我一直在单步执行我的函数并获取正确的值，直到函数必须将第4个单元格添加到我的返回值。

任何人都知道发生了什么事吗？谢谢！

---

Function Revenue(row As Integer, col As Integer, str As String) As Integer

    Dim i As Integer

        For i = 2 To Worksheets.Count

            If Worksheets(i).Cells(row, col) = str Then

                Revenue = Revenue + Worksheets(i).Cells(21, 2) // Bug occurs on 4th iteration
                Debug.Print Revenue

            End If

        Next i


End Function

Answer 1

在使用之前，您需要为行和 col 建立值。