VBA无法填充输入年份前一年数据的技术求助

核心问题定位 #

你的问题大概率出在字典键的匹配逻辑上，具体可能是以下两种情况：

1. prevYear的数据类型与字典中存储的年份键类型不匹配
2. 程序仅加载了输入年份的数据，未提前加载前一年的数据到字典中

排查与修复步骤 #

1. 先确认键是否存在于字典中

在赋值前添加判断逻辑，同时输出调试信息，明确问题根源：

' 检查输入年份的键
If accountDict.Exists(jurisdiction & yearInput) Then
    Debug.Print "Found key: " & jurisdiction & yearInput
Else
    Debug.Print "Missing key: " & jurisdiction & yearInput
End If

' 检查前一年的键
If accountDict.Exists(jurisdiction & prevYear) Then
    wsTarget.Cells(lastRowTarget + 2, 12 + colOffset).Value = accountDict(jurisdiction & prevYear)
Else
    Debug.Print "Missing key: " & jurisdiction & prevYear
    ' 顺便打印字典所有键，对比排查
    Dim key As Variant
    For Each key In accountDict.Keys
        Debug.Print "Dict key: " & key & " | Type: " & TypeName(key)
    Next key
End If

运行后查看立即窗口（Ctrl+G），如果显示前一年的键不存在，说明要么类型不匹配，要么数据没加载。

2. 统一年份的类型（解决类型不匹配问题）

VBA字典的键是严格区分数据类型的，比如字符串"2021"和数值2021会被视为两个不同的键。如果yearInput是用户输入的字符串（比如从单元格文本获取），而prevYear是通过yearInput -1得到的数值，拼接后的键类型就会和字典中存储的键不匹配。

解决方法：统一将年份转为字符串类型：

' 把输入年份转为字符串
Dim yearStr As String
yearStr = CStr(yearInput)

' 计算前一年并转为字符串
Dim prevYearStr As String
prevYearStr = CStr(CLng(yearStr) - 1)

' 使用字符串类型的年份拼接键
wsTarget.Cells(lastRowTarget + 2, 11 + colOffset).Value = accountDict(jurisdiction & yearStr)
wsTarget.Cells(lastRowTarget + 2, 12 + colOffset).Value = accountDict(jurisdiction & prevYearStr)

3. 确保字典加载了前一年的数据

如果调试发现前一年的键确实不在字典中，说明你的数据加载逻辑只处理了用户输入的年份，未加载前一年的数据。需要修改加载逻辑，当用户输入yearInput时，同时加载yearInput和yearInput-1两年的数据。

比如原来的加载代码可能是这样的：

' 仅加载输入年份的数据
LoadDataToDict yearInput

需要改成：

' 同时加载输入年份和前一年的数据
LoadDataToDict yearInput
LoadDataToDict CLng(yearInput) - 1

（假设LoadDataToDict是你用来加载对应年份数据到字典的子过程）

内容的提问来源于stack exchange，提问作者Muhammad Uzair Aziz