Note: The other languages of the website are Google-translated. Back to English

Como deletar planilha com base no valor da célula no Excel?

Supondo que eu tenha várias planilhas em uma pasta de trabalho, agora, quero excluir as planilhas com base no valor da célula. Por exemplo, se a célula específica A1 contiver o texto “KTE”, todas as planilhas em que a célula A1 contém esse texto deverão ser excluídas de uma vez. Este artigo pode ajudá-lo a lidar com essa tarefa no Excel.

Excluir planilha com base no valor da célula com código VBA


seta azul bolha direita Excluir planilha com base no valor da célula com código VBA

Aqui, vou apresentar um código para você deletar todas as planilhas cuja célula específica tem um determinado valor, por favor, faça o seguinte:

1. Mantenha pressionada a ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: Exclua a planilha com base no valor da célula:

Sub deletesheetbycell()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
                                    "", , , , , 2)
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Range("A1").Value = shName Then
            xWs.delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub

Nota: No código acima, A1 é a célula específica que contém determinado texto no qual você deseja excluir as planilhas.

3. Então aperte F5 para executar este código e uma caixa de prompt é exibida para lembrá-lo de inserir o valor específico no qual deseja excluir as planilhas, consulte a captura de tela:

doc deletar planilha por célula 1

4. E, em seguida, clique em OK botão, todas as planilhas cuja célula A1 contém o texto KTE foram excluídas de uma vez. Veja a imagem:

doc deletar planilha por célula 2


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (4)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
pergunta rápida, o código acima funciona para mim para excluir planilhas que contêm o valor inserido, mas e se eu quiser excluir planilhas que não contêm o valor inserido. Tentei substituir o operador "=" pelo operador <>", mas não funcionou. Obrigado!
Este comentário foi feito pelo moderador no site
Ankur,
Como você disse, você só precisa alterar o "=" para " <>" conforme o código abaixo:

Sub deletesheetbycell()
Dim shName como string
Dim xName As String
Dim xWs como planilha
Dim cnt como inteiro
shName = Application.InputBox("Digite o texto não exclua as planilhas com base em:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
Para cada xW nesta pasta de trabalho.Planilhas
If xWs.Range("A1").Value <> shName Then
xWs.Excluir
cnt = cnt + 1
Se acabar
Próximos xWs
Application.DisplayAlerts = Verdadeiro
MsgBox "Excluídos" & cnt & "planilhas", vbInformation, "Kutools for Excel"
End Sub

Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Boa tarde,
Você poderia me dizer se existe uma maneira de responder automaticamente quando solicitado a excluir a planilha? Muito obrigado.
Este comentário foi feito pelo moderador no site
Olá novamente, Nevermind na minha última pergunta. Eu adicionei o seguinte antes e depois da linha Excluir:Application.DisplayAlerts = False
Application.DisplayAlerts = Verdadeiro

Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL