Как создать несколько листов на основе списка значений ячеек?
Есть ли быстрые или простые методы для создания нескольких листов на основе списка значений ячеек в Excel? В этой статье я расскажу о некоторых полезных приемах для выполнения этой задачи.
Создание нескольких листов из списка значений ячеек с помощью кода VBA
Создание нескольких листов из списка значений ячеек с помощью Kutools для Excel
Создание нескольких листов из списка значений ячеек с помощью кода VBA
Чтобы быстро создать несколько новых листов, названных списком значений ячеек, следующий код VBA может вам помочь.
1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Щелкните Вставить > Модуль и вставьте следующий код в окно Модуля.
Код VBA: Создание нескольких листов из списка ячеек:
Sub AddSheets()
'Updateby Extendoffice
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Application.ScreenUpdating = False
For Each xRg In wSh.Range("A1:A7")
With wBk
.Sheets.Add after:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
If Err.Number = 1004 Then
Debug.Print xRg.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next xRg
Application.ScreenUpdating = True
End Sub
Примечание: В приведенном выше коде A1:A7 — это диапазон ячеек, на основе которого вы хотите создать листы, измените его по своему усмотрению.
3. Затем нажмите клавишу F5, чтобы запустить этот код, и новые листы будут созданы после всех листов в текущей книге, см. скриншот:
Создание нескольких листов из списка значений ячеек с помощью Kutools для Excel
Если вы не уверены в использовании приведенного выше кода, вот удобный инструмент — Kutools для Excel, с функцией Создать последовательность листов, листы будут созданы на основе значений ячеек в новой книге.
После установки Kutools для Excel сделайте следующее:
1. Щелкните Kutools Plus > Лист > Создать последовательность листов, см. скриншот:
2. В диалоговом окне Создать последовательность листов:
(1.) Выберите один лист, на основе которого вы хотите создать последовательность листов;
(2.) Затем выберите Данные в диапазоне опции из Имя листа на основе списка, и нажмите 
кнопку, чтобы выбрать значения ячеек, которые вы хотите использовать.
3. Затем нажмите кнопку Ok, и листы будут созданы с именами из значений ячеек в новой книге, см. скриншот:
Нажмите Скачать и попробовать бесплатно Kutools для 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек