有偿求助，一包芙蓉王

独孤逸盛

学习一下
Sub test()
Sheets("结果").Range("a1").CurrentRegion.Cells.Clear
arr1 = Sheets("数据来源").Range("a1").CurrentRegion
ReDim arr2(1 To 1000, 1 To UBound(arr1, 2))
For x = 1 To UBound(arr1)
    If Cells(x, 5) = "" Then Exit Sub
    If Cells(x, 5) = Cells(x + 1, 5) Then
        k = k + 1
        For y = 1 To UBound(arr1, 2)
            arr2(k, y) = arr1(x, y)
        Next y
            小计 = 小计 + Cells(x, 8)
            合计 = 合计 + Cells(x, 8)
    Else
        k = k + 1
        For Z = 1 To UBound(arr1, 2)
            arr2(k, Z) = arr1(x, Z)
        Next Z
            小计 = 小计 + Cells(x, 8)
            合计 = 合计 + Cells(x, 8)
        k = k + 1
        arr2(k, 1) = "小计"
        arr2(k, 8) = 小计
        小计 = 0
    End If
Next x
k = k + 1
arr2(k, 1) = "合计"
arr2(k, 8) = 合计
Sheets("结果").[a1].Resize(k, UBound(arr1, 2)) = arr2
Sheets("结果").Cells.EntireColumn.AutoFit
End Sub

wang-way

LIUZHU 发表于 2024-5-21 14:23
数组的filter方法好像效率挺低的

我是胖子，以后我避免一下，初学。

wang-way

LIUZHU 发表于 2024-5-21 11:30
JSA代码，可以适合你的WPS软件

   [7,8].forEach(y=>temp[7]+=x[7]);                //求和

是不是应该temp[y]+=x[y]

cnmlgb9998

PQ  方案，香不香？？？？？？？？？？？？？？？？？？？？？

wang-way

cnmlgb9998 发表于 2024-5-21 15:04
PQ  方案，香不香？？？？？？？？？？？？？？？？？？？？？

看着头疼呢 不香

usedrange

参与学习一下

LIUZHU

wang-way 发表于 2024-5-21 14:40
[7,8].forEach(y=>temp[7]+=x[7]);                //求和

是不是应该temp[y]+=x[y]

是的，写得太粗心了，谢谢指点。

LIUZHU

wang-way 发表于 2024-5-21 14:40
[7,8].forEach(y=>temp[7]+=x[7]);                //求和

是不是应该temp[y]+=x[y]

之所以没印象结果，是以为第9列的数据是0，但是代码的确不对的，如果第9列不是0，那么计算的结果必然不正确。

LIUZHU

还是更新下附件

wang-way

LIUZHU 发表于 2024-5-21 15:30
是的，写得太粗心了，谢谢指点。

追随您的步伐 你这个代码我 终于看明白了。精妙。一个对象dic记录行号 作为排序的依据，另外一个对象obj用来记录合计行。