Как удалить всё, кроме выбранного диапазона, в Excel?
В Excel можно быстро и напрямую удалить Выберите диапазон, но пробовали ли вы когда-нибудь удалить содержимое других ячеек, оставив только Выберите диапазон? В этой статье я расскажу вам о нескольких приёмах, которые помогут быстро и легко выполнить эту задачу в Excel.
Удаление всего, кроме Выберите диапазон, с помощью кода VBA
Удаление всего, кроме Выберите диапазон, с помощью Помощник диапазона из Kutools для Excel
Удаление всего, кроме Выберите диапазон, с помощью Копировать диапазоны из Kutools для Excel
Удаление всего, кроме Выберите диапазон, с помощью кода VBA
Прямого способа удалить все значения из невыделенных ячеек сразу нет, но следующий код VBA поможет вам в этом. Выполните следующие действия:
1. Удерживая клавишу Ctrl, выделите ячейки, которые нужно сохранить.
2. Нажмите одновременно клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
3. В диалоговом окне Microsoft Visual Basic for Applications выберите Вставка > Модуль, затем скопируйте и вставьте приведённый ниже код VBA в окно Модуля.
Код VBA: удаление всех значений ячеек, кроме Выберите диапазон
Sub ClearAllExceptSelection()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In ActiveSheet.UsedRange
If Intersect(xCell, xRg) Is Nothing Then
xCell.Clear
End If
Next
Application.ScreenUpdating = xUpdate
End Sub
4. Затем нажмите клавишу F5, чтобы запустить этот код. Появится диалоговое окно с запросом на выбор диапазона ячеек для сохранения. Если вы уже выделили нужные диапазоны на шаге 1, просто нажмите кнопку OK. Если нет — выберите нужные ячейки прямо в этом окне, разделяя несколько диапазонов запятыми, а затем нажмите кнопку OK. См. снимок экрана:
5. После нажатия кнопки OK все остальные значения в ячейках будут удалены — останется только «Выберите диапазон». См. снимок экрана:
Удаление всего, кроме Выберите диапазон, с помощью Помощник диапазона из Kutools для Excel
Если у вас установлен Kutools для Excel, воспользуйтесь функцией Инвертировать выбор из утилиты Помощник диапазона — и вы сможете мгновенно инвертировать выделение, а затем удалить его одним щелчком!
После установки Kutools для Excelвыполните следующие действия:
1. Выделите диапазоны ячеек, которые нужно сохранить.
2. Затем последовательно нажмите Kutools > Выделить > Помощник диапазона. См. снимок экрана:
3. В диалоговом окне Помощник диапазона установите флажок Инвертировать выбор. См. снимок экрана:
4. Затем перетащите курсор мыши, чтобы выделить диапазон, для которого нужно инвертировать выделение. Как только вы отпустите кнопку мыши, ранее выделенные ячейки снимутся с выделения, а невыделенные — выделятся одновременно. См. снимок экрана:
5. Закройте диалоговое окно и нажмите клавишу Delete, чтобы мгновенно удалить выделенные ячейки. Таким образом, останутся только нужные вам ячейки. См. снимок экрана:
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Удаление всего, кроме Выберите диапазон, с помощью Помощник диапазона из Kutools для Excel
Другая утилита — Копировать диапазоны из Kutools для Excel также поможет вам решить эту задачу: просто скопируйте нужный диапазон на новый лист, а затем удалите исходный.
После установки Kutools для Excelвыполните следующие шаги:
1. Удерживая клавишу Ctrl, выделите диапазоны ячеек, которые нужно сохранить.
2. Затем последовательно нажмите Kutools > Копировать диапазоны. См. снимок экрана:
3. В диалоговом окне Копировать несколько диапазонов установите флажок напротив опции Все в разделе Вставить специально, а также отметьте флажки Включить высоту строки и Включить ширину столбца, если хотите сохранить нужные вам высоту строк и ширину столбцов. См. снимок экрана:
4. Нажмите кнопку Ok, после чего откроется диалоговое окно с предложением выбрать ячейку для вставки скопированных данных. Выберите ячейку на новом листе. См. снимок экрана:
5. Затем нажмите кнопку OK, и только выбранный вами диапазон будет вставлен на новый лист. Теперь вы можете удалить исходный лист, если это необходимо.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: удаление всего, кроме Выберите диапазон, с помощью Kutools для 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек