VBA Excel 2016中未定义子项或函数

以下是我的职责：

我不知道为什么它不运行。这是我第一次使用VBA-我使用MsgBox运行了一个测试程序，MsgBox正确地出现了。我添加了所有可能的引用，该子项显示在我的宏列表中。只有在运行它时，我才会得到一个编译错误——断点在代码的第一行被切换。任何和所有的帮助将不胜感激

Sub Calculate()

Dim i As Integer
Dim j As Integer

For i = 2 To 13
    For j = 1 To 12
        If Cell(i, 3).Value = Cell(j, 16).Value And Cell(i, 2).Value = Cell(j, 15) Then
            Cell(i, 25).Value = (Cell(i, 10).Value) / (Cell(j, 23).Value)
        End If
    Next j

Next i

End Sub

正如SJR所评论的，在您的代码中，假设它是单元格而不是单元格引用。

---

手机不是手机。啊，非常感谢。在VBE中运行

Debug>compile

之前编译良好，这让我感觉非常好。如果不确定单元格所属的工作表，也可能会得到意外结果。请使用

    Sub Calculate()

        Dim i As Integer
        Dim j As Integer

        For i = 2 To 13
            For j = 1 To 12
                If Cells(i, 3).Value = Cells(j, 16).Value And Cells(i, 2).Value = Cells(j, 15) Then
                    Cells(i, 25).Value = (Cells(i, 10).Value) / (Cells(j, 23).Value)
                End If
            Next j

        Next i

End Sub