逐行循环Excel求解器宏

Question

我知道这是一个很常见的问题，但我仍然不明白花了几个小时在例子上该做什么。

我有大约3600行两列(T和V)的热力学数据。我试图通过更改V7:V 3624将解决程序循环到零T7:T 3624。每个T只取决于各自的V。

Sub CHE561Project2()
CHE561Project2 Macro

SolverReset
Dim count As Integer
Set count = 1
Do While count <= 3617
SolverOk SetCell:=Sheets("Mixing").Cells("$T$", count), MaxMinVal:=3, ValueOf:=0,
ByChange:=Sheets("Mixing").Cells("$V$", count).Value, EngineDesc:="GRG Nonlinear"
SolverSolve userfinish:=True
Sheets("Mixing").Cells(count, ).Value = Sheets("Mixing").Cells(count, ).Value
count = count + 1
Loop
End Sub

老实说，我不太清楚我在做什么。我很感激你的帮助！

Answer 1

更新:我刚刚把它更改为这个，它起作用了！)

Sub CHE561Project2()
    'CHE561Project2 Macro
    Dim startingRow As Long
    Dim endingrow   As Long
    Dim i           As Long
    startingRow = 7
    endingrow = 3624
    For i = startingRow To endingrow
    SolverReset

    SolverOk SetCell:="$T$" & i, MaxMinVal:=3, ValueOf:=0, ByChange:="$V$" & i, EngineDesc:="GRG Nonlinear"
    SolverSolve UserFinish:=True
    Next
    SolverSolve (True)
    SolverSolve UserFinish:=True
    SolverFinish KeepFinal:=1
    
End Sub