求高手指点VBA多个乘积汇总的问题

hoooops

各位大佬，我现在这张表，需要计算每种规格的缺陷材积（厚度*宽度*长度*缺陷数量）/10000000=缺陷材积（m³），然后按每种缺陷进行汇总。由于数据很多，而且参杂了不同的规格。所以希望通过vba来进行高效处理，但是限于本人基础太薄弱了，借助AI调试了好久还是达不到预期的效果，特来论坛请教各位大佬，还望各位大佬不吝赐教。

3190496160

哪些区域是需要计算的，如何计算要有具体的说明，别人才能帮到你的

hoooops

3190496160 发表于 2024-12-23 15:41
哪些区域是需要计算的，如何计算要有具体的说明，别人才能帮到你的

老师您好，抱歉我没描述清楚，具体的计算要求如下：
在表中，两行黄色的单元格隔开的为“箱”，每箱内有若干“包”材料，材料规格各异，“打包检验缺陷材”记录了不同类型的缺陷以及数量。
现在要求在不更改表格布局的情况下，按“缺陷”类别，计算出缺陷的总材积。计算公式：(厚度*宽度*长度*缺陷数)/1000000。比如求和每箱中“蓝变”“钝棱”......的总的材积。

dambcer

titi012

如果我没有猜错，好像是一个挺简单的问题，公式就可以了。

P12 输入公式、数组公式，然后右拉。

1. =SUM(P3:P10*$K$3:$K$10*$L$3:$L$10*$M$3:$M$10/10000000)

复制代码

3190496160

Sub 计算材积()
Dim ar As Variant
Dim i As Long
With Sheet1
    r = .Cells(Rows.Count, 10).End(xlUp).Row
    .Range("z3:z" & r) = Empty
    ar = .Range("a2:z" & r)
    For i = 2 To UBound(ar)
        If ar(i, 10) <> "" Then
            ar(i, 26) = ar(i, 11) * ar(i, 12) * ar(i, 13) / 10000000
        End If
    Next i
    .[z2].Resize(UBound(ar), 1) = Application.Index(ar, 0, 26)
End With
MsgBox "ok!"
End Sub

3190496160

3190496160

猜的，供参考
VBA测试.rar (23.42 KB, 下载次数: 2)

2024-12-23 16:14 上传

点击文件名下载附件

hoooops

dambcer 发表于 2024-12-23 16:09

感谢老师的无私指导，受益良多。感谢。

hoooops

titi012 发表于 2024-12-23 16:11
如果我没有猜错，好像是一个挺简单的问题，公式就可以了。

P12 输入公式、数组公式，然后右拉。

谢谢老师的回复，公式确实能做到，但是无奈数据量太大了，年底忙，只能来求教了。