Termo de Responsabilidade
Este código exclui todas as linhas onde a palavra especificada não aparecer. O código procurará casos em que toda a célula for igual à palavra(s) indicada. Como o código usa o método SpecialCells, é extremamente rápido - muito mais rápido do que ciclos através de um intervalo de células.
Sub DeleteRowsWithoutWord()
Dim Col As Variant, Word As String, LastRow As LongLet Col = InputBox("Qual é a coluna na qual buscarei a palavra para deleção?")If Len(Col) > 0 And Not Col Like "*[!0-9]*" Then Col = Val(Col)Let Word = InputBox("Que palavra deve estar nas linhas que não apagarei?")Let LastRow = Cells(Rows.Count, Col).End(xlUp).RowOn Error Resume NextWith Range(Cells(1, Col), Cells(LastRow, Col)).Replace Word, "#N/A", xlWhole.SpecialCells(xlCellTypeBlanks).EntireRow.Delete.SpecialCells(xlCellTypeConstants, xlLogical + xlNumbers + xlTextValues).EntireRow.DeleteLet .SpecialCells(xlCellTypeConstants, xlErrors).Value = WordEnd With
End Sub
References:
Tags: VBA, Excel, excluir, delete, row, line, specialcells, range,
Tags: VBA, Excel, excluir, delete, row, line, specialcells, range,
Nenhum comentário:
Postar um comentário