教材代码如下，按说明，仅用来计算一行现金流量。
'计算一行现金流量的净现值，输入值用 折现率、和现金流区域
Function nNPV(Rate, R)
       nNPV = R(1) + Application.WorksheetFunction.NPV(Rate, R.Range("B1", R.End(xlToRight)))
End Function

情景1，此时正常

cf	(400.00)	100.00	100.00	100.00	100.00
折现率	10.00%
nnpv	(83.01)	<-- =nNPV(B737,B736:F736)

情景2， 此时异常，即从C737:G737及以下的所有行里，如果输入数值，该函数都会算入净现值。请教该如何解决此问题？谢谢。
a           b                    c                 d              e              f           g
cf           (400.00)                100.00         100.00         100.00         100.00        
折现率        10.00%        100.00                                                       100.00
nnpv        86.84         <-- =nNPV(B737,B736:F736)                               
                                                              100.00