动态IRR计算：设置处置日期后将后续现金流单元格置零的实现方法

方案1：原生公式实现（推荐，无需宏、兼容性强） #

先做单元格定义，你可以根据自己的实际表格调整对应位置：

• 原始日期序列行：A1:H1
• 原始基准现金流行：A2:H2
• 手动输入处置日期单元格：J1
• 手动输入处置金额单元格：J2
• 调整后现金流行：A3:H3（作为计算IRR的辅助行）
• IRR结果输出单元格：J3

操作步骤 #

1. 在A3单元格输入如下公式，向右拉满到H3，自动生成所有调整后的现金流：
   =IF(A1>$J$1,0,IF(A1=$J$1,$J$2,A2))
   公式逻辑：当前列日期晚于处置日期则返回0；刚好等于处置日期则返回填入的处置金额；早于处置日期则沿用原始现金流数值。
2. 在J3单元格输入XIRR计算函数即可自动得到动态IRR：
   =XIRR(A3:H3,A1:H1,0.1)

特殊场景适配 #

如果输入的处置日期不在现有日期序列内，可将调整后现金流公式替换为如下版本，自动匹配最近的早于/等于处置日期的节点：
=IF(A1>MAXIFS($A$1:$H$1,$A$1:$H$1,"<="&$J$1),0,IF(A1=MAXIFS($A$1:$H$1,$A$1:$H$1,"<="&$J$1),$J$2,A2))

方案2：VBA事件触发实现（适合复杂模型，无需辅助行） #

如果你不想新增辅助行，直接修改原始现金流行的数值，可以用工作表变更事件实现自动触发：

1. 按Alt+F11打开VBA编辑器，在左侧工程列表双击你要实现功能的工作表
2. 在代码编辑区粘贴如下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅修改处置日期、处置金额时触发逻辑
    If Not Intersect(Target, Me.Range("J1:J2")) Is Nothing Then
        Dim disposeDate As Date, disposeAmt As Double
        disposeDate = Me.Range("J1").Value
        disposeAmt = Me.Range("J2").Value
        Dim dateCell As Range
        ' 遍历所有日期节点调整现金流
        For Each dateCell In Me.Range("A1:H1")
            If dateCell.Value > disposeDate Then
                Me.Cells(2, dateCell.Column).Value = 0
            ElseIf dateCell.Value = disposeDate Then
                Me.Cells(2, dateCell.Column).Value = disposeAmt
            End If
        Next
        ' 自动重算IRR
        Me.Range("J3").Calculate
    End If
End Sub

3. 保存文件为xlsm格式即可，之后修改J1、J2单元格的内容，就会自动调整现金流并重新计算IRR。

内容的提问来源于stack exchange，提问作者Myles Collier