批量删除行有点慢，还能不能在快

shenzhenyang

1. Sub 批量删除行()
   
2. 
   
3.        Dim DelRng As Range
   
4.     For Each sh In Worksheets
   
5.         r = sh.[f65536].End(3).Row
   
6.         Set DelRng = sh.Rows(r + 1)
   
7.         For i = 7 To r
   
8.            If sh.Cells(i, 7) = "已收款" Or sh.Cells(i, 7) = "其他" Then Set DelRng = Union(DelRng, sh.Rows(i))
   
9.         Next
   
10.         DelRng.Delete
    
11.     Next
    
12. 
    
13. End Sub

复制代码

代码抄于论坛老师的，表格多，批量删除行有点慢，还能不能在快。

这个条件要怎么改才能把全部条件集合在一起，不用一个一个写sh.Cells(i, 7) =
If sh.Cells(i, 7) = "已收款" Or sh.Cells(i, 7) = "其他"
类似这有把全部集合myarr = Array("已收款", "其他")

麻烦老师帮忙看看，谢谢。

半百

将单元格区域装进数组进行判断，应该可以快不少。

shenzhenyang

半百 发表于 2023-3-6 13:41
将单元格区域装进数组进行判断，应该可以快不少。

老师麻烦帮忙怎么用数组，实在不会，谢谢

zxsea_7426

如果纯数据没有单元格格式的不同的话，可以直接装入数组，符合条件的数据保留，最后重新输出到原工作表。不用删除行来操作会快很多。

ykcbf1100

用数组应该快一点吧

半百

shenzhenyang 发表于 2023-3-6 14:05
老师麻烦帮忙怎么用数组，实在不会，谢谢

大概是这样吧

shenzhenyang

ykcbf1100 发表于 2023-3-6 14:20
用数组应该快一点吧

谢谢老师

运行总是报NEXT没有FOR  我已经删除多余一个NEXT ，还是不行。

半百

shenzhenyang 发表于 2023-3-6 14:36
谢谢老师

运行总是报NEXT没有FOR  我已经删除多余一个NEXT ，还是不行。

ykcbf1100

shenzhenyang 发表于 2023-3-6 14:36
谢谢老师

运行总是报NEXT没有FOR  我已经删除多余一个NEXT ，还是不行。

我看一下啊。

ykcbf1100

shenzhenyang 发表于 2023-3-6 14:36
谢谢老师

运行总是报NEXT没有FOR  我已经删除多余一个NEXT ，还是不行。

查了一下代码，确实有点问题。
现在你再试一下。