Note: The other languages of the website are Google-translated. Back to English

 Як автоматично скопіювати аркуш і перейменувати в Excel?

Як в Excel можна скопіювати робочий аркуш і перейменувати його автоматично, не вводячи імені, як зазвичай? У цій статті я розповім про те, як скопіювати аркуш один раз або кілька разів і дати їм конкретні імена відразу.

Копіюйте аркуш кілька разів і перейменовуйте їх із назвою вкладки із збільшенням, використовуючи код VBA

Скопіюйте аркуш кілька разів і перейменуйте його на власні імена, використовуючи Kutools для Excel


Якщо вам потрібно скопіювати аркуш кілька разів і дати їм назви серій, таких як KTE-1, KTE-2, KTE-3, KTE-4…, наступний код VBA може зробити вам послугу.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Скопіюйте аркуш кілька разів і перейменуйте відразу:

Sub Create()
'Updateby Extendoffice
    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 для Excel, З його Створіть робочі аркуші послідовностей утиліта, ви можете досягти цього завдання без будь-яких зусиль.

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. 

після установки Kutools для Excel, будь ласка, виконайте наступне:

1. Клацання Kutools Plus > Робочий аркуш > Створіть робочі аркуші послідовностей, див. скріншот:

2, в Створіть робочі аркуші послідовностей діалогове вікно:

(1.) Виберіть назву робочого аркуша, який потрібно скопіювати з Базовий аркуш випадаючий список;

(2.) Потім вкажіть кількість робочого аркуша, під яким потрібно скопіювати Номер створення текстове вікно;

(3.) А потім перевірити Послідовні номери під Назви аркушів на основі розділ;

(4.) Нарешті, створіть потрібні імена робочих аркушів послідовностей на потрібній панелі, див. Знімок екрана:

doc перейменувати скопійовані аркуші 4

3. Закінчивши налаштування, натисніть Ok , а конкретний аркуш скопійовано кілька разів і перейменовано на основі вашої створеної послідовності в новій книзі, див. знімок екрана:

doc перейменувати скопійовані аркуші 5

Клацніть безкоштовно завантажити Kutools для Excel зараз!


Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (2)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Вау, це заощадило мені багато часу! Дякую!
Цей коментар був мінімізований модератором на сайті
Чи можливо, що ви додаєте в цей код можливість також копіювати певні клітинки. Наприклад: у мене в одній клітинці є номер 1, і я хотів би, щоб при дублюванні Аркуш змінився на +1. Спасибі
There are no comments posted here yet
Будь ласка, залишайте свої коментарі англійською мовою
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL