删除数万行数据最快的方法

lizhipei78

因为是模糊匹配，所以只能用Array来进行筛选，且一次性只能筛选两个，如果是全字匹配的话，就可以一次性筛选删除
我也是小白，同时也希望其他大神指教一下，如何用数组进行模糊匹配筛选，Array模糊匹配筛选是否可以多个


我 这个代码能删除关键字所在行，速度也不比楼上正则大佬的慢，请测试

lizhipei78

1. Sub AutoFilter筛选法()
   
2.     Dim Arr(), endRow%, i%, Brr, t#
   
3.     t = Timer
   
4.     Application.DisplayAlerts = False
   
5.     With Sheet2
   
6.         endRow = .Range("A65536").End(3).Row
   
7.         Arr = .Range("A2:A" & endRow)
   
8.         For i = 1 To UBound(Arr)
   
9.             Arr(i, 1) = "*" & Arr(i, 1) & "*"
   
10.         Next
    
11.     End With
    
12.     Brr = Application.WorksheetFunction.Transpose(Arr)
    
13.     With Sheet1
    
14.         .Activate
    
15.         If .AutoFilterMode = True Then
    
16.             .Rows("1:1").AutoFilter
    
17.         End If
    
18.         endRow = .Range("C65536").End(3).Row
    
19.         .Rows("1:1").AutoFilter
    
20.         For i = 1 To UBound(Brr)
    
21.             If i + 1 = UBound(Brr) Then
    
22.                 .Range("C1").AutoFilter Field:=1, Criteria1:=Array(Brr(i + 1)), Operator:=7
    
23.                 .Range("C2:C" & endRow).Delete
    
24.                 Exit For
    
25.             Else
    
26.                 .Range("C1").AutoFilter Field:=1, Criteria1:=Array(Brr(i), Brr(i + 1)), Operator:=7
    
27.                 .Range("C2:C" & endRow).Delete
    
28.             End If
    
29.         Next
    
30.         .Rows("1:1").AutoFilter
    
31.     End With
    
32.     Application.DisplayAlerts = True
    
33.     MsgBox "执行完毕!_用时:  " & Format(Timer - t, "0.00") & "  秒", 64
    
34. End Sub
    
35. 
    

复制代码

lizhipei78

AutoFilter筛选法在原表中删除关键字（Array模糊匹配法）.rar (124.96 KB, 下载次数: 7)

2023-2-13 17:07 上传

点击文件名下载附件

lizhipei78

这里更正一下，少写了一个条件，在关键字为2时会出错
这里提醒一下，关键字不能少于2个，如果少于2个，会造成错误，因为不是数组了

dailj

我认为如果删除数万行，无论怎么个删法，都没有生成新的表快。因为一个一个读取单元格，然后全部删除的过程，效率是非常低的