Добавить это приложение в закладки
Нажмите Ctrl + D, чтобы добавить эту страницу в избранное, или Esc, чтобы отменить действие.
Отправьте ссылку для скачивания на
Отправьте нам свой отзыв
Ой! Произошла ошибка.
Недопустимый файл. Убедитесь, что загружается правильный файл.
Ошибка успешно зарегистрирована.
Вы успешно сообщили об ошибке. Вы получите уведомление по электронной почте, когда ошибка будет исправлена.
Нажмите эту ссылку, чтобы посетить форумы.
Немедленно удалите загруженные и обработанные файлы.
Вы уверены, что хотите удалить файлы?
Введите адрес
Содержание
- Открытие нескольких окон
- Способ 1: панель задач
- Способ 2: окно «Выполнить»
- Способ 3: меню Пуск
- Способ 4: Ярлык на Рабочем столе
- Способ 5: открытие через контекстное меню
- Способ 6: изменения в системном реестре
- Способ 7: параметры Excel
- Способ 8: открытие одного файла несколько раз
- Вопросы и ответы
При работе в Microsoft Excel бывает необходимость открыть несколько документов или один и тот же файл в нескольких окнах. В старых версиях и в версиях, начиная c Excel 2013, сделать это не составляет особых проблем. Просто открываем файлы стандартным способом, и каждый из них запустится в новом окне. Но вот в версиях приложения 2007 — 2010 новый документ открывается по умолчанию в родительском окне. Такой подход экономит системные ресурсы компьютера, но вместе с тем создает и ряд неудобств. Например, если пользователь хочет сравнить два документа, расположив окна на экране рядом, то при стандартных настройках это у него не получится. Рассмотрим, как это можно сделать всеми доступными способами.
Открытие нескольких окон
Если в версиях Эксель 2007 — 2010 у вас уже открыт документ, но вы попытаетесь запустить другой файл, то он откроется в том же родительском окне, просто заменив содержимое первоначального документа на данные из нового. Всегда будет возможность переключиться на первый запущенный файл. Для этого нужно навести на панели задач курсор на иконку Excel. Появится небольшие окошки для предпросмотра всех запущенных файлов. Перейти к конкретному документу можно просто кликнув по такому окошку. Но это будет именно переключение, а не полноценное открытие нескольких окон, так как одновременно вывести их на экран таким способом пользователь не сможет.
Но существует несколько уловок, с помощью которых можно отобразить несколько документов в Excel 2007 — 2010 на экране одновременно.
Одним из самых быстрых вариантов раз и навсегда решить проблему с открытием нескольких окон в Эксель является установка патча MicrosoftEasyFix50801.msi. Но, к сожалению, компания Майкрософт перестала поддерживать все решения Easy Fix, включая вышеуказанный продукт. Поэтому скачать его на официальном сайте сейчас нельзя. При желании можно на свой страх и риск произвести загрузку и установку патча с других веб-ресурсов, но при этом следует помнить, что данными действиями вы можете подвергнуть свою систему опасности.
Способ 1: панель задач
Одним из самых простых вариантов открытия нескольких окон является выполнение данной операции через контекстное меню значка на Панели задач.
- После того, как один документ Эксель уже запущен, наводим курсор на иконку программы, размещенную на Панели задач. Кликаем по ней правой кнопкой мыши. Запускается контекстное меню. В нем выбираем в зависимости от версии программы пункт «Microsoft Excel 2007» или «Microsoft Excel 2010».
Можно вместо этого кликнуть по значку Excel на панели задач левой кнопкой мышки при зажатой клавише Shift. Ещё один вариант — просто навести курсор на значок, после чего кликнуть колесиком мышки. Во всех случаях эффект будет тот же, но не понадобится активировать контекстное меню.
- Открывается чистый лист Эксель в отдельном окне. Для того, чтобы открыть конкретный документ переходим во вкладку «Файл» нового окна и кликаем по пункту «Открыть».
- В запустившемся окне открытия файла переходим в директорию, где расположен нужный документ, выделяем его и жмем на кнопку «Открыть».
После этого вы сможете работать с документами сразу в двух окнах. Таким же образом при необходимости можно запустить и большее количество.
Способ 2: окно «Выполнить»
Второй способ предполагает действия через окно «Выполнить».
- Набираем на клавиатуре комбинацию клавиш Win+R.
- Активируется окно «Выполнить». Набираем в его поле команду «excel».
После этого новое окно запустится, а для того, чтобы открыть в нем нужный файл выполняем те же действия, что и в предыдущем способе.
Способ 3: меню Пуск
Следующий способ подойдет только пользователям Windows 7 или более ранних версий операционной системы.
- Кликаем по кнопке «Пуск» ОС Windows. Переходим по пункту «Все программы».
- В открывшемся перечне программ переходим к папке «Microsoft Office». Далее кликаем левой кнопкой мыши по ярлыку «Microsoft Excel».
После этих действий запустится новое окно программы, в котором стандартным способом можно будет открыть файл.
Способ 4: Ярлык на Рабочем столе
Чтобы запустить программу Excel в новом окне, нужно дважды кликнуть по ярлыку приложения на рабочем столе. Если его нет, то в таком случае ярлык нужно создать.
- Открываем Проводник Windows и если у вас установлен Excel 2010, то переходим по адресу:
C:Program FilesMicrosoft OfficeOffice14Если установлен Эксель 2007, то в этом случае адрес будет такой:
C:Program FilesMicrosoft OfficeOffice12 - Попав в директорию программы, находим файл под названием «EXCEL.EXE». Если у вас не включен в операционной системе показ расширений, то он будет называться просто «EXCEL». Кликаем по данному элементу правой кнопкой мыши. В активировавшемся контекстном меню выбираем пункт «Создать ярлык».
- Появится диалоговое окно, в котором говорится, что создать ярлык в данной папке нельзя, но можно поместить на рабочий стол. Соглашаемся, нажав кнопку «Да».
Теперь запускать новые окно можно будет через ярлык приложения на Рабочем столе.
Способ 5: открытие через контекстное меню
Все способы, которые были описаны выше, предполагают сначала запуск нового окна Excel, а уже потом через вкладку «Файл» открытие нового документа, что является довольно неудобной процедурой. Но существует возможность значительно облегчить открытие документов путем использования контекстного меню.
- Создаем ярлык Excel на рабочем столе по алгоритму, который описан выше.
- Кликаем по ярлыку правой кнопкой мыши. В контекстном меню останавливаем выбор на пункте «Копировать» или «Вырезать» в зависимости от того, желает пользователь, чтобы ярлык и дальше размещался на Рабочем столе или нет.
- Далее следует открыть Проводник, после чего совершить переход по следующему адресу:
C:UsersИмя_пользователяAppDataRoamingMicrosoftWindowsSendToВместо значения «Имя_пользователя» следует подставить наименование вашей учетной записи Windows, то есть, пользовательского каталога.
Проблема состоит ещё и в том, что по умолчанию данная директория находится в скрытой папке. Поэтому нужно будет включить показ скрытых каталогов.
- В открывшейся папке кликаем по любому пустому месту правой кнопкой мыши. В запустившемся меню останавливаем выбор на пункте «Вставить». Сразу же вслед за этим ярлык будет добавлен в данную директорию.
- Затем открываем ту папку, где расположен файл, который нужно запустить. Кликаем по нему правой кнопкой мыши. В контекстном меню последовательно переходим по пунктам «Отправить» и «Excel».
Документ запустится в новом окне.
Один раз проделав операцию с добавлением ярлыка в папку «SendTo», мы получили возможность постоянно открывать файлы Excel в новом окне через контекстное меню.
Способ 6: изменения в системном реестре
Но можно сделать открытие файлов Excel в нескольких окнах ещё проще. После процедуры, которая будет описана ниже, подобным образом будут запускаться все документы, открытые обычным способом, то есть, двойным щелчком мыши. Правда, эта процедура предполагает манипуляции с системным реестром. Это значит, что нужно быть уверенным в себе, прежде чем браться за неё, так как любой неправильный шаг может фатально навредить системе в целом. Для того, чтобы в случае проблем можно было исправить ситуацию, перед началом манипуляций сделайте точку восстановления системы.
- Для запуска окна «Выполнить», нажимаем комбинацию клавиш Win+R. В открывшемся поле вводим команду «RegEdit.exe» и жмем на кнопку «OK».
- Происходит запуск Редактора реестра. В нем переходим по следующему адресу:
HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommandВ правой части окна кликаем по элементу «По умолчанию».
- Открывается окно его редактирования. В строке «Значение» меняем «/dde» на «/e “%1”». Остальную часть строки оставляем как есть. Жмем на кнопку «OK».
- Находясь в том же разделе, кликаем правой кнопкой мыши по элементу «command». В открывшемся контекстном меню переходим по пункту «Переименовать». Произвольно переименовываем этот элемент.
- Кликаем правой кнопкой мыши по наименованию раздела «ddeexec». В контекстном меню выбираем пункт «Переименовать» и тоже произвольно переименовываем данный объект.
Таким образом, мы сделали возможным открытие стандартным способом в новом окне файлов с расширением xls.
- Для того, чтобы выполнить данную процедуру для файлов с расширением xlsx, в Редакторе реестра переходим по адресу:
HKEY_CLASSES_ROOTExcel.Sheet.12shellOpencommandПроделываем аналогичную процедуру и с элементами данной ветки. То есть, изменяем параметры элемента «По умолчанию», переименовываем элемент «command» и ветку «ddeexec».
После выполнения данной процедуры файлы формата xlsx тоже будут открываться в новом окне.
Способ 7: параметры Excel
Открытие нескольких файлов в новых окнах можно настроить также через параметры Excel.
- Во время нахождения во вкладке «Файл» выполняем щелчок мышкой по пункту «Параметры».
- Происходит запуск окна параметров. Переходим в раздел «Дополнительно». В правой части окна ищем группу инструментов «Общие». Устанавливаем галочку напротив пункта «Игнорировать DDE-запросы от других приложений». Жмем на кнопку «OK».
После этого новые запущенные файлы будут открываться в отдельных окнах. В то же время, перед завершением работы в Excel, рекомендуется снять галочку с пункта «Игнорировать DDE-запросы от других приложений», так как в обратном случае при следующем запуске программы возможно возникновение проблем с открытием файлов.
Поэтому, в некотором роде, данный способ менее удобен, чем предыдущий.
Способ 8: открытие одного файла несколько раз
Как известно, обычно программа Excel не дает открыть один и тот же файл в двух окнах. Тем не менее, это тоже можно сделать.
- Запускаем файл. Переходим во вкладку «Вид». В блоке инструментов «Окно» на ленте жмем на кнопку «Новое окно».
- После этих действий данный файл откроется ещё один раз. В Excel 2013 и 2016 он запустится сразу же в новом окне. Для того чтобы в версиях 2007 и 2010 документ открылся в отдельном файле, а не в новых вкладках, нужно произвести манипуляции с реестром, о которых шла речь выше.
Как видим, хотя по умолчанию в Excel 2007 и 2010 при запуске нескольких файлов будут открываться в одном и том же материнском окне, существует множество способов запустить их в разных окнах. Пользователь может сам выбрать более удобный, соответствующий своим потребностям вариант.
Возможно, вам придется разделить большую книгу на отдельные файлы Excel, сохранив каждый рабочий лист книги как отдельный файл Excel. Например, вы можете разделить книгу на несколько отдельных файлов Excel, а затем передать каждый файл другому человеку для обработки. Поступая таким образом, вы можете заставить определенных людей обрабатывать определенные данные и сохранить ваши данные в безопасности. В этой статье будут представлены способы разделения большой книги на отдельные файлы Excel на основе каждого рабочего листа.
- Разделение книги на отдельные файлы Excel с копированием и вставкой
- Разделите книгу на отдельные файлы Excel с помощью функции перемещения или копирования
- Разделить книгу на отдельные файлы Excel с кодом VBA
- Разделите книгу на отдельные файлы Excel / PDF / CSV / TXT с помощью Kutools for Excel легко
Разделение книги на отдельные файлы Excel с копированием и вставкой
Обычно, используя Копировать Команда и Вставить Команда может вручную сохранить книгу как отдельный файл Excel. Во-первых, выберите весь лист, который вы хотите сохранить как отдельный файл, создайте новую книгу, а затем вставьте ее в новую книгу, в конце сохраните ее.
Это простой в использовании способ, если вам нужно разделить всего несколько листов в отдельные файлы. Однако разделение множества листов путем копирования и вставки вручную должно занимать много времени и утомительно.
Разделите книгу на отдельные файлы Excel с помощью функции перемещения или копирования
Этот метод представит функцию перемещения или копирования для перемещения или копирования выбранных листов в новую книгу и сохранения в виде отдельной книги. Пожалуйста, сделайте следующее:
1. Выберите листы на панели вкладок «Лист», щелкните правой кнопкой мыши и выберите Переместить или скопировать из контекстного меню. Смотрите скриншот:
Внимание: Держа Ctrl клавишу, вы можете выбрать несколько несмежных листов, щелкая их один за другим на панели вкладок Лист; держа Shift клавишу, вы можете выбрать несколько соседних листов, щелкнув первый и последний на панели вкладок «Лист».
2. В диалоговом окне «Перемещение или копирование» выберите (новая книга) из Бронировать раскрывающийся список, проверьте Создать копию и нажмите OK кнопка. Смотрите скриншот:
3. Теперь все выбранные листы копируются в новую книгу. Нажмите Файл > Сохраните чтобы сохранить новую книгу.
Быстро разбейте книгу на отдельные файлы Excel / PDF / TXT / CSV в Excel
Обычно мы можем разделить книгу на отдельные файлы Excel с помощью Переместить или скопировать функция в Excel. Но Kutools for Excel’s Разделить книгу Утилита может помочь вам легко разделить книгу и сохранить каждый лист как отдельный файл PDF / TEXT / CSV или книгу в Excel.
Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now
Разделить книгу на отдельные файлы Excel с кодом VBA
Следующий код VBA может помочь вам быстро разделить несколько листов текущей книги на отдельные файлы Excel, пожалуйста, сделайте следующее:
1. Создайте новую папку для книги, которую вы хотите разделить, так как разделенные файлы Excel останутся в той же папке, что и эта основная книга.
2. Удерживайте ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.
3. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.
VBA: разделите книгу на несколько книг и сохраните в одной папке
Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
4, нажмите F5 ключ для запуска этого кода. И книга разделена на отдельные файлы Excel в той же папке, что и исходная книга. Смотрите скриншот:
Внимание: Если один из листов имеет то же имя, что и книга, этот VBA не может работать.
Разделите книгу на отдельные файлы Excel / PDF / CSV / TXT с помощью Kutools for Excel легко
Если у вас есть Kutools for Excel установлен, его Разделить книгу Инструмент может легко и быстро разделить несколько листов в отдельные файлы Excel всего за несколько кликов.
Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now
1. После установки Kutools for Excel, нажмите Кутулс Плюс > Разделить книгу , см. снимок экрана:
2. В Разделить книгу диалоговом окне выполните следующие операции:
(1) По умолчанию отмечены все имена рабочих листов. Если вы не хотите разделять некоторые рабочие листы, вы можете снять с них отметку;
(2) Проверьте Сохранить тип вариант;
(3) Из Сохранить как в раскрывающемся списке выберите один тип файла, который вы хотите разделить и сохранить.
(4) Затем нажмите Трещина кнопку.
Внимание: Если вы не хотите разделять скрытые или пустые листы, вы можете проверить Пропустить скрытые листы or Пропускать пустые листы пунктом.
3. В диалоговом окне «Обзор папки» укажите папку назначения для сохранения разделенных отдельных файлов и нажмите кнопку OK кнопку.
Теперь проверенные листы сохраняются как новые отдельные книги. Каждая новая книга названа в соответствии с именем исходного листа. Смотрите скриншот:
Kutools for Excel‘s Разделить книгу Инструмент позволяет легко разделить активную книгу на отдельные файлы Excel (один файл содержит один рабочий лист), файлы CSV, файлы TXT или файлы PDF по мере необходимости. Вы можете настроить пропуск всех пустых и скрытых листов. Получите бесплатную пробную версию!
Демонстрация: разделите или сохраните каждый рабочий лист одной книги как отдельные файлы excel / txt / csv / pdf
Статьи по теме:
Лучшие инструменты для работы в офисе
Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
❓
Как разделить файл с помощью Excel разделителя документов?
Прежде всего, вам нужно выбрать и добавить Excel файл для разделения двумя способами: перетащить ваш Excel файл в белую область с меткой «Нажмите или перетащите свой файл сюда» или нажмите на эту область, а затем выберите нужный файл Excel с помощью проводника. Как только файл будет добавлен, зеленый индикатор выполнения начнет расти. После завершения процесса можно нажать кнопку Сохранить, а затем загрузить файл результата Excel.
⏱️
Сколько времени занимает разделение Excel файла?
Обычно этот Excel Document Splitter работает быстро для небольших файлов за считанные секунды.
🛡️
Безопасно ли разделять файл с помощью нашего бесплатного Excel Document Splitter?
Да, ссылка для скачивания файла результат Excel будет доступна только вам. Загруженный файл будет удален через 24 часа, а ссылка для загрузки перестанет работать по истечении этого периода времени. Никто не имеет доступа к вашему файлу. Разделитель документов Excel абсолютно безопасен.
💻
Могу ли я разделить файл Excel на Linux, Mac OS или Android?
Да, вы можете использовать наш бесплатный Excel Document Splitter на любой операционной системе, в которой есть веб-браузер. Наш Excel Document Splitter работает онлайн и не требует установки программного обеспечения.
🌐
Какой браузер следует использовать для разделения Excel файла?
Для разделения файлов можно использовать любой современный браузер Excel, например, Google Chrome, Microsoft Edge, Firefox, Opera или Safari.
На чтение 5 мин Просмотров 1.1к. Опубликовано 30.03.2022
Такое бывает довольно часто, делаешь ежегодный отчет, а в нем 12 месяцев, соответственно 12 листов. И нужно разделить этот файл таким образом, чтобы каждый лист стал отдельным файлом.
И конечно же, можно сделать это руками, но это крайне долго и неэффективно.
Я продемонстрирую вам простой код Visual Basic, который выполнит задачу за вас.
Содержание
- Делим файл Excel на несколько файлов по листам
- Делим файл Excel на несколько PDF файлов по листам
- Разделите только те рабочие листы, в которых содержится слово/фраза, на отдельные файлы Excel
Делим файл Excel на несколько файлов по листам
Допустим, у нас есть ежегодный отчет, в котором по листам расписаны показатели компании за каждый месяц. Как на картинке ниже:
Код Visual Basic, который разделит таблицу на несколько файлов по месяцам:
Sub SplitEachWorksheet()
Dim FPath As String
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveWorkbook.SaveAs Filename:=FPath & "" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Перед тем, как запустите этот код, сделайте следущее:
- Создайте новую папку, куда поместите результаты работы этого кода;
- А также, на всякий случай, сделайте копию оригинального файла.
Теперь создайте функцию в Visual Basic и смело запускайте код.
Этот код сам найдет путь до папки с файлом.
Как он работает?
Довольно просто, он открывает каждый лист и сохраняет его как отдельный файл с тем же названием.
Куда поместить этот код?
Пошаговая инструкция:
- Щелкните на «Разработчик»;
- Далее откройте VBA;
- Правой кнопкой мышки на любой лист;.
- Щелкните на «Insert» -> «Module»;
- Поместите наш код в открывшееся окошко;
- Теперь запустите код.
Итак, как только вы запустите код, он сразу же разделит ваш файл на несколько файлов по листам. Это крайне удобно, советую его сохранить. Даже если сейчас он вам не нужен, в будущем обязательно пригодится.
Как я говорил ранее, имя файла такое же, как и имя листа.
Также не забудьте сохранить файл с соответствующим расширением(.XLSM), так как мы используем функции Visual Basic.
В коде я специально сделал так, чтобы вы не видели все что происходит и это вам не мешало. Вы можете исправить это если вам наоборот нужно видеть то, что происходит.
Но также, опять повторюсь, обязательно сделайте копию вашего файла перед использованием функции! Потому что если работа Excel завершится из-за какой-либо ошибки или произойдет еще что-то неожиданное вы можете потерять свои данные!
Делим файл Excel на несколько PDF файлов по листам
Вот код для такого случая:
Sub SplitEachWorksheet()
Dim FPath As String
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
И снова, не забудьте сначала создать папку и обязательно сделать копию оригинального файла. Код разделит вашу табличку по страницам и создаст для каждой страницы отдельный PDF файл.
Разделите только те рабочие листы, в которых содержится слово/фраза, на отдельные файлы Excel
Бывают и такие ситуации, что отдельный файл нужно создать только для тех страниц, в названии которых есть определенный текст.
Допустим, у вас есть страницы отчета за разные года, в названии каждого листа указан год и месяц. Но вам нужно сохранить только те листы, которые относятся к 2020 году. Как это сделать?
Вот код Visual Basic:
Sub SplitEachWorksheet()
Dim FPath As String
Dim TexttoFind As String
TexttoFind = "2020"
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
If InStr(1, ws.Name, TexttoFind, vbBinaryCompare) <> 0 Then
ws.Copy
Application.ActiveWorkbook.SaveAs Filename:=FPath & "" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Как вы могли заметить, прямо в коде, мы создали переменную и задали ей значение 2020.
Затем этот код просто проходится по каждой странице и проверяет есть ли в имени нужная нам часть (то есть нужный год). А далее сохраняет отдельно только те листы, в имени которых он нашел совпадения.
Если совпадения не будут найдены — результат будет 0.
В этом коде используется цикл «Если/То». Если он находит нужное текстовое значение в имени листа, то сохраняет его отдельно, если не находит — просто пропускает.












































