Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Donativo

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

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


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. 


Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine