Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

В Excel, как вы можете скопировать рабочий лист и переименовать его автоматически, не набрав имя, как обычно? В этой статье я расскажу о том, как скопировать лист один раз или несколько раз и дать им конкретные имена сразу.

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

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



Если вам нужно скопировать лист несколько раз и дать им имена серий, такие как KTE-1, KTE-2, KTE-3, KTE-4 ..., следующий код VBA может оказать вам услугу.

1, Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

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

Sub Create()
'Updateby Extendoffice 20160704
    Dim I As Long
    Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = "KTE-" & I
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True
End Sub

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

doc переименовать скопированные листы 1

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

doc переименовать скопированные листы 2

Внимание: В приведенном выше коде вы можете изменить текст названия рабочего листа "KTE-«К вашему нужному.


Возможно, вышеупомянутые коды VBA вам сложно применить, здесь я расскажу о простом инструменте, Kutools for Excel, С его Создание рабочих листов последовательности утилиту, вы можете без проблем справиться с этой задачей.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

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

1. Щелчок Предприятие > Рабочий лист > Создание рабочих листов последовательности, см. снимок экрана:

doc переименовать скопированные листы 3

2. В Создание рабочих листов последовательности диалоговое окно:

(1.) Выберите имя листа, которое вы хотите скопировать из Основной рабочий лист выпадающий список;

(2.) Затем укажите количество листов, которые вы хотите скопировать в Количество созданных текстовое окно;

(3.) И затем проверьте Номера последовательностей под Имена листов на основе раздел;

(4.) Наконец, создайте имена рабочих листов последовательности в правой панели, которые вы хотите, см. Снимок экрана:

doc переименовать скопированные листы 4

3. После завершения настроек нажмите Ok и конкретный рабочий лист был скопирован несколько раз и переименован на основе созданной последовательности в новой книге, см. снимок экрана:

doc переименовать скопированные листы 5

Нажмите Скачать Kutools для Excel сейчас!


Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ales · 1 years ago
    Is it possible that you add in this code an option to also copy specific cells. For example: I have in one cell Number 1 and I would like that when I duplicate Sheet will change for +1. Thanks
  • To post as a guest, your comment is unpublished.
    Anonymous · 2 years ago
    Wow this saved a lot of time for me! Thank you!