excel VBA 下标越界（错误 9）

Question

如下图，点击清空窗口按钮，提示小标越界，点击调试跳转到第三张图片的样子，代码是：
Private Sub ComboBox1_Change()
Dim n As String, c, d1
Set d1 = CreateObject("Scripting.Dictionary")
n = ComboBox1.Text
c = d(n)
For i = 2 To UBound(Arr)
d1(Arr(i, c)) = ""
Next
ComboBox2.Text = ""
ComboBox2.List = d1.keys
End Sub

清空窗口按钮的代码是：
Private Sub CommandButton2_Click()
'清空窗口内容
On Error Resume Next
Dim i As Integer
For j = 1 To 3
Controls("TextBox" & j).Text = ""
Controls("ComboBox" & j).Text = ""
Next
End Sub

哪位大神帮我看看问题出在哪儿

Answer 1

需要把arr定义为全局变量，因为你这个过程中arr变量没有定义

追问

可以说下具体代码怎么写吗，谢谢

追答

public arr

Answer 2

arr从哪儿跑出来的

追问

追答

没有给ARR赋值，或者您要重新定义一下 REDIM ARR（1 to n, 1 to m）
其中n,m分别表示一维，二维的上限。。。

追问

能不能直接说一下代码怎么改吗，或者加到哪里，谢谢

Answer 3

你先看一下Ubound(Arr)是多少，肯定是空的。