VBA报错：Range对象的'Default'方法执行失败，NPV计算遇问题

错误原因分析 #

这个错误本质是Range对象的默认值（单元格内容）无法正常读取，结合你的代码，核心问题有这些：

• 没指定具体工作表，依赖活动工作表容易出现引用偏差
• 循环终止条件错误（判断单元格等于空格而非空值），要么无限循环要么越界引用单元格
• 没处理单元格为空/非数值的情况，运算时触发类型不匹配
• 变量未声明，隐式类型转换容易引发意外错误

修正后的代码 #

Sub CalculateNPV()
    ' 声明变量
    Dim ws As Worksheet
    Dim N As Double
    Dim c As Integer
    Dim i As Integer
    Dim rate As Double
    Dim initialCashFlow As Double
    
    ' 指定操作的工作表，把"Sheet1"换成你的实际表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 校验折现率是否有效
    If IsNumeric(ws.Range("A5").Value) Then
        rate = ws.Range("A5").Value
    Else
        MsgBox "A5必须输入有效的折现率（数值类型）"
        Exit Sub
    End If
    
    ' 校验初始现金流是否有效
    If IsNumeric(ws.Range("B5").Value) Then
        initialCashFlow = ws.Range("B5").Value
    Else
        MsgBox "B5必须输入有效的初始现金流（数值类型）"
        Exit Sub
    End If
    
    N = initialCashFlow
    c = 0
    
    ' 循环统计现金流列数，遇到空单元格终止，同时限制最大列数防止越界
    Do While c < 20 ' 可根据实际调整最大列数
        c = c + 1
        If ws.Cells(5, c + 2).Value = "" Then
            Exit Do
        End If
    Loop
    
    ' 遍历计算每期现金流的现值
    For i = 1 To c - 1 ' 修正循环计数偏差
        If IsNumeric(ws.Cells(5, i + 2).Value) Then
            N = N + ws.Cells(5, i + 2).Value / (1 + rate) ^ i
        Else
            MsgBox "第" & i & "期现金流单元格不是有效数值"
            Exit Sub
        End If
    Next i
    
    ' 输出NPV结果
    ws.Range("G8").Value = N
End Sub

关键修改说明 #

• 指定工作表：明确操作的目标工作表，避免切换活动表导致的引用错误
• 变量声明：强制声明变量类型，消除隐式转换带来的不确定性
• 数值校验：读取单元格前先判断是否为有效数值，提前报错避免运算崩溃
• 修正循环逻辑：以空单元格作为终止条件，同时限制最大列数防止越界，修正计数偏差
• 显式调用Value属性：虽然VBA默认会读取Value，但显式写出更清晰，避免歧义

内容的提问来源于stack exchange，提问作者Rohit S Krishnan