在EXCEL中批量单变量求解

Sub 宏1()

'

' 宏1 宏

'

'

Dim i As Integer

For i = 2 To 100           '一共有多少次求解，本例从2开始以跳过表头

Range("X" & i).Select    '目标值所在列

Range("X" & i).GoalSeek Goal:=0, ChangingCell:=Range("H" & i)        ’goal:=0，是目标值，H列是需求解的匹配值。

Next i

End Sub