简单的goalseek循环曾经工作，但不再

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

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有公式