有什么办法能够将多行数据合并为一行数据

lsxdlam

大佬，有什么办法能够将多行数据合并为一行数据呢？就是说将同一个部门的人员合并为一个单元格，一个单元格内换行也行，逗号分号也行。
软件版本wps2023



数据见附件

wp231957

把第二列删除 ？？？

lsxdlam

wp231957 发表于 2024-8-29 12:52
把第二列删除 ？？？

主要是把第三列合并为一个单元格

wp231957

lsxdlam 发表于 2024-8-29 12:55
主要是把第三列合并为一个单元格

合并单元格里面有一个合并内容  不需要写公式  wps

饮冰e士

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = Sheets("数据").[a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 2)) Then
      m = m + 1
      brr(m, 1) = arr(i, 2)
      brr(m, 2) = arr(i, 3)
      d(arr(i, 2)) = m
   Else
      r = d(arr(i, 2))
      brr(r, 2) = brr(r, 2) & Chr(10) & arr(i, 3)
   End If
Next
Sheets("希望效果").[a1].CurrentRegion.Offset(1).ClearContents
Sheets("希望效果").[a2].Resize(m, 2) = brr
End Sub

lsxdlam

饮冰e士 发表于 2024-8-29 13:08

非常感谢大佬，完成了。

1. =TEXTJOIN("；",TRUE,FILTER(C:C,B:B=A2))

复制代码

我要成为专家

老版本
H2

1. =INDEX($B$2:$B$19,MATCH(,COUNTIF($H$1:H1,$B$2:$B$19),))

复制代码

下拉
I2

1. =TEXTJOIN(CHAR(10),,IF(B2:B19=H2,C2:C19,""))

复制代码

三键下拉

新版本
直接溢出

1. =REDUCE(B1:C1,UNIQUE(B2:B19),LAMBDA(x,y,VSTACK(x,HSTACK(y,TEXTJOIN(CHAR(10),,FILTER(C:C,B:B=y))))))

复制代码

lsxdlam

我要成为专家 发表于 2024-8-29 13:58
老版本
H2下拉
I2三键下拉

谢大佬，真贴心，新老版本兼顾了，学习了。