我的代码提示类型不匹配，错误13，请坛友们看下

孙旭白

在网上了看了相关的帖子，自己实在看不出什么地方不对了

孙旭白

这个是蓝桥玄霜字典精华里面的例子

孙旭白

难道我的这个问题太LOW了

abc123281

Sub try()
Dim arr, brr()
arr = Sheet1.Range("a3:i" & Sheet1.Range("a65536").End(xlUp).Row)
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
    s = arr(i, 5) & arr(i, 6) & arr(i, 4)
    If Not d.exists(s) Then
       m = m + 1
       d(s) = m
       ReDim Preserve brr(1 To 8, 1 To m)
       brr(1, m) = 3
       brr(5, m) = 200
       brr(6, m) = 1
       brr(2, m) = arr(i, 5)
       brr(3, m) = arr(i, 6)
       brr(4, m) = arr(i, 4)
       brr(7, m) = arr(i, 7)
       brr(8, m) = 1
    Else
       brr(7, d(s)) = brr(7, d(s)) + arr(i, 7)
       brr(8, d(s)) = brr(8, d(s)) + 1
    End If
Next
Sheet3.Range("b4").Resize(UBound(brr, 2), 8) = Application.Transpose(brr)
End Sub

abc123281

多条件复杂汇总.zip (311.03 KB, 下载次数: 5)

2019-10-3 11:26 上传

点击文件名下载附件