Sub re()
Dim x As Integer
For x = 1 To 16945
Range("I" & x).GoalSeek Goal:=0, ChangingCell:=Range("H" & x)
Next x
End Sub
下面是图示，I列里面有公式的

不知道代码哪里出错了，求大神告知。