Excluir Linhas que Atendem a Determinados Critérios no VBA

A seguinte sub-rotina excluirá cada linha em um intervalo em que o valor na coluna A começa com um texto prescrito:

Sub Apagar_Linhas(Intervalo_Dados As Range, Texto As String)
   Dim Contador_Linhas As Integer
   For Contador_Linhas = Intervalo_Dados.Rows.Count To 1 Step -1
      If Intervalo_Dados Is Nothing Then
         Exit Sub
      End If
      If UCase(Left(Intervalo_Dados.Cells(Contador_Linhas, 1).Value, Len(Texto))) = UCase(Texto) Then
         Intervalo_Dados.Cells(Contador_Linhas, 1).EntireRow.Delete
      End If
   Next Contador_Linhas 

End Sub

Por exemplo, Apagar_Linhas(Sheets(“Planilha1”).Range(“A1:E37”), “Cachorro”) excluirá todas as linhas do intervalo A1:E23 em que o valor na coluna A começa com a palavra “Cachorro”. Observe que o uso de Ucase significa que a fórmula é INSENSÍVEL a maiúsculas e minúsculas, ou seja, todas as células que começarem com CACHORRO, Cachorro, CaChorro, etc  serão excluídas.

Isso:

Se tornará:

Codificação VBA facilitada

Pare de procurar códigos VBA on-line. Saiba mais sobre o AutoMacro – um construtor de código VBA que permite que os iniciantes codifiquem procedimentos do zero com conhecimento mínimo de codificação e com muitos recursos que economizam tempo para todos os usuários!