简单的goalseek循环用于工作，但不再是

Question

我过去曾经使用过这个简单的goalseek循环，它始终有效。基本上，它为列中的每个单元格运行goalseek。 我今天尝试使用它，我得到了“运行时错误1004”。我无法弄清楚出了什么问题。这个简单的宏仍然适用于旧的电子表格，但它不适用于我刚刚制作的新电子表格。我尝试改变范围，改变文件，没有。任何帮助将不胜感激。

Sub goalcicle()
    Dim Cell As Range
    For Each Cell In Range("P13:P112").Cells
    Cell.GoalSeek 0, Cell.Offset(0, 7)
    Next Cell
End Sub

Answer 1

Goal Seek要求您从公式开始。

确保Range("P13:P112").Cells范围内的所有单元格都包含公式