在线等，急。

yzzx422

1. Sub DeleteRowsBasedOnValue()
   
2.     Dim lastRow As Long
   
3.     Dim i As Long
   
4.     lastRow = Cells(Rows.Count, "K").End(xlUp).Row '获取K列最后一个有数据的行号
   
5.    
   
6.     For i = lastRow To 5 Step -1 '从最后一行开始往第5行遍历，倒序很关键，避免删除行后行号变化影响后续判断
   
7.         If Cells(i, "K").Value = 15 Or Cells(i, "K").Value = 16 Then
   
8.             Rows(i).Delete
   
9.         End If
   
10.     Next i
    
11. End Sub
    

复制代码

ykcbf1100

lizhipei78 发表于 2024-12-12 22:25
经我自己的测试，8万行数据，筛选法要比数组法快10倍，请对比

是电脑的关系吗？我的系统是：win11+64位office2021
你的附件，用数组法，我的电脑上8万行运行时间是1.8秒；2万行运行时间是1.7秒；
                用筛选法，我的电脑上8万行运行时间是8.2秒；2万行运行时间是2.8秒；

ykcbf1100

又试了一下，67万行数据，用23楼gwjkkkkk老师的SQL代码，用时是1.5秒，快于数组法和筛选法。

lizhipei78

ykcbf1100 发表于 2024-12-13 07:02
是电脑的关系吗？我的系统是：win11+64位office2021
你的附件，用数组法，我的电脑上8万行运行时间是1.8 ...

那可能真的跟电脑有关系，我这里8万数据筛选法0.2秒，数组法1.8秒，我的是win 11+ WPS，按理说，筛选法就是三步操作，不可能要耗时这么大的，人工操作都不需要这么长啊

ykcbf1100

lizhipei78 发表于 2024-12-13 09:05
那可能真的跟电脑有关系，我这里8万数据筛选法0.2秒，数组法1.8秒，我的是win 11+ WPS，按理说，筛选法就 ...

估计是WPS和office的运行机制不一样。WPS上筛选可能快一些。

lucas22

两种处理方法：
1.以K列为依据排序，然后在表中手工选中15/16在的行，直接删除；
2.筛选除15/16之外的数据复制到新表中，原表留档。
这两种方式，虽然也花一些时间，但是相对比较简单高效。