Как удалить несколько листов в Excel (7 способов)

Опубликовано пользователем

Многие люди предпочитают, чтобы их рабочие книги Excel содержали только самую необходимую информацию. Если вы хотите очистить рабочую книгу и удалить ненужные данные, вам может понадобиться удалить сразу несколько строк. Существует множество методов, которые вы можете выбрать для достижения этой цели, и знакомство с ними может помочь вам выбрать технику, отвечающую вашим потребностям. В этой статье мы объясним ситуации, в которых эта практика может быть полезной, и поделимся семью способами удаления нескольких листов в Excel.

Когда удалять несколько листов в Excel

Вот несколько ситуаций, в которых вы можете захотеть удалить несколько листов в Excel:

  • Избыточность: Если вы заменили листы на более актуальную версию, вы можете удалить старые листы для наглядности.

  • Организация: Чтобы сделать файл более читабельным, вы можете удалить ненужные листы, а удаление нескольких листов одновременно может ускорить процесс.

  • Безопасность: Если вы работали над проектом, содержащим конфиденциальные данные, вы можете удалить листы, когда закончите их использовать, чтобы защитить информацию компании.

  • Ошибки: Можно случайно добавить лишние листы в файл, в результате чего вам придется удалить лишние листы.

  • Хранение: Файлы Excel с большим количеством листов могут быть большими, и если вы хотите сэкономить место для хранения, консолидация информации и удаление лишних листов может помочь.

Как удалить несколько соседних листов в Excel с помощью опции листа

Вот как использовать опцию листа для удаления нескольких листов в Excel:

  1. Удерживайте нажатой кнопку Shift на клавиатуре.

  2. В нижней части окна Excel выберите вкладки листов, которые вы хотите удалить.

  3. Щелкните правой кнопкой мыши на любом из выбранных листов, чтобы появилось выпадающее меню.

  4. В верхней части выпадающего меню вы можете увидеть пункт Удалить опция. Щелкните эту опцию. Вы также можете щелкнуть правой кнопкой мыши и нажать D на клавиатуре, чтобы удалить.

Как удалить несколько несмежных листов в Excel с помощью опции листа

Вот как использовать опцию листа для удаления нескольких несмежных листов в Excel:

  1. Нажмите и удерживайте клавишу Ctrl клавиша на клавиатуре.

  2. Удерживая кнопку Ctrl, щелкните каждую вкладку листов, которые вы хотите удалить, чтобы выбрать их.

  3. Щелкните правой кнопкой мыши на вкладке листа и найдите Удалить в меню.

  4. Щелкните Удалить или нажмите кнопку D на клавиатуре, чтобы удалить выбранные листы.

Как удалить несколько листов в Excel с помощью ленты

Вот как использовать опцию ленты для удаления нескольких листов в Excel:

  1. Нажмите и удерживайте кнопку Shift клавиша.

  2. Выберите листы, которые вы планируете удалить, под вашими данными.

  3. Перейдите к Главная в вашей ленте.

  4. Найдите Ячейки группа в правой части ленты и щелкните стрелку, чтобы открыть выпадающее меню.

  5. Вы можете увидеть значок с несколькими ячейками и красной X помечены Delete. Нажмите эту кнопку.

  6. Появляется выпадающее меню. Выберите Удалить лист.

Как удалить несколько листов в Excel с помощью VBA

Вот как использовать Visual Basic for Applications (VBA), язык программирования Excel, для удаления нескольких листов:

  1. Нажмите кнопку Alt клавиша и F11 клавиша на клавиатуре, чтобы открыть редактор Visual Basic Editor (VBE).

  2. Сайт Проект-VBAProject панель может появиться в левом верхнем углу вашего окна. В этой панели найдите один из ваших листов и щелкните правой кнопкой мыши.

  3. Перейдите к Вставить и наведите курсор на стрелку.

  4. В раскрывающемся меню выберите опцию Модуль.

  5. Затем Excel откроет окно, в котором вы можете ввести код. Вставьте следующий код:

    Sub Delete_Multiple_Excel_Worksheets() 'объявляем переменные
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim ws3 As Worksheet

    Set ws1 = Worksheets( Лист1 )
    Set ws2 = Worksheets( Sheet2 )
    Set ws3 = Worksheets( Лист3 )

    'удалить три рабочих листа одновременно
    ws1.Удалить
    ws2.Удалить
    ws3.Удалить

    End Sub

  6. Отрегулируйте имена листов в коде так, чтобы они отражали листы, которые вы хотите удалить.

  7. При сохранении рабочей книги Excel может спросить вас, хотите ли вы сохранить рабочую книгу без макросов. Чтобы сохранить проект VB, выберите Нет.

