[已解决]如何根据某一列删除重复项所在的行

dnnllfqlkm

如图，根据E列材料编码，将编码重复的行只保留一行，备注：内容较多，麻烦提供实用的方法，最好不要使用“显示重复项，手动删除”的方法

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2016-1-15 10:00

并不会只删编码不删其它

跳转到最佳答案楼层

sry660

请把你的附件传上来

dnnllfqlkm

材料出库单列表.rar (19.75 KB, 下载次数: 6)

2016-1-15 09:39 上传

点击文件名下载附件 相关附件

这儿有肥猫

只有300多行，即便用excel自带的删除重复项，也就一秒不到的时间，为何不能用呢？

dnnllfqlkm

这儿有肥猫 发表于 2016-1-15 09:45
只有300多行，即便用excel自带的删除重复项，也就一秒不到的时间，为何不能用呢？

不是内容多少的问题，如果使用删除重复项的话，只是把重复的编码删掉了，造成编码上移，与原本的出库产品都是不对应的，我是想把重复的编码所对应的那行所有内容全部删掉

sry660

1. Sub 提取不重复()
   
2. Dim d, i&, arr, t
   
3. arr = [a1].CurrentRegion
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For i = 2 To UBound(arr)
   
6.     d(arr(i, 5) & "") = Range(Cells(i, 1), Cells(i, 16))
   
7. Next
   
8. t = d.items
   
9. With Sheets(2)
   
10.     .Cells.ClearContents
    
11.     .[a1].Resize(1, 16) = Application.Index(arr, 1)
    
12.     .[a2].Resize(d.Count, 16) = Application.Transpose(Application.Transpose(t))
    
13.     .Activate
    
14. End With
    
15. End Sub

复制代码

这儿有肥猫

并不会只删编码不删其它