ExcelHome技术论坛

 找回密码
 免费注册
QQ登录 只需一步,快速开始
   
高效办公必会的Office99uu优优 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 职场充电黑科技, Office微99uu优优 免费下载Excel行业应用视频
300集Office 2010微99uu优优 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 201099uu优优学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 187|回复: 10
打印 上一主题 下一主题

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

[复制链接]
TA的精华主题TA的得分主题
跳转到指定楼层
1
发表于 2018-2-13 12:49 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
问题:我想按部门将不同岗位人员姓名放在同一单元格内,如何编写公式?结果如下表
统计.rar 7.47 KB, 下载次数: 12
TA的精华主题TA的得分主题
2
发表于 2018-2-13 13:10 | 只看该作者
如果数据超过2000行估计公式费劲。
TA的精华主题TA的得分主题
3
 楼主| 发表于 2018-2-13 13:12 | 只看该作者
TA的精华主题TA的得分主题
4
发表于 2018-2-13 13:26 | 只看该作者
zsj507 发表于 2018-2-13 13:12
谢谢,数据不会超过2000行。

那公式还行。请耐心等待吧。VBA版本的我删掉了。
TA的精华主题TA的得分主题
5
发表于 2018-2-13 13:26 | 只看该作者
本帖最后由 活在理想的世界 于 2018-2-13 13:47 编辑
zsj507 发表于 2018-2-13 13:12
谢谢,数据不会超过2000行。


111111111111114
TA的精华主题TA的得分主题
6
 楼主| 发表于 2018-2-13 13:48 | 只看该作者
TA的精华主题TA的得分主题
7
发表于 2018-2-13 13:55 | 只看该作者
本帖最后由 niko88819 于 2018-2-13 13:57 编辑

不知道那里理解错了,跟你附件答案不太一样因此没有贴出附件
20180213.jpg (22.4 KB, 下载次数: 0)
20180213.jpg
TA的精华主题TA的得分主题
8
发表于 2018-2-13 14:39 | 只看该作者
用POWERQUERY。
统计.rar 16.14 KB, 下载次数: 13
TA的精华主题TA的得分主题
9
发表于 2018-2-13 15:21 | 只看该作者
  • =contxt(IF(ISNUMBER(FIND($G6,$B$3:$B$16))*($D$3:$D$16=H$5),$A$3:$A$16&"、",""))
  • 复制代码

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

  •     For i = 0 To UBound(args)
  •         If Not IsMissing(args(i)) Then
  •             Select Case TypeName(args(i))
  •             Case "Range"
  •                 For Each cell In args(i)
  •                     tmptext = tmptext & cell
  •                 Next cell
  •             Case "Variant()"
  •                 For Each cellv In args(i)
  •                     tmptext = tmptext & cellv
  •                 Next cellv
  •             Case Else
  •                 tmptext = tmptext & args(i)
  •             End Select
  •         End If
  •     Next i

  •     Contxt = tmptext
  • End Function
  • 复制代码
    TA的精华主题TA的得分主题
    10
    发表于 2018-2-13 15:27 | 只看该作者
    本帖最后由 abccba_ln 于 2018-2-13 15:35 编辑
  • =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-26 09:23 , Processed in 0.079329 second(s), 16 queries , Gzip On, MemCache On.
    Powered by Discuz! X3.4 © 2001-2017 Wooffice Inc.
        沪公网安备 31011702000001号 沪ICP备11019229号 本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师
    快速回复 返回顶部 返回列表
    99uu优优