合并同一ID的数据

unit6

A列的ID会有重复，将重复的ID合并到一个在F列，对应同一个ID下的file_id合并到G列，每个file_id中间以英文逗号分隔。不知道用函数可以还是要用VBA

nsxlyj

=textjoin(",",1,if(a$2:a$15=f2,b$2:b$15,""）)

闪闪小红星

=TEXTJOIN(",",TRUE,IF($A$2:$A$15=F2,$B$2:$B$15,""))

ncs1234

是不是要这样

unit6

闪闪小红星 发表于 2019-9-29 15:32
=TEXTJOIN(",",TRUE,IF($A$2:$A$15=F2,$B$2:$B$15,""))

多谢！好像我这是 2016，没有这个函数

chenyun1234

Power Query

chenyun1234

unit6 发表于 2019-9-29 15:49
多谢！好像我这是 2016，没有这个函数

WPS有的，可以在WPS中试试

unit6

ncs1234 发表于 2019-9-29 15:37
是不是要这样

谢谢，是这样的，但我这2016没textjoin的函数，不行换wps试下了

准提部林

Sub TEST()
Dim Arr, xD, U&, i&, N&
Arr = Range([B1], Cells(Rows.Count, 1).End(xlUp))
Set xD = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Arr)
    U = xD(Arr(i, 1))
    If U > 0 Then Arr(U, 2) = Arr(U, 2) & "," & Arr(i, 2): GoTo 101
    N = N + 1:  xD(Arr(i, 1)) = N
    Arr(N, 1) = Arr(i, 1):  Arr(N, 2) = Arr(i, 2)
101: Next i
[F2:G2].Resize(N) = Arr
End Sub

IR、独白

nsxlyj 发表于 2019-9-29 15:29
=textjoin(",",1,if(a$2:a$15=f2,b$2:b$15,""）)

如果在10版本怎么做啊？