Перейти к основному содержанию

Как создать рабочие листы последовательности из диапазона ячеек в Excel?

Если у вас есть диапазон данных на вашем листе, и теперь вы хотите создать последовательность рабочих листов на основе данных ячеек, см. Следующий снимок экрана. Конечно, вы можете редактировать имя рабочего листа по одному вручную, но если нужно отредактировать несколько имен рабочих листов, этот способ будет хлопотным и трудоемким. Здесь я расскажу о некоторых простых приемах, которые могут вам помочь.

документ-создать-листы-из-списка1

Создайте рабочие листы последовательности из списка ячеек с кодом VBA

Создание рабочих листов последовательности из списка ячеек с помощью Kutools for 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 нажмите клавишу для запуска этого кода, а затем появится диалоговое окно, в котором вы можете выбрать диапазон, который вы хотите использовать. Смотрите скриншот:

документ-создать-листы-из-списка2

4, Затем нажмите OK, рабочие листы, названные значениями ячеек, были добавлены после существующего рабочего листа. Смотрите скриншот:

документ-создать-листы-из-списка3

Ноты:

1. Новые листы будут вставлены после текущего листа.

2. Если выбранный диапазон включает пустые ячейки, листы получают имена по умолчанию. Смотрите скриншоты:

документ-создать-листы-из-списка4
-1
документ-создать-листы-из-списка5

стрелка синий правый пузырь Создание рабочих листов последовательности из списка ячеек с помощью Kutools for Excel

Здесь я представляю удобный инструмент -Kutools for Excel, С его Создать рабочие листы последовательностей, вы можете быстро создавать рабочие листы с названием месяца, днем, настраиваемым списком и т. д.

Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.

После установки Kutools for Excel выполните следующие действия:

1. Выберите диапазон, на основе которого вы хотите создать листы.

2. Нажмите Предприятие > Инструменты рабочего листа > Создать рабочие листы последовательностей, см. снимок экрана:

документ-создать-листы-из-списка6

3. В Создать рабочие листы последовательностей диалоговом окне выберите тип рабочего листа, для которого вы хотите создать новые рабочие листы последовательности, а затем установите флажок Данные в диапазоне вариант, см. снимок экрана:

документ-создать-листы-из-списка7

4. Затем нажмите OK , чтобы закрыть диалоговое окно, и была создана новая книга, содержащая листы, названные в соответствии с выбранными данными диапазона. Смотрите скриншот:

документ-создать-листы-из-списка8

Ноты:

1. Если вы выберете Лист 1 или Лист 2, создаваемые новые рабочие листы будут иметь такое же форматирование, как Лист 1 или Лист 2.

2. Новые листы создаются в новой книге.

3. Если выбранный диапазон включает пустые ячейки, листы получают имена по умолчанию. Смотрите скриншоты:

документ-создать-листы-из-списка9
-1
документ-создать-листы-из-списка10

Щелкните, чтобы узнать больше об этой функции создания рабочих листов последовательности.


Связанная статья:

Как добавить новые рабочие листы с настраиваемыми именами в Excel?

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to add bydefault table with row name and column name on sheets after creating sheets using command button. Please help.
This comment was minimized by the moderator on the site
How can the code be modified to copy a worksheet labeled "Template" and rename it to the values in the list selected in the range? I tried modifying the "worksheets.Add" code to "Worksheets("Template").Copy but it just makes copies with the worksheets labeled "Template(1)", "Template(2)", etc. Also, is there a way to put the tabs in numerical order as they are added?
This comment was minimized by the moderator on the site
Hi, Would it be possible to set-up a template for the new sheets created, instead of blank worksheets. Thanks Dave
This comment was minimized by the moderator on the site
Hi, I want to create invoices using excel and need to know whether is there a way to auto generate the second continuation page when the items on the first page exceed the A4 page layout that I have predefined? Any help is appreciated.
This comment was minimized by the moderator on the site
Could you modify the VBA code so that if the worksheet exists, it is skipped over? As it exists now, running the code a second time on the same range will create numbered worksheets. Thanks! Chris
This comment was minimized by the moderator on the site
Hello, Can I exclude blanks and automatically copy data with is behind the name? This data is generated from a pivot and I want to have all the names in different tabs with the data behind it in the layout. name1 data data data blank data data data blank Name 2 Thanks!
This comment was minimized by the moderator on the site
I need to duplicate one sheet when making all these new sheets from a list. Can you add the code for that? Thanks!
This comment was minimized by the moderator on the site
You can right click the tab and choose "move or copy" to duplicate it.
This comment was minimized by the moderator on the site
Very useful. thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations