VBA Excel - Deletando Linhas com a palavra passada como parâmetro

Como posso apagar a linha que contém certa palavra na minha planilha? 

Use a função abaixo:

Sub DelRowWithWord()

Dim Col As Variant

Dim Word As String

Let Col = InputBox ("Qual é a coluna que contém a palavra que deseja identificar")

           

If Len(Col) > 0 And Not Col Like "*[!0-9]*" Then Col = Val(Col)

Let Word = InputBox ("Digite a palavra que identificará as linhas que deseja deletar:")

        

With Columns(Col)

    .Replace Word, "#N/A", xlWhole

    .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete

End With

End Sub

Tags: Excel, UDF, text, delete, exclui, palavra, word, row, line

André Luiz Bernardes

A&A® - In Any Place.

VBA Blogs 

  bernardes@.com