question

Podemos encontrar e apagar com determinada palavra em excel e toda a linha que contem essa palavra?

como se com ctrl + F encontrei "apple" em 20 diferentes linhas e eu quero excluir todas as linhas, mas todas as linhas estão em ordem diferente (mas em uma pasta de trabalho do curso)... então podemos fazer isso.
Por favor me ajude.
Obrigado
resposta Resposta
Sua pergunta é um pouco vaga no que se refere 'linhas estão em ordem diferente'. Não sei exatamente o que dizer.

No entanto, o manipulador de eventos a seguir vai fazer o que pede.

Copie o manipulador de evento a seguir para a área de transferência (realçar todo o código, clique dentro da área em destaque e 'Cópia'):

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _

ByVal Target As Range, Cancel As Boolean)

Dim i, LastRow

LastRow = Application.Cells. SpecialCells(xlCellTypeLastCell).Linha

selWord = InputBox ("digite a palavra-chave para excluir.", "Critérios de pesquisa")

Se selWord = "" Então

Exit Sub

End If

Para i = LastRow para 1 etapa -1

Se Application.CountIf (gama (eu & ":" & eu), selWord) Então

Intervalo (eu & ":" & eu).EntireRow.Delete

End If

Próxima

Target.Offset (0, 1).Selecione

End Sub

Selecione qualquer planilha e clique na guia de planilha na parte inferior.

Duplo clique 'Esta pasta de trabalho' em objetos Microsoft VBA Project no quadrante superior esquerdo.

Cole o manipulador de eventos o branco edição área à direita (clique direito dentro da área e 'Colar').

Feche o VBE (botão vermelho w/branco 'x' - canto superior direito).

Dê um duplo clique em qualquer célula, digite a palavra-chave e clique em 'OK' ou pressione ENTER.

Todas as linhas que contenham a palavra-chave serão excluídas da planilha ativa. Nota: este manipulador de eventos é diferencia maiúsculas de minúsculas. Você deve digitar a palavra-chave no mesmo caso que aparece na planilha; letras maiúsculas, minúsculas ou caso adequado.

Comentários Comentários

Guest
Andre na 20 Out 2018
0
"Ctrl+F"
Vá em "Replace"
"Find What" = Apple
"Replace With" = (deixar em branco)
Replace All

O seu comentário
Acho que a resposta não está correta ou que você gostaria de acrescentar mais
alguma informação? Envie o seu comentário abaixo..

Guest


HTML não é permitido!

Image Code

Digite os caracteres que aparecem na imagem por isso sabemos que você é humano!

Receber um email quando alguém acrescenta outro comentário a esta pergunta


Topo da página


Home  Terms
Copyright © Accelerated Ideas 2005-2024
All rights reserved