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 em uma planilha ativa no Excel. Usando VBA, você pode preservar os intervalos nomeados enquanto remove seus 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

Por favor, siga os passos abaixo para limpar o conteúdo de um intervalo nomeado específico ou de todos os intervalos nomeados na planilha atual.

1. Na planilha que contém o intervalo nomeado do qual você deseja limpar o conteúdo, pressione 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 na janela Código.

Para limpar o conteúdo de um intervalo nomeado específico na planilha, aplique 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 Sub

3. Pressione a tecla F5 para executar o código.

4. Em seguida, uma caixa de diálogo Kutools for Excel será exibida. Por favor, insira o nome do intervalo nomeado do qual você deseja limpar o conteúdo e clique no botão OK. Veja a captura de tela:

Todo o conteúdo nas células do intervalo nomeado especificado será imediatamente limpo.

Para limpar o conteúdo de todos os intervalos nomeados na planilha ativa, aplique o seguinte código VBA.

Código VBA 2: Limpar o conteúdo de todos os intervalos nomeados na planilha ativa 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 Sub

3. Pressione a tecla F5 para executar o código, depois clique no botão OK na caixa de diálogo Kutools for Excel conforme mostrado na captura de tela abaixo.

O conteúdo de todos os intervalos nomeados será limpo da planilha ativa.

Artigos relacionados:

• Como limpar o conteúdo de uma caixa de combinação com código VBA no Excel?
• Como limpar o conteúdo e a formatação ao mesmo tempo nas células no Excel?
• Como limpar valores restritos nas células no Excel?
• Como limpar o conteúdo de células específicas se o valor de outra célula mudar no Excel?
• Como limpar o conteúdo de células específicas ao abrir e sair em uma pasta de trabalho do Excel?