Como limpar o conteúdo de um intervalo nomeado no Excel?
Este guia explica como limpar o conteúdo de um intervalo nomeado específico ou de todos os intervalos nomeados na folha de cálculo ativa no Excel. Com o VBA, pode manter os intervalos nomeados intactos enquanto remove os respetivos conteúdos de forma eficiente.
Limpar o conteúdo de um intervalo nomeado com código VBA
Limpar o conteúdo de um intervalo nomeado com código VBA
Siga os passos abaixo para limpar o conteúdo de um intervalo nomeado específico ou de todos os intervalos nomeados na folha ativa.
1. Na folha de cálculo que contém o intervalo nomeado cujo conteúdo pretende limpar, prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o seguinte código VBA para a janela de código.
Para limpar o conteúdo de um intervalo nomeado específico na folha de cálculo, utilize o código VBA abaixo.
Código VBA 1: Limpar o conteúdo de um intervalo nomeado específico no Excel
Sub Clear_ActiveSheet_Name_Ranges()
Dim xName As Name
Dim xInput As String
Dim xRg As Range
On Error Resume Next
xInput = Application.InputBox("Enter the name of the named range you will clear contents from:", "KuTools For Excel", , , , , , 2)
If xInput = "False" Then Exit Sub
Application.ScreenUpdating = False
Set xName = ActiveWorkbook.Names(xInput)
If Not xName Is Nothing Then
xName.RefersToRange.Clear
End If
Application.ScreenUpdating = True
End Sub3. Prima a tecla F5 para executar o código.
4. Em seguida, surge uma caixa de diálogo Kutools para Excel. Introduza o nome do intervalo nomeado cujo conteúdo pretende limpar e, depois, clique no botão OK. Veja a imagem:
Todo o conteúdo das células do intervalo nomeado especificado será apagado imediatamente.
Para limpar o conteúdo de todos os intervalos nomeados na folha de cálculo ativa, utilize o seguinte código VBA.
Código VBA 2: Limpar o conteúdo de todos os intervalos nomeados na Planilha Atual no Excel
Sub Clear_All_ActiveSheet_Name_Ranges()
Dim xRange As Range
Dim xName As Name
Dim xReSponse As Long
On Error Resume Next
xReSponse = MsgBox("For clearing contents of all named ranges of active sheet in " & ActiveWorkbook.Name _
& Chr(10) & "('OK' to Delete, 'Cancel' to Quit.)", vbOKCancel, "KuTools For Excel")
If xReSponse = 2 Then
MsgBox "User chose to cancel.", vbOKOnly, "KuTools For Excel"
Exit Sub
End If
For Each xName In ActiveWorkbook.Names
Set xRange = Nothing
Set xRange = Intersect(ActiveSheet.UsedRange, xName.RefersToRange)
If Not xRange Is Nothing Then xRange.Clear
Next xName
Application.ScreenUpdating = True
End Sub3. Prima a tecla F5 para executar o código e, em seguida, clique no botão OK na caixa de diálogo Kutools para Excel, conforme mostrado na imagem seguinte.
Todo o conteúdo dos intervalos nomeados é então removido da folha atual.
Artigos relacionados:
- Como limpar o conteúdo de uma caixa de combinação usando código VBA no Excel?
- Como limpar simultaneamente conteúdos e formatação de células no Excel?
- Como remover valores restritos de células no Excel?
- Como limpar automaticamente o conteúdo de células específicas quando o valor de outra célula for alterado no Excel?
- Como limpar o conteúdo de células específicas ao abrir e fechar a pasta de trabalho do Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos