目前表格里的宏只可删除1000行左右，求助把宏内容改一下，可以删除更多，几万、几十万

elite_疗伤

刚才发帖发错了位置，现更新到VBA开发处

目前表格里的宏只可删除1000行左右，求助把宏内容改一下，可以删除更多，几万、几十万的内容，感谢各位大佬

3190496160

ykcbf1100

几十万行的数据，楼主的方法不行，太慢了。

我新写了一个，能比楼主的代码快很多。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.3.14
   
2.     Dim arr, brr
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     st = Array("张三", "李四", "赵五")
   
6.     With Sheets("Sheet1")
   
7.         arr = .UsedRange
   
8.         Set rng = .Rows(UBound(arr) + 1)
   
9.         For i = 2 To UBound(arr)
   
10.             ft = 0
    
11.             For j = 1 To UBound(arr, 2)
    
12.                 For x = 0 To UBound(st)
    
13.                     If InStr(arr(i, j), st(x)) Then
    
14.                         ft = 1
    
15.                         Exit For
    
16.                     End If
    
17.                 Next
    
18.                 If ft = 1 Then Exit For
    
19.             Next
    
20.             If ft = 1 Then Set rng = Union(rng, .Rows(i))
    
21.         Next
    
22.         If Not rng Is Nothing Then rng.EntireRow.Delete
    
23.     End With
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "OK！"
    
26. End Sub
    

复制代码

elite_疗伤

ykcbf1100 发表于 2024-3-14 21:35
参与一下。。。

大佬你好，首先非常感谢，经过测试，发现以下两个问题
1、使用Excel发现-使用宏之后-类型不匹配
2、使用wps-使用宏之后-没有反应

边缘码农

3楼的代码在我这里运行正常。Excel2016。

ykcbf1100

elite_疗伤 发表于 2024-3-15 10:29
大佬你好，首先非常感谢，经过测试，发现以下两个问题
1、使用Excel发现-使用宏之后-类型不匹配
2、使 ...

附件调试后上传的，没有问题。如果有问题，出在你的数据和附件的结构不一样。
WPS不保证能用，我这个是在office环境下写的。

elite_疗伤

3190496160 发表于 2024-3-14 21:17

感谢大佬，但通过修改这段语句，显示编译错误了

elite_疗伤

ykcbf1100 发表于 2024-3-15 10:41
附件调试后上传的，没有问题。如果有问题，出在你的数据和附件的结构不一样。
WPS不保证能用，我这个是 ...

说完之后在重新测试，目前还在卡着表格~运行有点慢，现在运营的数据为3万条左右

ykcbf1100

elite_疗伤 发表于 2024-3-15 13:02
说完之后在重新测试，目前还在卡着表格~运行有点慢，现在运营的数据为3万条左右

你试试你自己的代码再说这话。