查找表格中的不重复值，自动添加到指定单元格内

ivwje

新建 Microsoft Excel 工作表 (2).rar (6.34 KB, 下载次数: 41)

2012-4-23 18:06 上传

点击文件名下载附件

查找表格中的不重复值，自动添加到指定单元格内。
当表格内新增加数据且不重复，则在另一单元格内自动生成，什么函数可以实现谢谢！

swl4561255

练习一下字典：

1. Private Sub CommandButton1_Click()
   
2. ar = [B65536].End(3).Row
   
3. arr = Range("B5:B" & ar)
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For i = 1 To UBound(arr)
   
6.   d(arr(i, 1)) = d(arr(i, 1)) + 1
   
7. Next
   
8. [D5].Resize(d.Count, 1) = Application.Transpose(d.keys)
   
9. [E5].Resize(d.Count, 1) = Application.Transpose(d.items)
   
10. Set d = Nothing
    
11. End Sub

复制代码

姚花花

swl4561255 发表于 2012-4-23 18:23
练习一下字典：

用公式可以不？？

swl4561255

姚花花 发表于 2012-4-24 15:51
用公式可以不？？

新建 Microsoft Excel 工作表 (2).zip (7.14 KB, 下载次数: 201)

2012-4-24 15:57 上传

点击文件名下载附件

临时户口

可以用sumif 来查看是否有数据重复 然后用if函数 把不重复的数据 弄到表格中即可

StephenSong

swl4561255 发表于 2012-4-24 15:57

请问，公式中的MIN是什么用途？谢谢！

kmzbh

没太明白什么意思