求Microsoft Access查询或VBA代码：按百分比填充Null值

示例数据 #

需求：当Value字段为Null时，用上一个非Null值按指定百分比（如2.5%）递增填充，例如2008年值为4*1.025=4.1，2009年为4.1*1.025≈4.2025。

方案1：使用Access查询生成填充结果 #

以下查询会返回填充后的结果（不修改原表），假设表名为YourTable，增长率为2.5%：

SELECT
    t.Date,
    (
        SELECT TOP 1 Base.Value * (1.025 ^ DATEDIFF("yyyy", Base.Date, t.Date))
        FROM YourTable AS Base
        WHERE Base.Value IS NOT NULL AND Base.Date <= t.Date
        ORDER BY Base.Date DESC
    ) AS FilledValue
FROM YourTable AS t
ORDER BY t.Date;

逻辑说明 #

• 子查询定位当前记录之前最近的非Null值
• DATEDIFF("yyyy", ...)计算当前记录与基准记录的年份差，作为增长次数
• 1.025 ^ 年份差计算总增长倍数，与基准值相乘得到填充结果

方案2：使用VBA直接更新原表 #

如果需要批量修改原表中的Null值，VBA更灵活，步骤如下：

1. 按Alt+F11打开VBA编辑器，插入新模块
2. 粘贴以下代码（替换YourTable为你的表名）：

Sub FillNullsWithGrowth()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim lastValidVal As Double
    Dim growthMultiplier As Double
    
    ' 配置参数
    Set db = CurrentDb()
    ' 按日期升序打开记录集，确保顺序正确
    Set rs = db.OpenRecordset("SELECT * FROM YourTable ORDER BY Date", dbOpenDynaset)
    growthMultiplier = 1.025 ' 对应2.5%增长率

    ' 遍历记录
    Do While Not rs.EOF
        If Not IsNull(rs!Value) Then
            lastValidVal = rs!Value
        Else
            ' 用上一个有效值/已填充值计算当前值
            lastValidVal = lastValidVal * growthMultiplier
            rs.Edit
            rs!Value = lastValidVal
            rs.Update
        End If
        rs.MoveNext
    Loop

    ' 清理资源
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    MsgBox "Null值填充完成"
End Sub

注意事项 #

• 确保记录按Date升序排列，否则填充顺序会出错
• 如果需要调整增长率，修改growthMultiplier的值即可（如3%则设为1.03）

内容的提问来源于stack exchange，提问作者Musab Malik