Как создать несколько листов на основе списка значений ячеек?

Есть ли быстрые или простые методы для создания нескольких листов на основе списка значений ячеек в 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 прямо сейчас!