|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 咔咔乱坠 于 2024-5-9 10:01 编辑
没有小计的情况本质就是不定行数的隔行求和
方法1(流浪铁匠)
选中B3:B38
ctrl+g定位空值
编辑栏粘贴公式
- =SUBTOTAL(9,B$4:B6)*2-SUM(B$4:B6)
复制代码 ctrl+回车
方法2(萝莉)
选中B3:B38
ctrl+g定位空值
编辑栏粘贴公式
- =IFERROR(SUM(OFFSET(B6,,,MAX(ISFORMULA(B$4:B6)*ROW(B$4:B6))-ROW(B6))),)
复制代码 方法3(阿武教程)
数组,在空白单元格粘贴
- =MAP(A3:B38,LAMBDA(x,LET(s,DROP(TAKE(A3:x,,-1),-1),IF(x>0,x,SUM(IFERROR(--DROP(s,IFNA(XMATCH(1=0,s>0,,-1),)),))))))
复制代码 方法4(萝莉)
数组,在空白单元格粘贴
- =VSTACK(A3:B3,IF({1,0},A4:A38,LET(a,B4:B38,b,T(SCAN(,a,LAMBDA(x,y,IFS((y=0)*N(x),x&"",N(x),IFERROR(x+y,),1,y)))),IF(b>"",--b,a))))
复制代码 方法5(醉清风)
选中B3:B38
ctrl+g定位空值
编辑栏粘贴公式
- =SUM(IF(ISFORMULA(B$4:B6),,B$4:B6))*2-SUM(B$4:B6)
复制代码
|
|