求助：VBA删除行如何提速？

李筱龙 · 发表于 2022-12-16 09:22

本帖最后由李筱龙于 2022-12-16 09:26 编辑

因涉及保密数据，我将数据删了，表的格式和VBA代码都留着。

For i = x To x1 + 1 Step -1

If Cells(i, "k").Value = "重复" And Cells(i, "l").Value = "重复" Then

Range(Rows(i), Rows(i)).Delete

End If

Next i

主要是这一段代码处理时一条条地删除太耗时了，几万条数据需要几十分钟，又不能批量删除（打个比方，重复的2条信息，单行删的话只删一条，批量删除会都删除了）。请大神们帮我优化一下，看是否用数组等方法来提升速度。

于箱长 · 发表于 2022-12-16 09:24

1.把符合条件的数据放入新数组
2.把原数据清除
3.把数组里的数据再写到原表中

李筱龙 · 发表于 2022-12-16 09:27

于箱长发表于 2022-12-16 09:24
1.把符合条件的数据放入新数组
2.把原数据清除
3.把数组里的数据再写到原表中

思路我知道，但不会用数组去重，请帮忙写一下。

李筱龙 · 发表于 2022-12-16 09:31

于箱长发表于 2022-12-16 09:24
1.把符合条件的数据放入新数组
2.把原数据清除
3.把数组里的数据再写到原表中

你说的方法是批量删除，不适用的，我的重复是用函数来获取的，从下往上，删除一行后再比对，看是否重复，所以这一点我就不太会搞了。

李筱龙 · 发表于 2022-12-16 09:33

目的是：姓名和身份证号为重复视为重复，检测重复的从后面开始删除，一直到不重复为止。

李筱龙 · 发表于 2022-12-16 10:39

Range(Cells(3, 1), Cells(x, 13)).RemoveDuplicates Columns:=Array(5, 6), Header:=xlYes
用这句代码居然神奇的解决了。

ykcbf1100 · 发表于 2022-12-16 10:58

这样改一下会快一点。

ToT5050 · 发表于 2022-12-16 11:35

我之前不会写数组的时候，是利用录制宏来获取自动筛选的代码，让后在delete删除。
数据不大的时候速度跟数组差不多，你可以试一试

Stone_00x · 发表于 2022-12-16 11:44

ToT5050 发表于 2022-12-16 11:35
我之前不会写数组的时候，是利用录制宏来获取自动筛选的代码，让后在delete删除。
数据不大的时候速度跟数 ...

我也是这样的,先把满足条件的筛选出来再批量删除

opel-wong · 发表于 2022-12-16 13:15

于箱长发表于 2022-12-16 09:24
1.把符合条件的数据放入新数组
2.把原数据清除
3.把数组里的数据再写到原表中

按你的思路，写了一段，

供参考，代码如下：

		自动登录	找回密码
密码			免费注册

[求助] 求助：VBA删除行如何提速？