如何将货号尺码颜色进行分类汇总

3190496160

Sub zhengli()
Dim d As Object
Dim br()
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
With Sheet1
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("a1:e" & r)
    ReDim br(1 To UBound(ar), 1 To UBound(ar) * UBound(ar, 2))
    y = 1
    For i = 2 To UBound(ar)
        If Trim(ar(i, 2)) <> "" Then
            If Not dc.exists(Trim(ar(i, 3))) Then
                y = y + 1
                br(1, y) = ar(i, 3)
                dc(Trim(br(1, y))) = y
            End If
            d(Trim(ar(i, 2))) = ""
        End If
    Next i
    m = 1
    For Each k In d.keys
        m = m + 1
        br(m, 1) = k
       For i = 2 To UBound(ar)
            If Trim(ar(i, 2)) = k Then
                t = d(k & "|" & Trim(ar(i, 4)))
                If t = "" Then
                    m = m + 1
                    d(k & "|" & Trim(ar(i, 4))) = m
                    t = m
                    br(m, 1) = ar(i, 4)
                End If
                n = dc(Trim(ar(i, 3)))
                If n <> "" Then
                    br(m, n) = br(m, n) + ar(i, 5)
                End If
            End If
        Next i
    Next k
    .Range("g1:ape1000") = Empty
    .[g1].Resize(m, y) = br
End With
               
                    

3190496160

工作簿1.rar (46.33 KB, 下载次数: 2)

2020-10-18 13:36 上传

点击文件名下载附件

3190496160

工作簿1.rar (46.33 KB, 下载次数: 4)

2020-10-18 13:37 上传

点击文件名下载附件

3190496160

这种问题，用vba数组+字典来处理是最灵活最高效的，不用你实现列出身来，所有的都是代码自动获取，自己看看吧，

2218009163

是不是符合？