Как создать последовательность листов из диапазона ячеек в 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?