Как создать последовательность листов на основе диапазона ячеек в Excel?
Если у вас на листе есть диапазон данных и вы хотите создать последовательность листов на основе значений ячеек, взгляните на следующий снимок экрана. Конечно, вы можете вручную переименовывать листы по одному, но если нужно изменить сразу несколько имён листов, такой подход быстро станет утомительным и трудоёмким. Ниже я поделюсь несколькими быстрыми приёмами, которые значительно упростят вам задачу.
Создать последовательность листов из списка ячеек с помощью кода VBA
Создать последовательность листов из списка ячеек с помощью Kutools для Excel
Создать последовательность листов из списка ячеек с помощью кода VBA
Следующий код VBA поможет вам создать листы с названиями на основе содержимого ячеек — сразу после существующего листа. Выполните следующие действия:
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуль.
Код VBA: добавление последовательных листов на основе списка ячеек
Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
Ws.Name = arr(i, j)
Next
Next
Application.ScreenUpdating = True
End Sub
3. Нажмите клавишу F5, чтобы запустить этот код. Появится диалоговое окно, в котором нужно выбрать диапазон для использования. См. снимок экрана:
4. Затем нажмите кнопку ОК, и листы с названиями, соответствующими значениям ячеек, будут добавлены после существующего листа. См. снимок экрана:
Примечания:
1. Новый лист будет вставлен после текущего листа.
2. Если выбранный диапазон содержит пустые ячейки, листы получат имена по умолчанию. См. снимки экрана:
 |
 |
 |
Создать последовательность листов из списка ячеек с помощью Kutools для Excel
Здесь я представляю удобный инструмент — Kutools для Excel, с помощью которого можно быстро создавать листы с названиями месяцев, дней недели, пользовательских списков и т.д. с помощью функции Создать последовательность листов.
Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней. Получить сейчас.
После установки Kutools для Excel выполните следующие шаги:
1. Выделите диапазон, на основе которого хотите создать листы.
2. Нажмите KUTOOLS PLUS > Лист > Создать последовательность листов (см. снимок экрана):
3. В диалоговом окне Создать последовательность листов выберите тип листа, на основе которого нужно создать новую последовательность, и установите флажок Данные в выделенном диапазоне (см. снимок экрана):
4. Затем нажмите кнопку ОК, чтобы закрыть диалоговое окно. Будет создана новая рабочая книга, в которой листы названы в соответствии с данными из «Выберите диапазон». См. снимок экрана:
Примечания:
1. Если вы выберете Лист 1 или Лист 2, новый лист будет иметь то же форматирование, что и выбранный вами лист.
2. Новый лист создаётся в новой рабочей книге.
3. Если выбранный диапазон содержит пустые ячейки, листы получат имена по умолчанию. См. снимки экрана:
 |
|
 |
Нажмите, чтобы узнать больше о функции «Создать последовательность листов».
Связанная статья:
Как добавить новый лист с пользовательскими именами в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек