删除重复项问题

金樽邀月

      我要以工号为唯一识别号删除重复数据，但最后一行没有删除被保留下来了，后经高手指点，原因是H列带了公式，如果去掉公式就正常了。我想问的是，如果保留H列的公式，代码做些修改，能得到我要的结果吗？
Wps上不存在这个问题，Excel上出现上述问题。

limonet

高级筛选。

静听溪流

如果不行的话，那就循环判断工号那列  判断是否重复  然后再删除

3190496160

ykcbf1100

用字典吧，去重对于字典来说很简单。

ykcbf1100

去重。。。

1. Sub ykcbf()  '//2024.6.27
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = [a1].Resize(r, 8)
   
5.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     For i = 2 To UBound(arr)
   
7.         s = arr(i, 2)
   
8.         If Not d.Exists(s) Then
   
9.             m = m + 1
   
10.             d(s) = m
    
11.             For j = 1 To UBound(arr, 2)
    
12.                 brr(m, j) = arr(i, j)
    
13.             Next
    
14.         End If
    
15.     Next
    
16.     [j2:q1000] = ""
    
17.     [j2].Resize(m, UBound(arr, 2)) = brr
    
18.     Set d = Nothing
    
19.     MsgBox "OK！"
    
20. End Sub
    

复制代码

魂断蓝桥

换成单列
Columns("a:a").Range("$A$1:$H$9999").RemoveDuplicates Columns:=2, Header:=xlYes

魂断蓝桥

金樽邀月

魂断蓝桥 发表于 2024-6-27 12:01
换成单列
Columns("a:a").Range("$A$1:$H$9999").RemoveDuplicates Columns:=2, Header:=xlYes

不管用，效果一样。

金樽邀月

ykcbf1100 发表于 2024-6-27 11:52
去重。。。

用循环虽然能达到目的，如果数据记录多，耗时长，代码也长，不是理想的方案。谢谢解答