VBA批量删除B列单元格内容是3开头的行

BU_PING

在"查询结果"工作表中将B列单元格内容是3开头的进行整行删除

kittli

Sub text()
   With Sheets("查询结果")
      r = .Cells(.Rows.Count, "c").End(xlUp).Row
      For i = r To 2 step-1
         If Left(.Cells(i, 2).Value, 1) = 3 Then Rows(i).Delete
      Next
   End With
End Sub

joy.008@163.com

kittli 发表于 2024-1-24 12:04
Sub text()
   With Sheets("查询结果")
      r = .Cells(Rows.Count, "c").End(xlUp).Row

有删除行的时候 应该倒序
For i = r To 2 step  -1

kittli

joy.008@163.com 发表于 2024-1-24 12:22
有删除行的时候 应该倒序
For i = r To 2 step  -1

是的！忘记了！

gwjkkkkk

正序的话union方式也可以，或数组方式。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.1.24
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     With Sheets("查询结果")
   
5.         r = .Cells(Rows.Count, 2).End(3).Row
   
6.         arr = .UsedRange
   
7.         Set Rng = .Rows(r + 1)
   
8.         For i = 2 To UBound(arr)
   
9.             If Left(CStr(arr(i, 2)), 1) = "3" Then
   
10.                 Set Rng = Union(Rng, .Rows(i))
    
11.             End If
    
12.         Next i
    
13.         If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
14.     End With
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "OK！"
    
17. End Sub
    

复制代码

ykcbf1100

附件供参考。。。