求助大神，计算领用金额

dnvjfdeuff

求助大神，通过（期初金额+本期金额）/（期初数量+本期数量）*领用数量=领用金额，并合计金额，计算出期末数量及金额。

longwin

因不确定你这个合并单元格一定都是8行，所以只能用单元格取数了，否则用数组速度能快不少。

Sub test()
    With Sheet1
        zh = .[B2].End(xlDown).Row
        i = 3
        Do While i < zh
            If .Cells(i, 1) <> "" Then
                hyje = 0: hysl = 0: dj = 0
                hbl = Cells(i, 1).MergeArea.Rows.Count
                ksh = i: jsh = i + hbl - 1
                If (.Cells(ksh, "c") + .Cells(ksh, "e")) <> 0 Then dj = (.Cells(ksh, "d") + .Cells(ksh, "f")) / (.Cells(ksh, "c") + .Cells(ksh, "e"))
                For j = ksh + 1 To jsh
                        .Cells(j, "m") = .Cells(j, "l") * dj
                        hyje = hyje + .Cells(j, "m")
                        hysl = hysl + .Cells(j, "l")
                Next
                .Cells(ksh, "l") = hysl
                .Cells(ksh, "m") = hyje
                .Cells(ksh, "g") = .Cells(ksh, "i") + .Cells(ksh, "l")
                .Cells(ksh, "h") = .Cells(ksh, "j") + .Cells(ksh, "m")
                .Cells(ksh, "o") = .Cells(ksh, "c") + .Cells(ksh, "e") - .Cells(ksh, "g")
                .Cells(ksh, "p") = .Cells(ksh, "d") + .Cells(ksh, "f") - .Cells(ksh, "h")
            End If
            i = jsh + 1
        Loop
    End With
End Sub

dnvjfdeuff

longwin 发表于 2024-7-6 00:29
因不确定你这个合并单元格一定都是8行，所以只能用单元格取数了，否则用数组速度能快不少。

Sub test()
...

大神，好像搞错了，

dnvjfdeuff

B列行数不确定的

longwin

dnvjfdeuff 发表于 2024-7-6 07:18
大神，好像搞错了，

哪里不对？

dnvjfdeuff

longwin 发表于 2024-7-6 09:19
哪里不对？

谢谢，我下载你的上传文件，原因，解决了，非常感谢

longwin

解决了可以送良多小花嘛

dnvjfdeuff

longwin 发表于 2024-7-6 00:29
因不确定你这个合并单元格一定都是8行，所以只能用单元格取数了，否则用数组速度能快不少。

Sub test()
...

大神能不能改一下代码，单元格事件，数据量大时，反应有些，会卡顿，能否改成数组

longwin

如何触发的？发代码看看

longwin

已修改为字典+数组