Como limpar o conteúdo do intervalo nomeado no Excel?
Este artigo mostrará o método de limpar o conteúdo de um intervalo nomeado especificado, bem como limpar o conteúdo de todos os intervalos nomeados, mas mantendo os nomes dos intervalos em uma planilha ativa no Excel.
Limpe o conteúdo do intervalo nomeado com o código VBA
Limpe o conteúdo do intervalo nomeado com o código VBA
Faça o seguinte para limpar o conteúdo de um intervalo nomeado especificado ou de todos os intervalos nomeados na planilha atual.
1. Na planilha que contém o intervalo nomeado do qual você limpará o conteúdo, pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código do VBA abaixo para a janela de código.
Para limpar o conteúdo de um intervalo nomeado especificado na planilha, aplique o código VBA abaixo.
Código VBA 1: limpar o conteúdo de um intervalo nomeado especificado 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 Sub
3. aperte o F5 chave para executar o código.
4. Então um Kutools for Excel caixa de diálogo aparece. Insira o nome do intervalo nomeado do qual limpará o conteúdo e clique no botão OK botão. Veja a imagem:
Em seguida, todo o conteúdo nas células do intervalo nomeado especificado é limpo imediatamente.
Para limpar o conteúdo de todos os intervalos nomeados na planilha ativa, aplique o código VBA abaixo.
Código VBA 2: limpar o conteúdo de todos os intervalos nomeados na planilha ativa do 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 Sub
3. aperte o F5 para executar o código e, em seguida, clique no OK botão no Kutools for Excel caixa de diálogo como a imagem abaixo mostrada.
Em seguida, o conteúdo de todos os intervalos nomeados são apagados da planilha ativa.
Artigos relacionados:
- Como limpar o conteúdo da caixa de combinação com o código VBA no Excel?
- Como limpar conteúdo e formatação ao mesmo tempo em células no Excel?
- Como limpar valores restritos em células no Excel?
- Como limpar o conteúdo da célula especificada se o valor de outra célula for alterado no Excel?
- Como limpar o conteúdo da célula especificada ao abrir e sair da pasta de trabalho do Excel?
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!