快速删除指定列的包含指定字符的行

limonet

AdvancedFilter，可筛选到其它sheet

ykcbf1100

如果数据多的话，还是用数组法删除更快。现在是按D列是“是”的删除。

ykcbf1100

1. Sub ykcbf()   '//2025.3.25
   
2.     Application.ScreenUpdating = False
   
3.     r = Cells(Rows.Count, 2).End(3).Row
   
4.     arr = Range("b1:d" & r)
   
5.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     Dim tm: tm = Timer
   
7.     For i = 4 To UBound(arr)
   
8.         If InStr(arr(i, 3), "是") = 0 Then
   
9.             m = m + 1
   
10.             For j = 1 To UBound(arr, 2)
    
11.                 brr(m, j) = arr(i, j)
    
12.             Next
    
13.         End If
    
14.     Next
    
15.     Range("b4:d" & m) = brr
    
16.     Cells(m + 1, 2).Resize(10000, 3).Clear
    
17.     Application.ScreenUpdating = True
    
18.     MsgBox "共用时：" & Format(Timer - tm, "0.000") & "秒！"
    
19. End Sub
    
20. 
    

复制代码

翁知江安

Sub test()
Dim i, j, k, t As Long
Dim ar, br As Variant
ar = Sheet1.[b3].CurrentRegion
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 2 To UBound(ar)
   If Year(ar(i, 2)) <> 2024 And ar(i, 3) <> "是" Then
      k = k + 1
      For j = 1 To UBound(ar, 2)
      br(k, j) = ar(i, j)
      Next
    End If
Next
Sheet1.[b4].Resize(UBound(ar), UBound(ar, 2)).ClearContents
Sheet1.[b4].Resize(k, UBound(ar, 2)) = br
MsgBox "ok"
End Sub

翁知江安

供参考，欢迎批评指正。

gwjkkkkk

gwjkkkkk

请参考附件。。。