删除符合相关条件的行，求快速方式，谢谢

Dragonfly7995

删除C列中小于等于0 的行，写了个代码，因为数据量大，逐行判断，运行很慢，看看大神有没有快速的办法，谢谢

半百

sj15627581616

录制宏随便改改，xiang 想要更快可以考虑数组

sj15627581616

1. Sub test()
   
2.     Dim MaxRow As Long
   
3.     MaxRow = Cells(Rows.Count, 1).End(3).Row
   
4.     ActiveSheet.Range("$A$1:$E$" & MaxRow).AutoFilter Field:=3, Criteria1:="<=0", Operator:=xlAnd
   
5.     Range(Rows("3:3"), Rows("3:3").End(xlDown)).Delete Shift:=xlUp
   
6.     ActiveSheet.AutoFilterMode = False
   
7. End Sub

复制代码

ykcbf1100

用数组会快很多。

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.21
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim tm: tm = Timer
   
5.     With Sheets("A店库存0220")
   
6.         r = .Cells(Rows.Count, 1).End(3).Row
   
7.         arr = .Range("a1:e" & r)
   
8.         ReDim brr(1 To UBound(arr), 1 To 5)
   
9.         For i = 2 To UBound(arr)
   
10.             If Val(arr(i, 3)) > 0 Then
    
11.                 m = m + 1
    
12.                 For j = 1 To UBound(arr, 2)
    
13.                     brr(m, j) = arr(i, j)
    
14.                 Next
    
15.             End If
    
16.         Next
    
17.         .[k1].CurrentRegion.Offset(1) = ""
    
18.         .Columns(14).NumberFormatLocal = "@"
    
19.         .[k1].Resize(m, 5) = brr
    
20.     End With
    
21.     Application.ScreenUpdating = True
    
22.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
23. End Sub
    
24. 
    

复制代码

Dragonfly7995

ykcbf1100 发表于 2024-2-21 11:20
用数组会快很多。

附件供参考。。。

非常感谢你的支持，一开始没想到数组

gwjkkkkk

数组法正解 ！！！