Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3062|回复: 8

[已解决]求个公式

[复制链接]
发表于 2021-5-20 12:45 | 显示全部楼层 |阅读模式
本帖最后由 yettae 于 2021-5-20 14:34 编辑

如何让表2备注栏中显示表1所有其它项目的摘要
最佳答案
2021-5-20 16:31
本帖最后由 高 于 2021-5-20 16:32 编辑

数组公式,但是我这个是office2019.

表

工作簿1.zip

7.57 KB, 下载次数: 10

发表于 2021-5-20 12:51 | 显示全部楼层
回复

使用道具 举报

发表于 2021-5-20 16:31 | 显示全部楼层    本楼为最佳答案   
本帖最后由 高 于 2021-5-20 16:32 编辑

数组公式,但是我这个是office2019.

工作簿1.rar

8.67 KB, 下载次数: 5

回复

使用道具 举报

发表于 2021-5-20 22:42 | 显示全部楼层
Function 合并(ar As Range, str As Range)
Dim arr, i, s
arr = ar
For i = 1 To UBound(arr)
If arr(i, 1) = str Then s = s & "," & arr(i, 2)
Next
合并 = Mid(s, 2)
End Function
低版本的ExceL要添加辅助列可以完成,这个自定义的函数可以达到你的效果。表格后缀需要是.xls或者.xlsm,请参考。

工作簿1.rar

14.27 KB, 下载次数: 0

回复

使用道具 举报

发表于 2021-5-20 23:51 | 显示全部楼层
不用函数,不用VBA 插件也可以解决,一对多高级查找合并  https://www.aidunsoft.com/photo/show-84.html
回复

使用道具 举报

 楼主| 发表于 2021-5-21 10:13 | 显示全部楼层
本帖最后由 yettae 于 2021-5-21 11:41 编辑
高 发表于 2021-5-20 16:31
数组公式,但是我这个是office2019.

谢谢你
回复

使用道具 举报

 楼主| 发表于 2021-5-21 10:15 | 显示全部楼层
aidunsoft 发表于 2021-5-20 23:51
不用函数,不用VBA 插件也可以解决,一对多高级查找合并  https://www.aidunsoft.com/photo/show-84.html

这是要装那个制表神器才有的功能吗?
回复

使用道具 举报

发表于 2021-5-21 10:17 | 显示全部楼层
F3:F9=IFERROR(LOOKUP(1,0/(B$2:B2=B3),F$2:F2),"")&IF((COUNTIF(B$3:B3,B3)=1)+(B3=""),""," ,")&C3

D15:D17=LOOKUP(1,0/(B$3:B$9=B15),F$3:F$9)

C15:C17=SUMIF(B$3:B$9,B15,D$3:D$9)
8287.png
回复

使用道具 举报

发表于 2021-5-21 14:31 | 显示全部楼层
yettae 发表于 2021-5-21 10:15
这是要装那个制表神器才有的功能吗?


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 02:45 , Processed in 0.388575 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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