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.




Nenhum comentário:

Postar um comentário

diHITT - Notícias