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,  



Nenhum comentário:

Postar um comentário

diHITT - Notícias