想按部门将不同岗位人员姓名放在同一单元格内，如何编写公式？

zsj507

问题：我想按部门将不同岗位人员姓名放在同一单元格内，如何编写公式？结果如下表

活在理想的世界

如果数据超过2000行估计公式费劲。

zsj507

活在理想的世界 发表于 2018-2-13 13:10
如果数据超过2000行估计公式费劲。

谢谢，数据不会超过2000行。

活在理想的世界

zsj507 发表于 2018-2-13 13:12
谢谢，数据不会超过2000行。

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

活在理想的世界

zsj507 发表于 2018-2-13 13:12
谢谢，数据不会超过2000行。

111111111111114

zsj507

活在理想的世界 发表于 2018-2-13 13:26
111111111111114

谢谢，最好用公式。

niko88819

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

xbq

用POWERQUERY。

abccba_ln

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. 
   
6.     For i = 0 To UBound(args)
   
7.         If Not IsMissing(args(i)) Then
   
8.             Select Case TypeName(args(i))
   
9.             Case "Range"
   
10.                 For Each cell In args(i)
    
11.                     tmptext = tmptext & cell
    
12.                 Next cell
    
13.             Case "Variant()"
    
14.                 For Each cellv In args(i)
    
15.                     tmptext = tmptext & cellv
    
16.                 Next cellv
    
17.             Case Else
    
18.                 tmptext = tmptext & args(i)
    
19.             End Select
    
20.         End If
    
21.     Next i
    
22. 
    
23.     Contxt = tmptext
    
24. End Function
    

复制代码

abccba_ln

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),"")

复制代码

如果想处理掉最后一个“、",用这个公式，同样是数组公式