Как очистить содержимое именованного диапазона в Excel?
В этом руководстве рассказывается, как удалить содержимое из конкретного именованного диапазона или из всех именованных диапазонов на активном листе Excel. С помощью VBA вы сможете быстро и эффективно очистить данные, сохранив при этом сами именованные диапазоны.
Очистка содержимого именованного диапазона с помощью кода VBA
Очистка содержимого именованного диапазона с помощью кода VBA
Выполните следующие действия, чтобы очистить содержимое определённого именованного диапазона или всех именованных диапазонов на текущем листе.
1. На листе, содержащем именованный диапазон, содержимое которого требуется очистить, нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль, а затем скопируйте приведённый ниже код 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 Sub3. Нажмите клавишу F5, чтобы выполнить код.
4. Затем появится диалоговое окно Kutools для Excel. Укажите имя именованного диапазона, содержимое которого нужно очистить, и нажмите кнопку ОК. См. снимок экрана:
Всё содержимое ячеек указанного именованного диапазона будет мгновенно удалено.
Чтобы очистить содержимое всех именованных диапазонов на активном листе, воспользуйтесь приведённым ниже кодом 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 Sub3. Нажмите клавишу F5, чтобы выполнить код, затем в появившемся диалоговом окне Kutools для Excel нажмите кнопку ОК, как показано на снимке экрана ниже.
Затем содержимое всех именованных диапазонов будет удалено с текущего листа.
Связанные статьи:
- Как с помощью кода VBA очистить содержимое поля со списком в Excel?
- Как одновременно очистить содержимое и форматирование ячеек в Excel?
- Как удалить ограничения на значения в ячейках Excel?
- Как очистить содержимое заданных ячеек при изменении значения в другой ячейке Excel?
- Как очистить содержимое указанных ячеек при открытии и закрытии книги Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек