Як очистити вміст названого діапазону в Excel?
Ця стаття покаже вам спосіб очищення вмісту вказаного іменованого діапазону, а також очищення вмісту всіх іменованих діапазонів, але збереження імен діапазонів на активному аркуші в Excel.
Очистити вміст іменованого діапазону за допомогою коду VBA
Очистити вміст іменованого діапазону за допомогою коду VBA
Будь ласка, виконайте наступне, щоб очистити вміст зазначеного іменованого діапазону або всього іменованого діапазону на поточному аркуші.
1. На робочому аркуші міститься названий діапазон, з якого ви очистите вміст, натисніть клавішу інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте код 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% та зменшує сотні клацань миші для вас щодня!