VBA Excel - Excluir linhas com determinada palavra - Delete Row With Specific Word

Termo de Responsabilidade

Aqui está um código para o MS Excel que irá excluir todas as linhas que contenham a palavra especificada na coluna que configurá-lo para pesquisar. 

O código procurará casos em que o conteúdo da célula esteja igual à palavra. Como o código usa o método SpecialCells, é extremamente rápido - muito mais rápido do que um ciclo através de um Range de células.

Sub DeleteRowsWithWord()

Dim Col As Variant, Word As String

Let Col = InputBox("Em qual coluna devo manter o foco da busca da palavra?")

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

Let Word = InputBox("Que palavra devo encontrar nas Linhas para apagá-las?")

With Columns(Col)

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

   .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete

End With

End Sub

Este código pode ser usado mesmo que existam células vazias no intervalo pesquisado. 

References:

Tags: VBA, Excel, excluir, delete, row, line, specialcells, range,