高手看下我的代码哪里出错了啊

孙旭白

这是学习山菊花的字典里面的一个题目：
“”怎么显示5月份新产品的销售记录？“”
提示下标越界
还有redim的用法我不是太理解，高手给解释下什么时候用啊。有时候我用下还总是提示错误。

xuemei0216

Sub a()
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
Dim arr, brr, i&, j&, s$
arr = [f2].CurrentRegion          '数据源
For i = 4 To UBound(arr)
    s = arr(i, 2) & "|" & arr(i, 3)    '条件
    If Not d.exists(s) Then
        ReDim brr(1 To 4)
        brr(1) = arr(i, 2)
        brr(2) = arr(i, 3)
    Else
         brr = d(s)
    End If
    brr(3) = brr(3) + Val(arr(i, 4))     '求和
    brr(4) = brr(4) + Val(arr(i, 5))     '求和
    d(s) = brr
Next
''生成位置
With [m4]
    .CurrentRegion.Offset(3).ClearContents       '清除内容
    .Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))
End With
Set d = Nothing
End Sub

孙旭白

xuemei0216 发表于 2019-9-29 17:50
Sub a()
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")

我的程序问题出在什么地方啊

网海遨游

也来一个分类汇总


Sub tesss()
    Dim arr, brr, crr, i, j, Im, dic
    irow = Range("g65536").End(xlUp).Row
    arr = Range("g4:j" & irow)
    Set dic = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        u = arr(i, 1) & arr(i, 2)
        If u <> "" Then
            If Not dic.exists(u) Then
                dic(u) = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4))
            Else
                dic(u) = Array(arr(i, 1), arr(i, 2), dic(u)(2) + arr(i, 3), dic(u)(3) + arr(i, 4))
            End If
        End If
    Next i
    Im = dic.items
    r = [m65536].End(3).Row
    Range("m4:p" & r).ClearContents
    For j = 1 To dic.Count
       Cells(j + 3, "m").Resize(, 4) = Im(j - 1)
    Next j
    Range("m4:p" & r).Sort [m4], 1, , [n4], 1 '重新排序
End Sub

孙旭白

网海遨游 发表于 2019-9-29 20:20
也来一个分类汇总

我这个表格自己写了个代码在sheet3里面，帮忙看下错在什么地方

孙旭白

网海遨游 发表于 2019-9-29 20:20
也来一个分类汇总

最后CELLS(J+3,"M") 的“m”不知道怎么理解

网海遨游

孙旭白 发表于 2019-9-29 20:39
我这个表格自己写了个代码在sheet3里面，帮忙看下错在什么地方

你的汇总，只针对5月进行分类汇总，就不用考虑4月份了。

For i = 1 To UBound(arr)'这个地方是一处
    u = arr(i, 1) & arr(i, 2)
    If Not dic.exists(u) Then
        dic(u) = ""
    End If
Next

网海遨游

孙旭白 发表于 2019-9-29 20:44
最后CELLS(J+3,"M") 的“m”不知道怎么理解

这里m,是m列
cells(1,2)与cells(1,"b")都表示B1单元格，有时不愿意数M列用哪个数字时，就直接用cells(1,"m")表示[m1]

孙旭白

网海遨游 发表于 2019-9-29 20:45
你的汇总，只针对5月进行分类汇总，就不用考虑4月份了。

For i = 1 To UBound(arr)'这个地方是一处

兄弟，我的题目就是找出五月份最新产品的汇总，需要把四月份的产品类型剔除出去

孙旭白

网海遨游 发表于 2019-9-29 20:45
你的汇总，只针对5月进行分类汇总，就不用考虑4月份了。

For i = 1 To UBound(arr)'这个地方是一处

兄弟，我的题目就是找出五月份最新产品的汇总，需要把四月份的产品类型剔除出去