重复的资料删除，但是只删除由后面往前算的第一笔重复

lrq20501

请教各位大虾，

想删除重复的资料，但是只删除由后面往前算的第一笔重复
网上找了不少资料，但都没有提到这样的删除方式。请哪位高手教教

xiaoyuemt

只是简单的删除，直接用公式就可以判断出来。

lrq20501

xiaoyuemt 发表于 2022-12-29 14:11
只是简单的删除，直接用公式就可以判断出来。

谢谢啊…不过这个方式还需要一些人工判别(或筛选)，如果资料太多，还是得使用VBA来操作才行啊

ykcbf1100

那就这样了。

small_small

是  这样吗

gwjkkkkk

参与一下。。。

small_small

修改一下，这样好像也可以

剑指E

1. Sub sss()
   
2.     Dim d As Object, arr, c As Range, i&
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("sheet2")
   
5.         arr = .Range("a1").CurrentRegion
   
6.         For i = 2 To UBound(arr)
   
7.             d(arr(i, 1)) = d(arr(i, 1)) + 1
   
8.         Next
   
9.         For i = UBound(arr) To 2 Step -1
   
10.             If d(arr(i, 1)) > 1 Then
    
11.                 If c Is Nothing Then
    
12.                     Set c = .Cells(i, 1)
    
13.                 Else
    
14.                     Set c = Union(c, .Cells(i, 1))
    
15.                 End If
    
16.                 d(arr(i, 1)) = 1
    
17.             End If
    
18.         Next
    
19.         If Not c Is Nothing Then c.EntireRow.Delete
    
20.     End With
    
21. End Sub

复制代码

LIUZHU

多一个思路吧，利用JS数字可以反向查找的特性

LIUZHU

请用WPS软件测试