Cambiare la discussione del xlWhole a xlPart
Sub Cue2 ()
Oscurare il rFind come gamma
Application.ScreenUpdating = falso
Con gli strati (“sistema„). Colonne (3)
Regolare il rFind =. Trovare (che cosa: = " indicazione ", LookAt: =xlPart, MatchCase: =False, SearchFormat: =False)
Se non il rFind allora è niente
Fare
rFind.EntireRow.Delete
Regolare il rFind =. Trovare (che cosa: = " indicazione ", LookAt: =xlPart, MatchCase: =False, SearchFormat: =False)
Collegare fino a che il rFind non sia niente
Concluder se
Concluder con
Application.ScreenUpdating = allineano
Sommergibile dell'estremità