按“编号”跨列提取-相同部分只提取一次，不同部分分别提取

zhiwen20190717

按“编号”跨列提取-相同部分只提取一次，不同部分分别提取.

无关岁月

1. =TEXTJOIN(",",,UNIQUE(TOCOL(CHOOSECOLS(FILTER(B2:G4,A2:A4=I2),{1,3,6}))))

复制代码

hxj119

=TEXTJOIN(",",1,UNIQUE(TOCOL(CHOOSECOLS(FILTER($A$2:$G$4,$A$2:$A$4=I2),2,4,7),3)))

hxj119

参考公式二：=TEXTJOIN(",",1,UNIQUE(TOCOL(IF(A2:A4=I2,HSTACK(B2:B4,D2:D4,G2:G4),A),3)))

cnmlgb9998

PQ 方案！！！！！！！！！！！！

我的城市你来过

=TEXTJOIN(",",,UNIQUE(TEXTSPLIT(TEXTJOIN("@@",,FILTER(HSTACK($B$2:$B$4,$D$2:$D$4,$G$2:$G$4),$A$2:$A$4=$I$2)),,"@@")))

mykitami

=TEXTJOIN(",",,UNIQUE(TOCOL(FILTER(HSTACK($B$2:$B$4,$D$2:$D$4,$G$2:$G$4),$A$2:$A$4=I2))))

痛痛痛痛

I3=UNIQUE(A2:A4)
J3=TEXTJOIN(",",,UNIQUE(TOCOL(FILTER(CHOOSECOLS($B$2:$G$4,1,3,6),$A$2:$A$4=I3))))

E花E世界

1. =TEXTJOIN(",",,UNIQUE(TOROW(CHOOSECOLS(FILTER(B1:G4,A1:A4=I2),1,3,6)),1))

复制代码

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [i1].CurrentRegion
brr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   For j = 2 To UBound(brr)
      If arr(i, 1) = brr(j, 1) Then
         For Each ee In Array(2, 4, 7)
            If Not d.exists(brr(j, ee)) Then
               d(brr(j, ee)) = brr(j, ee)
               s = s & "," & brr(j, ee)
            End If
         Next
      End If
   Next
   arr(i, 2) = Mid(s, 2)
   s = ""
   d.RemoveAll
Next
[i1].CurrentRegion = arr
End Sub