Excel动态月度支出追踪表数据录入功能实现咨询

以下是无第三方插件、兼容主流Excel版本的落地方法，完全匹配月份下拉联动、数据自动加载、可直接编辑新增的需求：

前期工作表配置 #

先把工作簿的工作表按功能拆分，逻辑清晰不容易乱：

• Sheet1：交互录入页，放月份选择器、固定列录入区
• RawData：（可设置隐藏）全量原始数据存储表，列结构和录入页保持一致，额外加1列自动识别月份的辅助列
• Sheet2：按需求做数据汇总展示即可

固定列统一为：Date（日期） | Name（支出事项） | Category（支出类别） | Amount（金额）

步骤1：配置月份下拉选择器 #

在Sheet1选一个固定单元格作为月份选择入口，推荐用A1，可以给单元格加浅底色标注为操作区：

1. 选中A1，点击顶部菜单栏「数据」→「数据验证」
2. 验证类型选「序列」，来源直接填入Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec
3. 确认后单元格就会出现带12个月份选项的下拉菜单，选值不会出错

步骤2：配置类别列下拉验证 #

选中Sheet1的C列（也就是Category类别列），同样打开数据验证：

• 验证类型选「序列」，来源填入你需要的支出分类，比如餐饮,交通,购物,娱乐,医疗,居家,其他，确认即可
• 可以给RawData表的C列也设置相同的验证规则，避免出现无效分类值

步骤3：实现月份切换自动加载数据+编辑同步 #

如果用Excel 365/2021及以上版本，用函数+简单VBA事件就能实现无刷新联动，编辑内容自动存到原始表：

1. 先切到RawData表，在E列（辅助列）的E2单元格输入公式=TEXT(A2,"mmm")，下拉填充整列——只要A列填入日期，这列会自动生成对应月份的英文缩写，和下拉选的月份值完全匹配，不用手动填写
2. 回到Sheet1，第2行做表头（A2:D2分别填Date/Name/Category/Amount），选中A3单元格输入溢出公式：

=FILTER(RawData!A:D,RawData!E:E=A1,"当月暂无支出记录")

输完回车就会自动加载当前A1选中月份的所有历史支出记录
3. 按Alt+F11打开VBA编辑器，双击左侧工程栏里的Sheet1，粘贴以下代码实现编辑/新增内容自动同步回RawData表，不会因为切换月份丢数据：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 监控范围：A3到D1000的录入区域，可根据你的数据量调整最大行数
    If Not Intersect(Target, Me.Range("A3:D1000")) Is Nothing And Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        Dim selMonth As String, rawSht As Worksheet, lastRow As Long
        selMonth = Me.Range("A1").Value
        Set rawSht = ThisWorkbook.Worksheets("RawData")
        lastRow = rawSht.Cells(rawSht.Rows.Count, "A").End(xlUp).Row
        
        ' 判断是修改现有记录还是新增记录
        If Target.Row <= Range("A3#").Rows.Count + 2 Then
            ' 修改现有记录：同步更新到RawData对应行
            Dim startRow As Long
            startRow = Application.Match(selMonth, rawSht.Range("E:E"), 0)
            rawSht.Cells(startRow + (Target.Row - 3), Target.Column).Value = Target.Value
        Else
            ' 新增记录：追加到RawData表末尾，自动补全月份辅助值
            rawSht.Cells(lastRow + 1, Target.Column).Value = Target.Value
            If Target.Column = 1 Then rawSht.Cells(lastRow + 1, 5).Value = selMonth
        End If
        Application.EnableEvents = True
    End If
End Sub

粘贴完关闭VBA编辑器，保存文件的时候选「启用宏的工作簿（.xlsm）」格式就行。

低版本Excel兼容方案 #

如果你用的是Excel 2019及更早版本，没有FILTER溢出函数，可以用Power Query做参数化查询：

1. 把A1作为月份参数，Power Query读取参数后筛选RawData对应月份的数据，加载到Sheet1的录入区
2. 编辑完数据后手动点「刷新」即可同步回源表，除了不能自动实时同步，其他功能和高版本方案一致。

注意事项：切换A1的月份选项时，录入区会自动清空当前内容、加载目标月份的历史数据，所有修改/新增的内容都会存在RawData表里，不会因为切换操作丢失。

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