删除相同数据

xgczwp

xgczwp 发表于 2023-2-10 20:14
非常感谢，1秒。真快。

就是有一个小问题，把标题行搞到最下面去了。我试着改下。看我能不能做到

xgczwp

gwjkkkkk 发表于 2023-2-10 19:42
数组法，速度是否快一些，请测试。。。

非常感谢，非常感谢。

xgczwp

tmplinshi 发表于 2023-2-10 17:56

非常感谢，非常感谢。

xgczwp

tanglf188 发表于 2023-2-10 16:55
请测试

非常感谢，非常感谢。

lizhipei78

数据多的话，筛选大法可能更快

lizhipei78

1. Sub AutoFilter筛选法()
   
2.     Dim Arr(), endRow%, i%
   
3.     Application.DisplayAlerts = False
   
4.     With Sheet2
   
5.         endRow = .Range("A65536").End(3).Row
   
6.         Arr = Application.Transpose(Range("A1:A" & endRow))
   
7.     End With
   
8.     With Sheet1
   
9.         .Activate
   
10.         If .AutoFilterMode = True Then
    
11.             .Rows("1:1").AutoFilter
    
12.         End If
    
13.         endRow = .Range("A65536").End(3).Row
    
14.         .Rows("1:1").AutoFilter
    
15.         .Range("A1").AutoFilter Field:=1, Criteria1:=Arr, Operator:=7
    
16.         .Range("A2:C" & endRow).Delete
    
17.         .Rows("1:1").AutoFilter
    
18.     End With
    
19.     Application.DisplayAlerts = True
    
20. End Sub

复制代码

xgczwp

lizhipei78 发表于 2023-2-11 17:55

这个也比较快，数组也非常快。

喝酒的毛毛虫

lizhipei78 发表于 2023-2-11 17:55

小白表示没看懂，这个是把关键词放在表2吗？求老师帮忙发一下附件的表，谢谢。

lizhipei78

喝酒的毛毛虫 发表于 2023-2-13 13:04
小白表示没看懂，这个是把关键词放在表2吗？求老师帮忙发一下附件的表，谢谢。

我也是小白，关键词是放在表2中的，你的求助跟这个有点不一样，直接用筛选法不行，因为是模糊匹配

不过本着学习的精神，还是用筛选法给你写了一个代码，在你求助帖中回复了，麻烦给点小红花，谢谢了。

本代码能直接在原表中删除关键字所在行，可能有点用吧