合并负数行

ljxxw · 发表于 2022-6-11 17:57

本帖最后由 ljxxw 于 2022-6-11 19:38 编辑

Meteor-渣渣发表于 2022-6-11 17:44
0;!0改成0.00;!0

谢谢 Meteor-渣渣老师指教！

还有个情况我没讲清楚，
实际表中有A、B、C、D等多个项目，独立使用上面的拆分规则，就是在A、B、C、D等交界行时，上下项目不要串户，刚发现B和C交界行附近有负数，拆分后B比原来没拆分前多个数，C正好比原来没拆分前少同样的数。

如何能区分 A、B、C、D 不同的项目来拆分呢！

ljxxw · 发表于 2022-6-11 18:06

本帖最后由 ljxxw 于 2022-6-11 22:47 编辑

又看了一下
在A、B、C交界行附近有负数时，发现B拆分后累计比原来多，C拆分后累计比原来少同样金额
原因是C的首行是负数，合并到B的末行了，如果C首行不是负数，并且C的首行以下负数合并不造成C首行为负数，就不出现串户情况。

剑指E · 发表于 2022-6-11 18:11

D2:
=IFERROR(--TEXT(SUM(OFFSET(C2,,,MATCH(1,IF({1},($C2:$C$18<0)*($C3:$C$19>=0)+(C3="")),)))-IFERROR(TEXT(SUM(OFFSET(C3,,,MATCH(1,IF({1},($C3:$C$18<0)*($C4:$C$19>=0)+(C4="")),))),"0;!0"),),"0;;;"),"")
ctrl+shift+enter，下拉

bjzzxhzl · 发表于 2022-6-11 22:02

将表格导入Power query中，然后在高级编辑器贴入一下代码：

let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
f = (lst,n)=> List.Reverse(List.Accumulate(List.Reverse(lst),{{},n},(x,y)=>if y="" then {x{0}&{""},x{1}} else if x{1}+y<=0 then {x{0}&{""},x{1}+y} else {x{0}&{x{1}+y},0}){0}),
计算 = List.Accumulate(源[金额],{},(x,y)=>if y<0 then f(x,y)&{""} else x&{y}),
结果 = Table.FromColumns(Table.ToColumns(源)&{计算},Table.ColumnNames(源)&{"合并计算"})
in
结果

复制代码

结果如下图所示：

webber04 · 发表于 2022-6-11 22:53

给楼主写了个VBA，供参考

笨笨的小孩 · 发表于 2022-6-11 23:11

lz能说下业务逻辑吗
因为我看项目a 是按照时间升序排序，我能理解
但项目b，为什么是按时间循环的升序排序(两组相同日期)
是模拟数据漏列了吗？比如b项目的业务员01，和b项目的业务员02

ljxxw · 发表于 2022-6-12 08:38

NIBABASHIWO 发表于 2022-6-11 18:11
D2:
=IFERROR(--TEXT(SUM(OFFSET(C2,,,MATCH(1,IF({1},($C2:$C$18=0)+(C3="")),)))-IFERROR(TEXT(SUM( ...

谢谢 NIBABASHIWO 解答！！

ljxxw · 发表于 2022-6-12 23:17

笨笨的小孩发表于 2022-6-11 23:11
lz能说下业务逻辑吗
因为我看项目a 是按照时间升序排序，我能理解
但项目b，为什么是按时间循环的升序 ...

您看的很仔细，项目b时间也是升序，重复粘贴了上面几行时间，只为扩展了一些说明用的数据行

ljxxw · 发表于 2022-6-12 23:20

bjzzxhzl 发表于 2022-6-11 22:02
将表格导入Power query中，然后在高级编辑器贴入一下代码：

结果如下图所示：

谢谢 bjzzxhzl 的PQ代码，我将认真学习一下！！

ljxxw · 发表于 2022-6-13 08:08

webber04 发表于 2022-6-11 22:53
给楼主写了个VBA，供参考

谢谢 webber04 的VBA代码！！！

		自动登录	找回密码
密码			免费注册

[已解决] 合并负数行