ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 167|回复: 10

[求助] 想按部门将不同岗位人员姓名放在同一单元格内,如何编写公式?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-2-13 12:49 | 显示全部楼层 |阅读模式
问题:我想按部门将不同岗位人员姓名放在同一单元格内,如何编写公式?结果如下表

统计.rar

7.47 KB, 下载次数: 12

TA的精华主题

TA的得分主题

发表于 2018-2-13 13:10 | 显示全部楼层
如果数据超过2000行估计公式费劲。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-2-13 13:12 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-2-13 13:26 | 显示全部楼层
zsj507 发表于 2018-2-13 13:12
谢谢,数据不会超过2000行。

那公式还行。请耐心等待吧。VBA版本的我删掉了。

TA的精华主题

TA的得分主题

发表于 2018-2-13 13:26 | 显示全部楼层
本帖最后由 活在理想的世界 于 2018-2-13 13:47 编辑
zsj507 发表于 2018-2-13 13:12
谢谢,数据不会超过2000行。


111111111111114

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-2-13 13:48 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-2-13 13:55 | 显示全部楼层
本帖最后由 niko88819 于 2018-2-13 13:57 编辑

不知道那里理解错了,跟你附件答案不太一样因此没有贴出附件
20180213.jpg

TA的精华主题

TA的得分主题

发表于 2018-2-13 14:39 | 显示全部楼层
用POWERQUERY。

统计.rar

16.14 KB, 下载次数: 13

TA的精华主题

TA的得分主题

发表于 2018-2-13 15:21 | 显示全部楼层
  1. =contxt(IF(ISNUMBER(FIND($G6,$B$3:$B$16))*($D$3:$D$16=H$5),$A$3:$A$16&"、",""))
复制代码

数组公式
自定义函数
  1. Public Function Contxt(ParamArray args() As Variant) As Variant
  2.     Dim tmptext As Variant, i As Variant, cellv As Variant
  3.     Dim cell As Range
  4.     tmptext = ""

  5.     For i = 0 To UBound(args)
  6.         If Not IsMissing(args(i)) Then
  7.             Select Case TypeName(args(i))
  8.             Case "Range"
  9.                 For Each cell In args(i)
  10.                     tmptext = tmptext & cell
  11.                 Next cell
  12.             Case "Variant()"
  13.                 For Each cellv In args(i)
  14.                     tmptext = tmptext & cellv
  15.                 Next cellv
  16.             Case Else
  17.                 tmptext = tmptext & args(i)
  18.             End Select
  19.         End If
  20.     Next i

  21.     Contxt = tmptext
  22. End Function
复制代码

TA的精华主题

TA的得分主题

发表于 2018-2-13 15:27 | 显示全部楼层
本帖最后由 abccba_ln 于 2018-2-13 15:35 编辑
  1. =IFERROR(LEFT(contxt(IF(ISNUMBER(FIND($G6,$B$3:$B$16))*($D$3:$D$16=I$5),$A$3:$A$16&"、","")),LEN(contxt(IF(ISNUMBER(FIND($G6,$B$3:$B$16))*($D$3:$D$16=I$5),$A$3:$A$16&"、","")))-1),"")
复制代码

如果想处理掉最后一个“、",用这个公式,同样是数组公式
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,高效办公专列,每天发车

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

GMT+8, 2018-2-19 15:50 , Processed in 0.072635 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

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

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

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