固定一个条件，将第二列不重复的内容求出，用什么公式

sunglowxian

固定一个条件，将第二列不重复的内容求出，用什么公式
尝试过offset，但是重复的内容怎么办？
求各位老师解答，谢谢

附件
新建 Microsoft Excel 工作表.rar (5.07 KB, 下载次数: 3)

2016-1-23 07:57 上传

点击文件名下载附件

fxl447098457

1. 
   
2. Public Function myjoin(rng1 As Range, rng2 As Range)
   
3. Dim arr, d As Object, ds, i%
   
4. myjoin = ""
   
5. arr = rng2
   
6. Set d = CreateObject("scripting.dictionary")
   
7. For i = 1 To UBound(arr)
   
8. On Error Resume Next
   
9. d.Add arr(i, 1) & "," & arr(i, 2), arr(i, 2)
   
10. Next
    
11. For Each ds In d.keys
    
12. If Split(ds, ",")(0) = rng1 Then
    
13. myjoin = myjoin & "," & d(ds)
    
14. End If
    
15. Next
    
16. myjoin = Right(myjoin, Len(myjoin) - 1)
    
17. End Function

复制代码

回复.rar (11.74 KB, 下载次数: 4)

2016-1-23 08:28 上传

点击文件名下载附件

sunglowxian

请问函数可不可以

sunglowxian

fxl447098457 发表于 2016-1-23 08:28

请问函数可以吗？

袁勇

sunglowxian 发表于 2016-1-23 08:47
请问函数可以吗？

新建 Microsoft Excel 工作表.zip (6.9 KB, 下载次数: 5)

2016-1-23 09:04 上传

点击文件名下载附件

sunglowxian

fxl447098457 发表于 2016-1-23 08:28

多谢您的解答

sunglowxian

袁勇 发表于 2016-1-23 09:04

用添加辅助列的方法，多谢您的解答