Note: The other languages of the website are Google-translated. Back to English

Как удалить все диапазоны, кроме выбранных в Excel?

В Excel мы можем быстро и напрямую удалить выбранные диапазоны, но пробовали ли вы когда-нибудь удалить другое содержимое ячеек, кроме выбранных диапазонов? В этой статье я расскажу о некоторых приемах, которые помогут вам быстро и легко решить эту задачу в Excel.

Удалить все, кроме выбранных диапазонов с кодом VBA

Удалите все, кроме выбранных диапазонов, с помощью Select Range Helper из Kutools for Excel

Удалите все, кроме выбранных диапазонов с помощью Copy Ranges of Kutools for Excel


Удалить все, кроме выбранных диапазонов с кодом VBA

У вас нет прямого способа удалить все невыбранные значения ячеек сразу, но следующий код VBA может вам помочь, пожалуйста, сделайте следующее:

1. Пожалуйста, держите Ctrl чтобы выбрать ячейки, которые вы хотите сохранить.

документ удалить все, кроме выбранного 1

2, нажмите Alt + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

3. В Microsoft Visual Basic для приложений диалоговое окно окна, щелкните Вставить > Модули, затем скопируйте и вставьте приведенный ниже код 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 кнопку, см. снимок экрана:

документ удалить все, кроме выбранного 2

5. После нажатия OK, все остальные значения ячеек были удалены, но остались только выбранные диапазоны, см. снимок экрана:

документ удалить все, кроме выбранного 3


Удалите все, кроме выбранных диапазонов, с помощью Select Range Helper из Kutools for Excel

Если вы установили Kutools for Excel, С его Обратный выбор особенность Выбрать помощника по диапазону утилиту, вы можете быстро отменить выбор, а затем сразу удалить перевернутый выбор.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. 

После установки Kutools for Excel, пожалуйста, сделайте следующее :( Скачать бесплатно Kutools for Excel прямо сейчас! )

1. Выберите диапазоны ячеек, которые вы хотите сохранить.

2. Затем нажмите Кутулс > Выберите > Выбрать помощника по диапазону, см. снимок экрана:

3. В Выбрать помощника по диапазону диалоговое окно, отметьте Обратный выбор, см. снимок экрана:

документ удалить все, кроме выбранного 5

4. Затем перетащите мышь, чтобы выбрать диапазон, в котором вы хотите отменить выбор. Когда вы отпустите кнопку мыши, выделенные ячейки будут отменены, а невыделенные ячейки будут выделены сразу. Смотрите скриншот:

документ удалить все, кроме выбранного 6

5. Затем закройте диалоговое окно и нажмите Удалить клавиша, чтобы удалить выбранные сразу. И остались только желаемые ячейки, см. Снимок экрана:

документ удалить все, кроме выбранного 7

Скачать бесплатно Kutools for Excel прямо сейчас!


Удалите все, кроме выбранных диапазонов, с помощью Select Range Helper из Kutools for Excel

Еще одна полезность -Копировать диапазоны of Kutools for Excel также может помочь вам завершить эту работу, вам просто нужно скопировать выбранные диапазоны на новый лист, а затем удалить старый лист.

После установки Kutools for Excel, выполните следующие действия :( Скачать бесплатно Kutools for Excel прямо сейчас! )

1. Держать Ctrl , чтобы выбрать диапазоны ячеек, которые вы хотите сохранить.

2. Затем нажмите Кутулс > Копировать диапазоны, см. снимок экрана:

3. И в Копировать несколько диапазонов диалоговое окно, отметьте Всё вариант под Специальная вставка, проверить Включая высоту строки и Включая ширину столбца если вы хотите сохранить желаемую высоту строки и ширину столбца, см. снимок экрана:

документ удалить все, кроме выбранного 9

4. Затем нажмите Ok , и появится другое окно подсказки, чтобы напомнить вам выбрать ячейку для размещения скопированных ячеек, выберите ячейку на новом листе, см. снимок экрана:

документ удалить все, кроме выбранного 10

5, Затем нажмите OK, и только выбранные вами диапазоны были вставлены в новый лист, и теперь вы можете удалить исходный лист по мере необходимости.

Скачать бесплатно Kutools for Excel прямо сейчас!


Демо: удалите все, кроме выбранных диапазонов с помощью Kutools for Excel

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL