Как разделить листы в отдельные файлы Excel

В файле Excel вы можете создать несколько рабочих листов, чтобы содержимое между листами было более плавным, зрители могли конвертировать содержимое, легче отслеживать содержимое друг друга, связанное с каждым листом. Это также ограничивает необходимость одновременного открытия нескольких файлов Excel для отслеживания данных. Однако, если файл Excel имеет несколько листов, это увеличит размер файлов Excel, особенно если вы используете дополнительные надстройки или код макроса VBA в Excel.

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

Как взломать пароль VBA в Excel
Как отправить электронное письмо из электронной таблицы Excel с помощью скрипта VBA
Как сохранить файл Excel, содержащий код макроса VBA
Как создать мигающие буквы в Excel

Видеоурок по разделению листов в Excel

Инструкция по разделению листов в Excel отдельно

Шаг 1:

Прежде всего, в Excel сначала должна отображаться вкладка «Разработчик». Затем откройте файл Excel, чтобы разделить листы. Ниже будут 3 листа с разными названиями листов.

Шаг 2:

Нажмите Alt + F11, чтобы открыть VBA в Excel, или щелкните вкладку Разработчик и щелкните Visual Basic.

Шаг 3:

Переключитесь на интерфейс содержимого. Новые пользователи щелкните вкладку «Вставка», а затем щелкните раздел «Модуль», чтобы открыть интерфейс ввода кода VBA.

Затем скопируйте приведенный ниже код в интерфейс.

Дополнительная книга Splitbook ()
Обновление от 20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Для каждого xWs в ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Имя файла: = xPath & «» & xWs.Name & «.xls»
Application.ActiveWorkbook.Close False
следующий
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Конец подписки

Шаг 4:

Щелкните значок «Выполнить» на панели инструментов, чтобы запустить программу, или нажмите клавишу F5 на клавиатуре, чтобы запустить код.

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