你再试试。你太马虎了，next都打错了。
另外变量类型不确定时，不定义反而不容易错。
没有e191:e215,b191:b215这些区域的数值，我没法在excel里调试了。
Sub kkkkkk()
For m = 0.663 To 0.664
npv0 = Application.Evaluate("=xnpv(m,e191:e215,b191:b215)")
If Abs(npv0) >= 100 Then
m = m + 0.000001
Else
Range("a219") = m
End If
Next
End Sub
netx 写错了，应该是next
内容全部来源于网络收集，如有侵权，请联系网站删除！