Excel vba найти значение в листах и ​​удалить строки

Question

Я написал нижеприведенные макросы ниже, и он отлично работает, когда есть данные (пример) 12345 на листе SMT02.

Итак, если присутствует 12345, он оставляет эти строки и удаляет остальные строки другими данными.

Но я хочу, чтобы он работал таким образом, даже если 12345 нет, тогда я все еще хочу, чтобы все остальное (строки) было удалено. На данный момент он отлаживается и останавливается. Может ли кто-нибудь помочь?

Dim c As Range 
Dim SrchRng 

Sheets("SMT02").Select 
Range("B1").Select 
Set SrchRng = ActiveSheet.Range("B1", ActiveSheet.Range("B65536").End(xlUp)) 
Do 
    Set c = SrchRng.Find("12345", LookIn:=xlValues) 
    If Not c Is Nothing Then c.EntireRow.Delete 
Loop While Not c Is Nothing 

Answer 1

Если вы пытаетесь удалить каждую строку в листе, когда значение «12345» не присутствует в клетках определенного столбца (столбец B в вашем примере) на конкретном листе (SMT02 в вашем примере) Я думаю, вы обнаружите, что это работает:

Sub DeleteRowIfNot12345() 

    Dim Rng As Range 
    Dim x As Long 

    Sheets("SMT02").Select 

    Set Rng = Range("B1:B" & Range("B65536").End(xlUp).Row) 
    For x = Rng.Rows.Count To 1 Step -1 
     If InStr(1, Rng.Cells(x, 1).Value, "12345") = 0 Then 
      Rng.Cells(x, 1).EntireRow.Delete 
     End If 
    Next x 

End Sub