下拉菜单问题

cdlibang

Private Sub mc_Change()
Dim SJGL As Workbook, XXXX As Worksheet
Set SJGL = Workbooks("数据管理系统.xlsm")
Set XXXX = SJGL.Worksheets("选项信息")
If Me.mc = "" Then Me.mc.List = Array(""): Exit Sub
If n = 38 Or n = 40 Then Exit Sub
Dim arr, i&, j&, k&, d As Object, d1 As Object
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
'Workbooks("数据管理系统.xlsm").Worksheets("选项信息")
For i = 2 To XXXX.Range("I65536").End(xlUp).Row
    If Not d.exists(XXXX.Range("I" & i)) Then d(XXXX.Range("I" & i)) = ""
Next i
arr = d.keys
For j = 1 To UBound(arr)
    If Left(arr(j), Len(消耗录入.mc)) = 消耗录入.mc Then d1(arr(j)) = (arr(j))

Next j
For k = 0 To d1.Count
    mc.AddItem d1(k)
Next k
消耗录入.mc.DropDown
Set d = Nothing
Set d1 = Nothing
End Sub

求助
这段代码是实现mc中输入文字后，下拉菜单中自动出现以输入文字开头的选项，问题是：如果发现输入错误，把错误的文字删除后，即mc为空，之后在输入时发现下拉菜单为空，哪位帮忙看看，哪里有问题。

zjdh

你不是要求它空吗？
If Me.mc = "" Then Me.mc.List = Array(""): Exit Sub

cdlibang

你不是要求它空吗？
If Me.mc = "" Then Me.mc.List = Array(""): Exit Sub
是的，有点犯懵了，现在好了
多谢