用VBA分类汇总

haovogue

zjzyj 发表于 2023-2-22 13:22
代码在文件里面啊

公司打不开，还要抄写，谢谢

zjzyj

haovogue 发表于 2023-2-22 08:57
用宏代码，代替透析

回复8楼，你是想把图2的数据汇总到图1吧？如果是这样，那你的箭头是不是画反了？

下面这段代码是把图2（NOR-CSSL 表）的数据汇总写到图1（出货 表）：

Sub test()

Set ds = CreateObject("scripting.dictionary")
arr = Sheets("NOR-CSSL").Range("A1").CurrentRegion.Value
ReDim brr(1 To UBound(arr) + 1, 1 To 5)
For i = 2 To UBound(arr)
    sss = arr(i, 1) & "|" & arr(i, 6)
    If sss <> "" Then
        If Not ds.exists(sss) Then
            m = ds.Count + 1
            ds(sss) = m
            brr(m, 1) = arr(i, 1)
            brr(m, 2) = arr(i, 6)
            brr(m, 3) = arr(i, 2)
        End If
        m = ds(sss)
        brr(m, 4) = brr(m, 4) + arr(i, 3)
        tt = tt + arr(i, 3)
    End If
Next
brr(ds.Count + 1, 1) = "总计"
brr(ds.Count + 1, 4) = tt
With Sheets("出货")
    .Range("A1").CurrentRegion.Offset(1).ClearContents
    .Range("A2").Resize(ds.Count + 1, 5) = brr
End With

End Sub

haovogue

zjzyj 发表于 2023-2-21 23:19
因贴主文件中的NOR-CSSL表数据与本贴描述不符，所以凭想像猜一个，不知道有没有猜对。见附件

运行时，提示下标越界

zjzyj

haovogue 发表于 2023-2-22 20:27
运行时，提示下标越界

那是因为“NOR-CSSL”表是空的没有数据。你要汇总数据，原始数据总要有的吧？你的贴子我看不懂，我想想原始数据总是要详细一些，字段少一些的是汇总数据，估摸着猜测“NOR-CSSL”表应该是放原始数据的，汇总结果写在“出货”表里

haovogue

不能使用，还是用透析表，非常谢谢了，

zjzyj

haovogue 发表于 2023-2-23 09:29
不能使用，还是用透析表，非常谢谢了，

代码没动，NOR-CSSL表加了一些数据，另外又加了个按钮。点了一下是有结果出来的

haovogue

再帮忙修改一下。谢谢

haovogue

zjzyj 发表于 2023-2-23 14:15
代码没动，NOR-CSSL表加了一些数据，另外又加了个按钮。点了一下是有结果出来的

再帮忙修改一下。谢谢

zjzyj

haovogue 发表于 2023-2-23 20:45
再帮忙修改一下。谢谢

贴主的意思不知道我有没有猜对

haovogue

zjzyj 发表于 2023-2-23 23:25
贴主的意思不知道我有没有猜对

最后4列有公式要保留，请帮忙处理，谢谢了