求助求助，VBA代码有时能运行，有时报错，求助各位老大

lingoopiao

论坛vba大佬，求助以下代码作用：将两组数不同进行比较，把不同的数重新排列输出，但是代码有时能运行有时报错！！！折磨啊~~
求助帮忙看看：

Private Sub CommandButton58_Click()
Dim arr(), brr(), al, all, bl
Dim cfile As Workbook, cpath
Dim i,  d, d1
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If TextBox1.Value = "" Then
MsgBox "无数据", vbExclamation, "错误！"
Exit Sub
End If
    cpath = TextBox1.Value
    Set cfile = GetObject(cpath)
    cfile.Sheets("架构表").Activate
    Sheet64.Activate
    Set d = CreateObject("Scripting.Dictionary")
    Set d1 = CreateObject("Scripting.Dictionary")
    al = cfile.Sheets("架构表").range("A2" & 4 ^ 8).End(xlUp).Row
    all = al - 1
    arr() = cfile.Sheets("架构表").range("A2:A" & all).Value
    bl = Sheets("架构表").range("a" & 4 ^ 8).End(xlUp).Row
    brr = Sheets("架构表").range("A3:b" & bl).Value
For i = 1 To UBound(brr)
d(brr(i, 1)) = brr(i, 1)
Next

For i = 1 To UBound(arr)
If Not d.Exists(arr(i, 1)) Then
  d1(arr(i, 1)) = arr(i, 1)
End If
Next
Sheet59.[a1].Resize(d1.Count, 1) = Application.Transpose(d1.keys)’就是这步时而能运行时而报错：类型不匹配T.T
    cfile.Close False
    Set cfile = Nothing
MsgBox "OK", vbExclamation, "！"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
End Sub

naolew

可能是你的字典里装的数据太多了。
transpose()行列转置函数，对转置时d.keys的个数不能超过65536，d.items每个单元格内可容纳的字符不超过256个，否则会报错。

lingoopiao

朱荣兴 发表于 2017-9-6 20:27
改用循环赋值给单元格。

谢谢大佬指点，不过我改成循环赋值，为啥又提示我下标越界啊。。。T.T


    cpath = TextBox1.Value
    Set cfile = GetObject(cpath)
    cfile.Sheets("架构表").Activate
    Sheet64.Activate
    Set d = CreateObject("Scripting.Dictionary")
    Set d1 = CreateObject("Scripting.Dictionary")
    al = cfile.Sheets("架构表").range("A2" & 4 ^ 8).End(xlUp).Row
    all = al - 1
    arr() = cfile.Sheets("架构表").range("A2:A" & all).Value
    bl = Sheets("架构表").range("a" & 4 ^ 8).End(xlUp).Row
    brr = Sheets("架构表").range("A3:b" & bl).Value
For i = 1 To UBound(brr)
d(brr(i, 1)) = ""
Next
For i = 1 To UBound(arr)
If Not d.Exists(arr(i, 1)) Then
v = v + 1
crr(v, 1) = arr(i, 1)
End If
Next
Sheet59.[a1].Resize(UBound(crr), 1) = crr

lingoopiao

naolew 发表于 2017-9-6 19:34
可能是你的字典里装的数据太多了。
transpose()行列转置函数，对转置时d.keys的个数不能超过65536，d.item ...

恩恩，我改了循环赋值，又提示我下标越界，头疼~~~

lingoopiao

朱荣兴 发表于 2017-9-7 12:20
上传你的excel附件来，才好测试代码的，

大佬，帮忙看下， 下标越界