Как сохранить только один лист в книге в Excel?

При использовании Excel можно легко сохранить только один рабочий лист из книги в виде нового файла Excel. Но что, если вы сохраните только один рабочий лист и удалите остальные рабочие листы в рабочей книге? В этой статье показано, как сохранить только один лист в виде нового файла Excel, а затем удалить неактивные листы в текущей книге.

Сохраните только один рабочий лист как новый файл Excel с помощью функции перемещения или копирования
Сохраните только один лист в текущей книге с помощью VBA
Сохранить только один лист в текущей книге одним щелчком мыши

---

Сохраните только один рабочий лист как новый файл Excel с помощью функции перемещения или копирования

Компания Переместить или скопировать Утилита функции Excel поможет вам легко сохранить определенный рабочий лист как новый файл Excel. Вы можете сделать следующее.

1. Щелкните правой кнопкой мыши вкладку листа (рабочий лист, который необходимо сохранить как новый файл) на панели вкладок листа, затем щелкните Переместить или скопировать.

2. в Переместить или скопировать диалоговом окне выберите (новая книга) из Бронировать раскрывающийся список, проверьте Создать копию поле, а затем щелкните OK кнопка. Смотрите скриншот:

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

---

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

Если вы хотите удалить все рабочие листы и сохранить только один определенный рабочий лист в текущей книге, следующий код VBA может вам помочь.

1. Нажмите другой + F11 одновременно открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте ниже код VBA в окно модуля.

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

Sub DeleteSheets1()
    Dim xWs As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each xWs In Application.ActiveWorkbook.Worksheets
        If xWs.Name <> "test" Then
            xWs.Delete
        End If
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Внимание: в коде "тестXNUMX»- это имя рабочего листа, которое нам нужно сохранить только в текущей книге. Пожалуйста, измените его на имя вашего рабочего листа.

3. Нажмите клавишу F5, чтобы запустить код. Затем вы увидите, что все листы в текущих книгах удалены, кроме указанного. А затем сохраните книгу по мере необходимости.

---

Сохранить только один лист в текущей книге одним щелчком мыши

Компания Удалить все неактивные листы полезности Kutools for Excel помогает быстро удалить все рабочие листы, кроме текущего, одним щелчком мыши.

1. Перейдите к листу, который нужно оставить только в текущей книге, затем щелкните Кутулс Плюс > Рабочий лист > Удалить все неактивные листы. Смотрите скриншот:

Затем появится диалоговое окно с запросом, если вы решите удалить их, щелкните значок OK кнопку.

Затем все неактивные листы немедленно удаляются из текущей книги.

---

Сохранить только один лист