Как очистить содержимое именованного диапазона в Excel?
В этой статье будет показан метод очистки содержимого указанного именованного диапазона, а также очистки содержимого всех именованных диапазонов, но с сохранением имен диапазонов на активном листе в Excel.
Очистить содержимое именованного диапазона с кодом VBA
Очистить содержимое именованного диапазона с кодом VBA
Чтобы очистить содержимое указанного именованного диапазона или всего именованного диапазона на текущем листе, сделайте следующее.
1. На листе, содержащем именованный диапазон, из которого вы удалите содержимое, нажмите кнопку другой + 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 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?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!