Как создать последовательность листов из диапазона ячеек в Excel?
Если у вас есть диапазон данных на вашем листе, и вы хотите создать последовательность листов на основе данных ячеек (см. скриншот ниже), конечно, можно изменять названия листов по одному вручную. Однако, если нужно отредактировать множество названий листов, этот способ будет утомительным и трудоемким. Здесь я расскажу о некоторых быстрых приемах, которые помогут вам.
Создание последовательности листов из списка ячеек с помощью кода VBA
Создание последовательности листов из списка ячеек с помощью Kutools для Excel
Создание последовательности листов из списка ячеек с помощью кода VBA
Следующий код VBA поможет вам добавить несколько листов, которые будут называться на основе содержимого ячеек после существующих листов. Пожалуйста, выполните следующие действия:
1. Удерживайте клавиши ALT + F11, затем откроется окно Microsoft Visual Basic for Applications.
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. После этого нажмите OK, и листы, названные значениями ячеек, будут добавлены после существующего листа. См. скриншот:
Примечания:
1. Новые листы будут вставлены после текущего листа.
2. Если выбранный диапазон содержит пустые ячейки, листы будут названы по умолчанию. См. скриншоты:
 |
 |
 |
Создание последовательности листов из списка ячеек с помощью Kutools для Excel
Здесь я представляю удобный инструмент — Kutools для Excel, с его функцией Создать последовательность листов вы можете быстро создавать листы с названиями месяцев, дней, пользовательскими списками и т.д.
Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней. Получите это сейчас.
После установки Kutools для Excel выполните следующие шаги:
1. Выберите диапазон, на основе которого вы хотите создать листы.
2. Нажмите Kutools Plus > Лист > Создать последовательность листов, см. скриншот:
3. В диалоговом окне Создать последовательность листов выберите тип листа, который вы хотите создать, а затем отметьте опцию Данные в диапазоне, см. скриншот:
4. Затем нажмите OK, чтобы закрыть диалоговое окно, и будет создана новая книга, содержащая листы, названные данными выбранного диапазона. См. скриншот:
Примечания:
1. Если вы выберете Лист 1 или Лист 2, новые листы будут созданы с тем же форматированием, что и Лист 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек