求助，同一名称对应N项，把N项全部例举出来怎么办？？？

jxs_nt

营业代表	G2		达到这样的效果	营业代表	G1	O4	O3	O2
高级营业经理	O1			营业主任	O4	O3	O2
高级营业经理	E6			高级营业经理	E6	O1	O2
营业主任	O2
营业代表	O4
营业代表	O4
营业代表	O3
营业代表	O4
营业主任	O3
营业代表	O2
营业代表	O4
高级营业经理	O2
营业代表	O4
营业主任	O4
营业代表	G1

清风竹-

1. Sub 整理数据()
   
2. Dim i&, m&, Arr
   
3. Dim d, k, t
   
4. [g1].CurrentRegion.ClearContents
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. m = [a65536].End(3).Row
   
7. Arr = Range("a1:b" & m)
   
8. For i = 1 To UBound(Arr)
   
9.     d(Arr(i, 1)) = d(Arr(i, 1)) & Arr(i, 2) & "|"
   
10. Next
    
11. k = d.keys
    
12. t = d.items
    
13. [e1].Resize(d.Count, 1) = Application.Transpose(k)
    
14. For i = 0 To d.Count - 1
    
15.     crr = Split(t(i), "|")
    
16.     Cells(i + 1, "f").Resize(1, UBound(crr)) = crr
    
17. Next
    
18. Set d = Nothing
    
19. End Sub
    

复制代码

清风竹-

请看附件。

horselyq

F1数组公式

1. =IFERROR(INDEX($B$1:$B$16,SMALL(IF($A$1:$A$16=$E1,ROW($1:$16)),COLUMN(A1))),"")

复制代码

jxs_nt

清风竹- 发表于 2015-5-26 20:32
请看附件。

谢谢，但是营业代表的对应项里面有重复的。我想要的是每一个都是唯一值。

jxs_nt

horselyq 发表于 2015-5-26 22:35
F1数组公式

谢谢，这个好用，但是能否得出的值保证是唯一的不重复，比如O4，O4，O3。我只想得出O4，O3，就可以了。

清风竹-

jxs_nt 发表于 2015-5-27 08:37
谢谢，但是营业代表的对应项里面有重复的。我想要的是每一个都是唯一值。

代码已做修改。没有重复的对应项了。

应风是

={IFERROR(INDEX($B$1:$B$16,MATCH(1,(COUNTIF($E$1:E1,$B$1:$B$16)=0)*($E1=$A$1:$A$16),0)),"")}