剔除重复的内容，得到不重复的内容。

mike20022006 · 发表于 2010-10-23 08:23

有什么办法，用函数或者透视表，将明细中的重复内容剔除，最终得到不重复的内容。重复的内容主要是商品名称和商品编码中的重复，而且现在不知道哪些商品重复了？

[ 本帖最后由 mike20022006 于 2010-10-23 08:41 编辑 ]

yrysf · 发表于 2010-10-23 08:33

数据-筛选-高级筛选
选择不重复记录
把筛选出来的结果复制到新表中即可

liuyan819 · 发表于 2010-10-23 08:41

根据哪一列来判断是否重复呢？小类码?

mike20022006 · 发表于 2010-10-23 08:44

是商品的重复。可以根据商品编码或者商品名称。名称与编码是相对应的。

liuyan819 · 发表于 2010-10-23 08:58

这样？!!!!!!!

mike20022006 · 发表于 2010-10-23 09:10

老师，result那张表里怎么是空白啊？

liuyan819 · 发表于 2010-10-23 09:24

晕倒，第二个表不是有个代码运行按钮，我让你自己点了，还要我给你点好啊！

mike20022006 · 发表于 2010-10-23 09:38

我打开表时显示的是最下面的内容，光急着看result了，没看全。

老师，这个宏是怎么做的？

liuyan819 · 发表于 2010-10-23 09:43

ALT+F11打开VBE窗口，自己看代码！
Sub GetData()
Dim d As Object
Dim i&, arr, arr1
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
      Set d(Cells(i, 6) & "") = Range(Cells(i, 1), Cells(i, UBound(arr, 2)))
      arr1 = d.Keys
Next
For i = 1 To d.Count
      d(arr1(i - 1)).Copy Sheets("result").Cells(i, 1)
Next
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 剔除重复的内容，得到不重复的内容。

回复 5楼 liuyan819 的帖子

回复 6楼 mike20022006 的帖子

回复 8楼 mike20022006 的帖子