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

windy_hf

我想按部门将不同岗位放在同一单元格内，如何编写公式？结果如下表，请大神帮助，在线等，谢谢！

Gawey

POWER QUERY   数据源增加数据后右键刷新即可

windy_hf

Gawey 发表于 2018-2-28 14:55
POWER QUERY   数据源增加数据后右键刷新即可

可否详细说明，谢谢

jiangxiaoyun

统计.zip (13.83 KB, 下载次数: 8)

2018-2-28 15:12 上传

点击文件名下载附件

vba比较好处理这个问题，一个字典就搞掂了。
这里用了函数+辅助列

Gawey

windy_hf 发表于 2018-2-28 15:12
可否详细说明，谢谢

说明什么？不能用吗？

sdc3211772

Sub dddd()
Dim arr, ar, brr(), i%, n%, m%
Set d = CreateObject("scripting.dictionary")
arr = Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(arr)
    d(arr(i, 1) & "|" & arr(i, 2)) = ""
Next
arr = d.keys
d.RemoveAll
For i = 0 To UBound(arr)
    ar = Split(arr(i), "|")
    If Not d.exists(ar(0)) Then
        n = n + 1
        d(ar(0)) = n
        ReDim Preserve brr(1 To 2, 1 To n)
        brr(1, n) = ar(0)
        brr(2, n) = ar(1)
    Else
        m = d(ar(0))
        brr(2, m) = Join(Array(brr(2, m), ar(1)), "、")
    End If
Next
Cells(5, "e").Resize(n, 2) = Application.Transpose(brr)
End Sub