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

Хотите разделить листы файла Excel на несколько отдельных файлов? См. инструкции из бесплатной загрузки для облегчения манипуляций.

Наличие нескольких листов приведет к увеличению размера файла, особенно при добавлении надстроек или кода макроса VBA в Excel. Поэтому разделение листов на несколько файлов является разумным решением, если пользователи хотят получить данные только на определенном листе.

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

Разбить лист на отдельные файлы

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

Шаг 1: Сначала вам нужно проверить, есть ли в используемом вами Excel вкладка «Разработчик». Если нет, вы можете отобразить вкладку «Разработчик» согласно инструкциям здесь.

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

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

Шаг 2: Нажмите комбинацию клавиш ALT + F11, чтобы открыть программу VBA в Excel, или щелкните вкладку «Разработчик» -> и выберите Visual Basic.

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

Шаг 3: Затем появится интерфейс VBA -> щелкните вкладку «Вставка» -> затем выберите раздел «Модуль», чтобы открыть интерфейс ввода кода VBA.

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

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

Подразделенная книга()

'Обновлено20140612

Уменьшить xPath как строку

xPath = Приложение.ActiveWorkbook.Путь

Application.ScreenUpdating = False

Application.DisplayAlerts = Ложь

Для каждого xW в ThisWorkbook.Sheets

xWs.Копировать

Application.ActiveWorkbook.SaveAs Имя файла:=xPath & “” & xWs.Name & “.xls”

Application.ActiveWorkbook.Close False

Следующий

Application.DisplayAlerts = Истина

Приложение.ScreenUpdating = Истина

Конец субтитра

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

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

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

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

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

Вы можете открыть разделенный файл и проверить. Если появится уведомление, как показано ниже -> нажмите «Да», чтобы согласиться, и файл будет открыт в обычном режиме.

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

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

Кроме того, вы можете добавить больше листов в Excel или даже легко объединить несколько файлов Excel в 1 файл в Excel! Все инструкции доступны на TipsMake, ознакомьтесь с реализацией и следуйте ей. Удачи!

Сэмюэл ДэниелСэмюэл Дэниел

Обновление от 17 декабря 2024 г.

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

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

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