Как да изчистите съдържанието на именуван диапазон в 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. След това a Kutools за 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 за Excel диалогов прозорец, както е показано на екранната снимка по-долу.
След това съдържанието на всички именувани диапазони се изчиства от активния лист.
Още по темата:
- Как да изчистите съдържанието на комбинираното поле с VBA код в Excel?
- Как да изчистите съдържанието и форматирането едновременно в клетки в Excel?
- Как да изчистите ограничени стойности в клетки в Excel?
- Как да изчистя определено съдържание на клетка, ако стойността на друга клетка се промени в Excel?
- Как да изчистя определено съдържание на клетка при отваряне и излизане в работна книга на Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!