Como excluir uma planilha específica se houver na pasta de trabalho?
Como você poderia excluir uma planilha específica se ela existir em uma pasta de trabalho? Normalmente, você precisa localizar e verificar se existe e, em seguida, excluí-lo manualmente. Aqui, falarei sobre uma maneira fácil de excluir a planilha especificada diretamente se ela existir no arquivo do Excel.
Exclua uma planilha específica se existir em uma pasta de trabalho com código VBA
Exclua uma planilha específica se existir em uma pasta de trabalho com código VBA
O seguinte código VBA pode ajudá-lo a excluir a planilha especificada se ela existir na pasta de trabalho, 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 uma planilha específica se houver na pasta de trabalho
Sub Test()
'Updateby Extendoffice
Dim xWs As Worksheet
Dim sheetName As String
sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet1", , , , , 2)
Application.DisplayAlerts = False
Err.Clear
On Error Resume Next
Set xWs = Sheets(sheetName)
If Err <> 0 Then
MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
Exit Sub
Else
xWs.Delete
MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
End If
Application.DisplayAlerts = True
End Sub
3. Então aperte F5 chave para executar este código, uma caixa de prompt é exibida para lembrá-lo de digitar o nome da planilha que você deseja verificar se existe, consulte a captura de tela:
4. E, em seguida, clique em OK botão:
(1.) Se a planilha existir, ela será excluída de uma vez, veja a imagem:
(2.) Se a folha não existir, uma caixa de prompt aparecerá para lembrá-lo da seguinte imagem mostrada:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!