Excel中如何将筛选出来的多列数据粘贴到一个单元格中？

sugonhr3

要求制作人员编制表，原始数据如下，表格中拥有不同部门数据和人名。



最终要实现内容形式是根据所属部门，将员工姓名粘贴到一个单元格内，并用逗号间隔。

目前统计人数可以用countif来实现，但不知道该如何将不同部门的每个姓名放到相应的单元格中。



以上功能需要用公式或者VBA实现，不要说到Word里面粘贴替换段落标记为逗号，因为这个表格需要今后实时更新，谢谢！

sugonhr3

问题已经解决，感谢楼上的帮助！！！

roych

详见“人员编制信息表.xlsm”文件。
按顺序先后运行getData()和getFormat()即可。

sugonhr3

谢谢楼上，为了方便大家理解，我这里有一个说明。

pureshadow

dim MyRow as long, i as long
dim MyStr as string
for myrow = 2 to cells(rows.count,1).end(xlup).row
  if cells(myrow,1)= cells(myrow+1,1) then
    mystr = mystr & "," & cells(myrow,3)
  else
    i = i +1
    cells(i,6)=cells(myrow,1)
    cells(i,7)= mid(mystr & "," & cells(myrow,3),2,9999)
    mystr = ""
  end if
next