ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 9329|回复: 3

[技巧操作] N人合作的利益分配(Shapley值方法)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-4-21 22:59 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
问题(来源《全日制普通高中地方选修教材 数学模型》):甲乙丙三人经商,若单干,每人获利1元;甲乙合作获利7元;甲丙合作获利5元;乙丙合作获利4元;三人合作获利10元,三人合作时应如何分配10元收入?
我把这道题用EXCEL建模解答,并对合作的人数作了自由扩充,以达到通用解题的目的。
首先,新建一个EXCEL工作簿,建三个表,分别取名“列全集”,“合作利益”,“利益分配”。

”列全集“表的主要功能是把合作者的所有组合列出来。
参与合作的人名在第二行列出来,A4单元格输入公式”=IF((ROW()-3-2^COUNTA($2:$2))<=0,ROW()-4,"已完成")“,目的是列所有子集的序号,B4单元格将序号转成二进制,C4单元格将二进制转换成合作人数的宽度,为后面的提取数值作准备。
l1.png
D4单元格,键入公式”=IF(COLUMN()>(COUNTA($2:$2)+3),"已完成",IF(MID($C4,COLUMN()-3,1)="0","",A$2))“,用MID函数提取左侧单元格的各位值与第二行对应单元格作比较,数值”1”才取值。公式输入后,右拉复制至“已完成”
l2.png
选中A4:G4,下拉复制至出现“已完成”
选中A4:F11,复制,打开“合作利益”表在A2单元格上右键,选择性粘贴-数值。
D2单元用PHONETIC函数把前面单元格内容合并起来,并下拉复制至D9,在E列填入相应的利益值
l3.png

辅助列用公式把后面要计算的参与者(此处是“甲”)所在的行号标出来,没参与的用一个大负数标注。
l4.png

在“利益分配”表中,用书中所提到的Shapley值方法计算。
在B1输入要计算的参与者的名(此处为“甲”)
B2公式键入“=INDEX(合作利益!$D:$D,MATCH(LARGE(合作利益!$F:$F,COLUMN()-1),合作利益!$F:$F,0),0)”,在通进右拉复制,把有“甲”参与全部组合列出来
l5.png
B3单元格用SUMIF函数把有B2单元格,有甲参与的利益(就在“合作利益”表中取值过来)
l6.png
B4单元格“=SUMIF(合作利益!$D:$D,SUBSTITUTE(B2,$B$1,""),合作利益!$E:$E)”,用SUBSTITUTE函数把B2单元格中的“甲”去掉,也同样使用SUMIF函数,这样结合把无“甲”参与的利益取值过来。
B5单元格等前二个单元格的差值,即“甲”对合作贡献。
l7.png
人数比较简单,用LEN函数取得,
l8.png
加权因子则按公式“=FACT(B6-1)*FACT(MAX($B6:$E6)-B6)/FACT(MAX($B6:$E6))”写入
l9.png
最后选中B2:B8,向右拖动复制至无有效数值,此处SUM(B8:E8),即为本题的答案。
l10.png

在解其他题目,请作相应的修改。



评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-7-27 23:02 来自手机 | 显示全部楼层
没搞懂加权因子,利益的计算规则。

TA的精华主题

TA的得分主题

发表于 2022-4-25 08:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2022-10-9 09:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
感谢楼主分享!!!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-22 06:56 , Processed in 0.042107 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表