Зазвичай для перейменування аркушів у Excel ми можемо швидко двічі клацнути вкладку аркуша або клацнути правою кнопкою миші на вкладці аркуша, щоб вибрати команду «Перейменувати» для перейменування аркушів. Це дуже зручно перейменовувати один або два аркуші в Excel, але якщо ми хочемо перейменовувати кілька аркушів за одну операцію, як це зробити?

Використання команди «Перейменувати» для перейменування робочих аркушів

Використання зручного інструменту для зручного перейменування кількох аркушів

Використання коду VBA для перейменування декількох аркушів

Використання команди «Перейменувати» для перейменування робочих аркушів

Дивовижний! Використання ефективних вкладок у Excel, таких як Chrome, Edge, Firefox і Safari!
Заощаджуйте 50% свого часу та зменшуйте тисячі клацань миші щодня!

Ми можемо швидко перейменувати робочі аркуші в Excel за допомогою Rename команда згідно з наступними процедурами:

Клацніть правою кнопкою миші на вкладці аркуша, яку потрібно перейменувати, і виберіть Rename з меню правої кнопки миші. Або двічі клацніть на вкладці аркуша, щоб перейменувати аркуш. Потім введіть нову назву та натисніть Що натомість? Створіть віртуальну версію себе у ключ, щоб перейменувати його, див. знімок екрана:

З цим Rename Команда, ви можете перейменовувати лише один аркуш одночасно, з метою перейменування декількох аркушів, повторіть вищезазначені операції.

Використання зручного інструменту для зручного перейменування кількох аркушів

Використання коду VBA для перейменування декількох аркушів

Тут я познайомлю вас із двома кодами VBA для перейменування декількох аркушів.

Код 1. Код VBA для одночасного перейменування кількох аркушів за потрібним ім’ям

Використовуючи наведений нижче код VBA, ви можете швидко перейменувати всі аркуші поточної книги з однаковим префіксом в їх назвах, наприклад: KTE-order1, KTE-order 2 і KTE-order 3 ...

1. Натисніть на Розробник > Візуальний Бейсік, і клацніть Insert > Модулі в Додаток Microsoft Visual Basic Windows.

2. Будь ласка, скопіюйте та вставте наступний код у Модулі.

VBA: Перейменуйте всі аркуші, ввівши певне ім'я

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  Натисніть   , щоб виконати код, і введіть потрібне ім'я у розкривне діалогове вікно. див. скріншоти:

4. Натисніть OK. Тоді ви побачите, що всі аркуші перейменовані.

2. Код VBA для перейменування кількох аркушів за певним значенням комірки на кожному аркуші активної книги

За допомогою наступного коду VBA він перейменує всі аркуші поточної книги, використовуючи вміст певної комірки. Наприклад, ви можете ввести ім'я робочого аркуша в комірку А1 усієї книги, і тоді аркуш буде перейменовано як значення комірки А1.

1.  Будь ласка, вкажіть комірку, яка буде містити ім’я аркуша на кожному аркуші, і введіть у нього ім’я аркуша. У цьому прикладі я введу ім’я робочого аркуша в комірку А1 на кожному аркуші.

2.  Натисніть Розробник > Візуальний Бейсік, і клацніть Insert > Модулі в Додаток Microsoft Visual Basic Windows.

3.  Будь ласка, скопіюйте та вставте наступний код у Модуль.

VBA: Перейменуйте робочі аркуші за певним вмістом комірки

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4.  Натисніть   кнопку для виконання коду. Усі бюлетені перейменовані на основі вмісту клітин А1.

Демонстрація: перейменування кількох аркушів за допомогою Kutools для Excel

Статті по темі