Как удалить все листы, кроме активного листа, в Excel с помощью VBA

Вот как удалить все листы, кроме активного, с помощью VBA:

  1. Щелкните правой кнопкой мыши на вкладке активного листа в нижней части окна.

  2. Выберите Просмотр кода.

  3. Может появиться окно с модулем VBA. Введите следующий код:

    Option ExplicitSub deletemultiplesheets()
    Dim spreadsheet As Worksheet
    Приложение.DisplayAlerts = False
    Для каждого листа в Листах
    Если электронная таблица.Имя <> ActiveSheet.Имя Затем
    электронная таблица.Удалить
    End If
    Следующий лист
    Application.DisplayAlerts = True
    End Sub

  4. Нажмите Выполнить чтобы активировать код и удалить все неактивные электронные таблицы.

  5. Включите макросы при сохранении рабочей книги, чтобы сохранить работоспособность проекта VB.

Как удалить несколько листов с определенной текстовой строкой в Excel с помощью VBA

Вот как использовать VBA для удаления нескольких листов с определенной текстовой строкой:

  1. Щелкните имя электронной таблицы, которую вы хотите удалить, на вкладках листов в нижней части окна.

  2. Щелкните правой кнопкой мыши на имени, чтобы открыть меню параметров.

  3. Выбрать Просмотр кода чтобы открыть модуль VBA.

  4. Вставьте следующий код:

    Option ExplicitSub DeleteSheetWithSameName()
    Dim spreadsheet As Worksheet
    Приложение.DisplayAlerts = False
    For Each spreadsheet In sheets
    Если электронная таблица.Имя Like Текстовая строка & Текстовая строка & Текстовая строка Затем
    MsgBox spreadsheet.Имя
    электронная таблица.Удалить
    End If
    Next spreadsheet
    Приложение.DisplayAlerts = True
    End Sub

  5. Заменить каждый Текстовая строка с текстовой строкой, включенной в любые листы, которые вы хотите удалить. Вы можете вручную добавить дополнительные текстовые строки, если вам нужно удалить больше листов, чем указано в коде.

  6. Нажмите на кнопку Запустить чтобы активировать код.

  7. Excel выдает диалоговое окно для подтверждения каждого листа, который вы хотите удалить. Проверьте, что вы ввели правильные имена листов, и нажмите кнопку OK.

  8. Сохраните файл с включенными макросами.

Как удалить несколько листов с помощью сочетания клавиш

Вот как использовать комбинацию клавиш для удаления нескольких листов в Excel:

  1. Выберите листы, которые вы хотите удалить.

  2. Нажмите кнопку Alt клавиша на клавиатуре.

  3. Отпустите Alt, затем нажмите кнопку H клавиша.

  4. После нажатия H, нажмите кнопку D ключ.

  5. Завершите работу с ярлыком, нажав кнопку S.

Советы по удалению нескольких листов в Excel

Вот несколько советов, которые могут помочь вам успешно удалить сразу несколько листов в Excel:

Изучите ресурсы VBA, прежде чем работать с кодом

Если вы новичок в кодировании, все равно можно успешно использовать опции VBA. Для ознакомления с тем, как работает VBA, может быть полезно изучить эту функцию и прочитать учебные материалы, объясняющие ее основы. Если в вашей организации есть специалисты, работающие с кодом, они могут помочь вам понять и настроить модули VBA.

Проверьте свою работу

Если вы работаете с большим объемом данных, важно перемещаться осторожно, чтобы сохранить все нужные вам листы. Прежде чем завершить удаление, перепроверьте, что вы ввели или выбрали правильные листы. Некоторые методы позволяют восстановить удаленные листы, но полезно выработать привычку регулярно просматривать свою работу.

Выберите метод, который отвечает вашим потребностям

Хотя некоторые методы могут показаться более простыми, чем другие, вы можете сэкономить время и энергию, изучив каждый метод и оценив свои потребности. Ваши данные могут лучше реагировать на код VBA, который отвечает вашим конкретным потребностям. Например, если у вас большой объем листов и ваш менеджер просит удалить все, где упоминается завершенный проект, использование опции текстовой строки поможет вам удалить их без ручного просмотра каждого листа.

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

Рубрика: 
Ключевые слова: 
Источник: 
  • indeed.com
Перевод: 
  • Дмитрий Л

Поделиться