在Excel VBA模块中使用GoalSeekfunction

任何人都可以帮助我理解为什么第一个子作品，但第二个给出一个无效的参考？

Sub tester1() Range("Q5").GoalSeek goal:=2000000, changingcell:=Range("P5") End Sub Sub tester3() Dim rngRow As Range For Each rngRow In Range("P5").Rows rngRow.Cells(0, 1).GoalSeek goal:=2000000, changingcell:=rngRow.Cells(0, 0) Next rngRow End Sub 

提前致谢。

Answer 1

Cells(0, 1)和Cells(0, 0)无效 – 行和列应该大于0

 Range("A1") = Cells(1, 1) 'Cells(row, col) Range("A2") = Cells(2, 1) Range("B1") = Cells(1, 2) Range("B2") = Cells(2, 2) 

---

用这个testing：

 Sub tester3() Dim cel As Range For Each cel In Range("Q5:Q10") cel.GoalSeek Goal:=2000000, ChangingCell:=cel.Offset(0, -1) Next rngRow End Sub