VBA Dictionary动态键读取类属性报错排查与解决方案

你的初步判断不准确，报错和「动态读取单元格值作为字典键」的逻辑本身无关。硬编码键可以正常运行，是因为你手动输入的键的数据类型和字典内存储的键类型恰好匹配；动态读取单元格值触发报错，核心是两个未被处理的问题：

• 键数据类型不匹配：VBA字典默认采用精确匹配规则，数值类型的5455和字符串类型的"5455"会被识别为两个完全不同的键。你存入字典时直接取单元格值，若C列对应单元格为数值格式，存入的键就是数值类型；而读取H列值时，若H列单元格为文本格式，或值前后带不可见空格，就会匹配失败。此时dict(匹配失败的键)会返回空对象Nothing，直接读取.volume/.rate属性就会触发"对象变量或With块变量未设置"错误。
• 缺失键存在性校验：你的代码在Case Else分支直接用H列值检索字典，没有提前判断键是否存在。只要H列出现空值、拼写偏差、未纳入统计的编码，都会直接触发报错，硬编码时你手动输入的都是确认存在的键，因此不会触发该问题。

另外你的代码还有一个隐藏bug：计算lrowRetrieve和lrowLookup时，Cells和Rows没有加ws工作表限定，会默认读取当前活动工作表的行号，若运行代码时活动工作表不是Test，会直接取错数据范围。

按以下步骤修改即可解决问题：

1. 统一字典键类型，全部转为去空格的字符串，从根源避免类型、隐形空格导致的匹配失败
   存入字典时，将原代码name = ws.Cells(i, "C").Value修改为：

   name = Trim(CStr(ws.Cells(i, "C").Value))
   

2. 修复行号读取的隐藏bug，给所有行号计算语句加工作表限定，修改为：

   lrowRetrieve = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
   lrowLookup = ws.Cells(ws.Rows.Count, "H").End(xlUp).Row
   

3. 所有字典检索逻辑前增加Exists校验，遇到不存在的键时做标记方便排查，将原Case Else分支替换为以下代码：

   Case Else
       Dim lookupKey As String
       lookupKey = Trim(CStr(ws.Cells(j, "H").Value))
       If dict.Exists(lookupKey) Then
           ws.Cells(j, "M").Value = dict(lookupKey).volume
           ws.Cells(j, "N").Value = dict(lookupKey).rate
       Else
           ' 键不存在时将对应单元格标浅红，同时在立即窗口输出日志
           ws.Cells(j, "M").Resize(1, 2).Interior.Color = RGB(255, 200, 200)
           Debug.Print "行号" & j & " 不存在匹配键：" & lookupKey
       End If
   

4. 检查所有硬编码的字典键，统一用字符串格式（即键值加英文双引号），和你统一后的键类型保持一致即可。

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