Excel & Word VBA中Dictionary报Object Required错误（Ln82）求助

嘿，我来帮你捋捋这个「Object Required」错误的问题！

你说Dictionary能存储任意内容没错，但存储对象类型（比如Range）的时候有个关键细节容易踩坑——必须用Set关键字来赋值，直接赋值会触发"Object Required"错误，这大概率是你第82行的问题根源。

结合你的工作流程，我给你拆解几个可能的出错点：

1. Dictionary存储Range的正确姿势 #

VBA里，普通值可以直接丢进Dictionary，但对象（比如Range、Workbook这类）必须用Set来绑定引用。举个例子：

' 错误写法：直接赋值对象，会触发"Object Required"
myDict("MyRange") = Selection
' 正确写法：用Set赋值对象引用
Set myDict("MyRange") = Selection

如果你的第82行是在给Dictionary存Range的时候没加Set，那肯定会报这个错。

2. 临时Dictionary是否正确初始化？ #

如果你的临时Dictionary在使用前没有初始化，调用它的方法或赋值时也会触发对象错误。初始化有两种方式：

' 方式1：后期绑定（无需额外引用）
Dim tempDict As Object
Set tempDict = CreateObject("Scripting.Dictionary")
' 方式2：前期绑定（需先在「工具→引用」里勾选Microsoft Scripting Runtime）
Dim tempDict As Dictionary
Set tempDict = New Dictionary

要是你的临时Dict没做这步就直接用，也会出问题。

3. 循环获取Range时的对象有效性 #

你提到循环12次让用户选择Range，要注意用户可能点击取消按钮，这时候返回的Range对象是Nothing，直接存进Dictionary的话，后续调用也会触发对象错误。可以加个判断规避：

Dim userRange As Range
On Error Resume Next ' 捕获用户取消选择的情况
Set userRange = Application.InputBox("请选择范围", Type:=8)
On Error GoTo 0
If Not userRange Is Nothing Then
    Set tempDict("Range" & i) = userRange
Else
    MsgBox "你取消了选择，跳过本次循环"
    ' 这里可以加循环跳过的逻辑
End If

4. 第82行的具体场景排查 #

如果上面的点都没问题，你可以把第82行附近的代码贴出来，但根据你的描述，最大概率还是存储Range时没加Set或者Dictionary未初始化。比如假设第82行是myDict("Range" & count) = selectedRange，改成Set myDict("Range" & count) = selectedRange应该就能解决。

最后再提一句：VBA的Dictionary虽然灵活，但对象类型的存储一定要注意Set的使用，这是很多新手容易忽略的小细节～

内容的提问来源于stack exchange，提问作者Jeffrey William Kaemmerling