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

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

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

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

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

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

Шаг 1:

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

Изображение 1: Как разделить листы на отдельные файлы Excel

Шаг 2:

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

Изображение 2: Как разделить листы в отдельные файлы Excel

Шаг 3:

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

Изображение 3: Как разделить листы в отдельные файлы Excel

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

Дополнительная книга 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: Как разделить листы в отдельные файлы Excel

Шаг 4:

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

Изображение 5: Как разделить листы в отдельные файлы Excel

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

Изображение 6: Как разделить листы в отдельные файлы Excel

При открытии файла листа, если есть подобное уведомление, нажмите Да, чтобы продолжить открытие содержимого.

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

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

Желаю всем успехов!

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *