Как очистить содержимое именованного диапазона в 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 Sub3. Нажмите клавишу 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 Sub3. Нажмите клавишу F5 для запуска кода, затем нажмите кнопку OK в диалоговом окне Kutools for 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек