Как разделить листы в отдельные файлы 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, чтобы пользователи могли легко управлять файлами. Все формулы, используемые на каждом листе, остаются прежними.
При открытии файла листа, если есть подобное уведомление, нажмите Да, чтобы продолжить открытие содержимого.
С помощью простой операции вы быстро получите файлы листов в Excel. Все содержимое на каждом листе Excel не было изменено.
Желаю всем успехов!