变动统计问题

adoration

剛剛測試了，上半部小計,合計，總合計，都能正常出來，其中隨機增加單位也能自動加入小計...

但下半部无任何作用，这有办法吗?


另外这些列有公式，可以一并自动写入成值吗?





再麻煩解答一下感謝

ykcbf1100

先做个标记吧。

bqwd36

居然是繁体的，我这代码里面中文都显示的乱码，你这个感觉是只要做个判断，我只会用个笨办法，把1.2列解除了合并，然后用关键词“合计”，instr判断出需要计算合计的行数，再生成合计数。

咩咩咩2012

没看懂啥意思

zxsea_7426

原始代码数据也是错的
。
害怕比对半天,还一直查代码哪里有问题

准提部林

檔案打不開//格式太多
可惜版本太舊// 只能草做
sub TEST()
dim arr, brr, Xrr, Yrr, c%, i&, j%
arr=range([a1], activesheet.usedrange)
c = ubound(arr, 2) - 3
redim brr(1 to c): Xrr = brr: Yrr = brr
for i=7 to ubound(arr)
    if right(arr(i, 3) ,2)="合計" then  cells(i,4).resize(1,c)=Xrr: Xrr=brr: Yrr=brr: goto i01
    if right(arr(i, 3) ,2)="小計" then  cells(i,4).resize(1,c)=Yrr: Yrr=brr: goto i01
   for j = 4 to ubound(arr,2)
       Xrr(j-3)=Xrr(j-3)+val(arr(i,j)  '合計-累計
       Yrr(j-3)=Yrr(j-3)+val(arr(i,j)  '小計-累計
   next j
i01: next i
end sub

adoration

zxsea_7426 发表于 2023-3-24 17:40
原始代码数据也是错的
。
害怕比对半天,还一直查代码哪里有问题

抱歉
剛剛測試了，上半部小計,合計，總合計，都能正常出來，其中隨機增加單位也能自動加入小計...

但下半部无任何作用，这有办法吗?


另外这些列有公式，可以一并自动写入成值吗?





再麻煩解答一下感謝

Yalishanda30

我真的很恨合并单元格

ykcbf1100

Yalishanda30 发表于 2023-3-25 12:40
我真的很恨合并单元格

合并单元格处理其实不难，你多看看就明白了。