VBA子过程或函数未定义 怎么解决？

Question

Private Sub CommandButton3_Click()
Dim myarr, mybrr()
ReDim mybrr(0)

myarr = Range("H3:L5")

Set myadic = CreatObject("scripting.dictionary")
Set mybdic = CreatObject("scripting.dictionary")
Set mycdic = CreatObject("scripting.dictionary")

For i = 1 To UBound(myarr)
If myarr(i, 1) <> "" Then myadic(myarr(i, 1)) = ""
Next i

For i = 1 To UBound(myarr)
If myarr(i, 2) <> "" And myadic.exists(myarr(i, 2)) Then
mybdic(myarr(i, 2)) = ""
End If
Next i

k = 0
For i = 1 To UBound(myarr)
If myarr(x, 3) <> "" And mybdic.exists(myarr(i, 3)) Then
k = k + 1
ReDim Preserve mybrr(k)
mybrr(k) = myarr(i, 3)
mycdic(myarr(i, 3)) = ""
End If
Next i

[V2].Resize(k + 1, 1) = Application.Transpose(mybrr)
[W2].Resize(mycdic.Count, 1) = Application.Transpose(mycdic.keys)
End Sub

Answer 1

把CreatObject 改正成CreateObject。单词拼写错误