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?