Как очистить содержимое именованного диапазона в Excel?

Это руководство объясняет, как очистить содержимое из определенного именованного диапазона или всех именованных диапазонов на активном листе в Excel. Используя VBA, вы можете сохранить именованные диапазоны, эффективно удалив их содержимое.

Очистка содержимого именованного диапазона с помощью кода VBA

Очистка содержимого именованного диапазона с помощью кода VBA

Пожалуйста, выполните следующие действия, чтобы очистить содержимое определенного именованного диапазона или всех именованных диапазонов на текущем листе.

1. На листе, содержащем именованный диапазон, который нужно очистить, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте следующий код VBA в окно Кода.

Для очистки содержимого определенного именованного диапазона на листе примените приведенный ниже код VBA.

Код VBA 1: Очистка содержимого определенного именованного диапазона в 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. Нажмите клавишу F5 для запуска кода.

4. Появится диалоговое окно Kutools for Excel. Введите имя именованного диапазона, из которого хотите очистить содержимое, а затем нажмите кнопку OK. См. скриншот:

Все содержимое ячеек указанного именованного диапазона будет немедленно очищено.

Чтобы очистить содержимое всех именованных диапазонов на активном листе, примените следующий код VBA.

Код VBA 2: Очистка содержимого всех именованных диапазонов на активном листе в 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. Нажмите клавишу F5 для запуска кода, затем нажмите кнопку OK в диалоговом окне Kutools for Excel, как показано на скриншоте ниже.

Затем содержимое всех именованных диапазонов будет очищено с активного листа.

Связанные статьи:

• Как очистить содержимое поля со списком с помощью кода VBA в Excel?
• Как одновременно очистить содержимое и форматирование ячеек в Excel?
• Как очистить ограниченные значения в ячейках в Excel?
• Как очистить содержимое определенных ячеек при изменении значения другой ячейки в Excel?
• Как очистить содержимое определенных ячеек при открытии и закрытии книги Excel?