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

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

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

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

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

---

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

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

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

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 кнопку, см. снимок экрана:

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

---

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

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

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

Перейти к загрузке Бесплатная пробная версия 30 днейпокупка PayPal / Моя коммерция

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

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

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

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

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

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

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

---

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

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

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

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

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

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

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

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

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

---

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